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