Front page | perl.perl5.porters |
Postings from April 2008
>>>>> On Wed, 30 Apr 2008 08:39:10 +0100, "Robin Barker" <Robin.Barker@npl.co.uk> said:
> From: Andreas J. Koenig
>> My binary search says 22074
> Looks like their are two bugs and two fixes
> When does the following program give ":" not 10.
Same thing.
----Program----
#!/usr/bin/perl -l
sub TIESCALAR {
my $foo = $_[1];
bless \$foo, "main";
};
sub FETCH { ${ $_[0]} };
tie my $x, "main", 2;
tie my $y, "main", 8;
print $x | $y;
----Output of .../p7dcK3N/perl-5.9.0@22071/bin/perl----
:
----EOF ($?='0')----
----Output of .../pvpF9Iw/perl-5.9.0@22074/bin/perl----
10
----EOF ($?='0')----
--
andreas
Thread Previous
|
Thread Next