On Tue, Apr 29, 2008 at 01:29:24PM +0200, Bram wrote: > $cat foo.pl > > #!/usr/bin/perl -l > > sub TIESCALAR { > my $foo = $_[1]; > bless \$foo, "main"; > }; > > sub FETCH { ${ $_[0]} }; > tie my $x, "main", 4; > tie my $y, "main", 8; > for (1 .. 2) { print $x | $y } > > perl588 foo.pl # < and 12 > perl5100 foo.pl # 12 and 12 > perl-blead foo.pl # 12 and 12 > > So this was resolved in perl 5.10. The upcoming 5.8.9 will have the same behaviour as 5.10. I don't know which source code change changed this behaviour. Nicholas ClarkThread Previous | Thread Next