p5pRT
commented
22 years ago From argggh@linpro.no
Created by argggh@linpro.no
(Resent\, apologies if it turns up twice.)
I'm experiencing what I consider to be strange behaviour regarding nested FETCH-calls on tied hashes. Given the following program:
#!/usr/bin/perl -l
use strict;
package Foo;
sub TIEHASH { bless [$]] }
sub FETCH {
my ($self\, $key) = @_;
$main::bar{5} if $main::zoo;
return $self;
}
package Bar;
sub TIEHASH { bless [13] }
sub FETCH { return 1; }
package main;
use vars qw(%foo %bar $zoo);
tie %foo\, 'Foo';
tie %bar\, 'Bar';
print $foo{5}[0];
$zoo = 1;
print $foo{5}[0];
I'm expecting $] to be printed twice. Instead I get:
$ ./test-bug.pl 5.00503 Can't use an undefined value as an ARRAY reference at ./test-bug.pl line 34. $
Why is this? If I replace $foo{5}[0] with $foo{5} in the last lines the output is the more sane:
$ ./test-bug.pl Foo=ARRAY(0x80d3030) Foo=ARRAY(0x80d3030) $
Which makes me assume that the above is not intended behaviour.
This seems to happen with Perl 5.8rc3 as well as my standard Debian Woody Perl 5.6.1.
Thanks\,
Arne.
Migrated from rt.perl.org#10080 (status was 'resolved')
Searchable as RT10080$