diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2003-07-17 22:51:12 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-07-18 06:21:15 +0000 |
| commit | a1d407e84f3b3d7067df3576c788e85a4b4857e5 (patch) | |
| tree | bed478317aa7d4a8a1b0a07b43642dd56ae783a0 /t | |
| parent | 0615a99403886355a89a1cb45b8c609e4424870a (diff) | |
| download | perl-a1d407e84f3b3d7067df3576c788e85a4b4857e5.tar.gz | |
[ PATCH] Re: isa(UNIVERSAL)?
Message-ID: <20030717205112.GA2994@fdgroup.com>
p4raw-id: //depot/perl@20168
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/universal.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/op/universal.t b/t/op/universal.t index 7d5f59ae6d..71daf675cf 100755 --- a/t/op/universal.t +++ b/t/op/universal.t @@ -9,7 +9,7 @@ BEGIN { $| = 1; } -print "1..98\n"; +print "1..100\n"; $a = {}; bless $a, "Bob"; @@ -187,3 +187,11 @@ test ! UNIVERSAL::isa("\xff\xff\xff\0", 'HASH'); ::test $x->isa("Human"); ::test $x->can("eat"); } + +# bugid 3284 +# a second call to isa('UNIVERSAL') when @ISA is null failed due to caching + +@X::ISA=(); +my $x = {}; bless $x, 'X'; +test $x->isa('UNIVERSAL'); +test $x->isa('UNIVERSAL'); |