develooper Front page | perl.perl5.porters | Postings from April 2008

Re: [perl #53482] I believe I found a bug with Readonly::XS that might actually be a guts bug.

Thread Previous | Thread Next
From:
Nicholas Clark
Date:
April 29, 2008 04:38
Subject:
Re: [perl #53482] I believe I found a bug with Readonly::XS that might actually be a guts bug.
Message ID:
20080429113742.GS84051@plum.flirble.org
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 Clark

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About