diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-09-12 08:52:50 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-09-12 08:52:50 +0000 |
| commit | 5782d502273e5b6d06607ebe625248c4c102d93b (patch) | |
| tree | 145c2e7e1d1116b4b8a59a2b2e0a45bad6f7250c /t | |
| parent | a49ba3fcbe357fbacf7b9898df08daa2cbdfc8c4 (diff) | |
| download | perl-5782d502273e5b6d06607ebe625248c4c102d93b.tar.gz | |
Need to free the isa lookup hash before rebuilding it.
p4raw-id: //depot/perl@34355
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/universal.t | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/t/op/universal.t b/t/op/universal.t index 83916ee5f5..f1c0323c67 100755 --- a/t/op/universal.t +++ b/t/op/universal.t @@ -10,7 +10,7 @@ BEGIN { require "./test.pl"; } -plan tests => 112; +plan tests => 116; $a = {}; bless $a, "Bob"; @@ -234,3 +234,14 @@ like( $@, qr/Can't call method "DOES" on unblessed reference/, # http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-05/msg01710.html # but never actually tested. is(UNIVERSAL->can("NoSuchPackage::foo"), undef); + +@splatt::ISA = 'zlopp'; +ok (splatt->isa('zlopp')); +ok (!splatt->isa('plop')); + +# This should reset the ->isa lookup cache +@splatt::ISA = 'plop'; +# And here is the new truth. +ok (!splatt->isa('zlopp')); +ok (splatt->isa('plop')); + |