Front page | perl.perl5.porters |
Postings from April 2008
$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.
A workarround is to use
Readonly our $RETACT_EVERYTHING => 0|$RETACT_DO_RETURN|
$RETACT_DO_CANCEL|$RETACT_DO_MARK_FRAUD|$RETACT_DO_EMAIL_CONFIRM;
Kind regards,
Bram
Thread Previous
|
Thread Next