anneb@zogwarg.etl.army.mil (Anne Brink) (04/19/91)
Sorry to bother you all, but I've no Perl guru locally to pester. This works under 3.044, but not 4.003. Am I doing something wrong, or did I make some configuration errors? #!/usr/local/bin/perl vec($one,2,1) = 1; vec($two,2,1) = 1; print ord($one),"\n"; # debug stmt print ord($two),"\n"; # ditto. $three = $one & $two; print ord($three),"\n"; # should print 4. if ($one & $two) { print "right\n"; } else { print "wrong.\n"; } In 3.044, I get 4 4 4 right but in 4.003, I get 4 4 0 wrong. The Camel book (under the select() section, actually) seems to indicate that my code should work. I am running on SunOS 4.1, compiled with cc -O1 -DDEBUGGING. It passed all the tests. Thanks for any help, -Anne -- ############################################################################### Anne Brink # Most of our lives are spent in Plan "B" anneb@etl.army.mil # ###############################################################################
lwall@jpl-devvax.jpl.nasa.gov (Larry Wall) (04/20/91)
In article <629@zogwarg.etl.army.mil> anneb@zogwarg.etl.army.mil (Anne Brink) writes:
:
: Sorry to bother you all, but I've no Perl guru locally to pester.
: This works under 3.044, but not 4.003.
: Am I doing something wrong, or did I make some configuration errors?
It's a real bug, and will be fixed in patch 4. The routine do_vop()
wasn't setting str->str_pok = 1 like it should. Thanks.
Larry