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:
andreas.koenig.7os6VVqR
Date:
April 29, 2008 20:54
Subject:
Re: [perl #53482] I believe I found a bug with Readonly::XS that might actually be a guts bug.
Message ID:
87ve20p0g2.fsf@k75.linux.bogus
>>>>> On Tue, 29 Apr 2008 16:54:24 +0100, "Robin Barker" <Robin.Barker@npl.co.uk> said:

  > From: Nicholas Clark [mailto:nick@flirble.org]On 
 >> The upcoming 5.8.9 will have the same behaviour as 5.10.
 >> I don't know which source code change changed this behaviour.

  > Perhaps change 26192.  That was my guess when I submitted change 27633.

My binary search says 22074:

  ----Program----
  #!/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 }

  ----Output of .../p7dcK3N/perl-5.9.0@22071/bin/perl----
  <
  12

  ----EOF ($?='0')----
  ----Output of .../pvpF9Iw/perl-5.9.0@22074/bin/perl----
  12
  12

  ----EOF ($?='0')----



-- 
andreas

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