This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
tweak bogus test
authorGurusamy Sarathy <gsar@cpan.org>
Sat, 28 Nov 1998 13:36:08 +0000 (13:36 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sat, 28 Nov 1998 13:36:08 +0000 (13:36 +0000)
p4raw-id: //depot/perl@2347

t/op/method.t

index f1b1888..3372498 100755 (executable)
@@ -125,4 +125,4 @@ test(A->eee(), "new B: In A::eee, 4");      # We get a correct $autoload
 test(A->eee(), "new B: In A::eee, 4"); # Which sticks
 
 # this test added due to bug discovery
-test(defined(@{"unknown_package::ISA"}) ? "defined" : "undefined", "undefined");
+test(exists($unknown_package::{"ISA"}) ? "defined" : "undefined", "undefined");