in reply to Re: Have I found a bug in Perl?
in thread Have I found a bug in Perl?
#!/usr/bin/perl -w use strict; print "Setting \@Foo::ISA = ()\n"; @Foo::ISA = (); print "UNIVERSAL::isa( 'Foo', 'UNIVERSAL' ) == '" . UNIVERSAL::isa( 'F +oo', 'UNIVERSAL' ) . "'\n"; print "UNIVERSAL::isa( 'Foo', 'UNIVERSAL' ) == '" . UNIVERSAL::isa( 'F +oo', 'UNIVERSAL' ) . "'\n"; print "UNIVERSAL::isa( 'Foo', 'UNIVERSAL' ) == '" . UNIVERSAL::isa( 'F +oo', 'UNIVERSAL' ) . "'\n"; exit(); ... resulting in ... Setting @Foo::ISA = () UNIVERSAL::isa( 'Foo', 'UNIVERSAL' ) == '1' UNIVERSAL::isa( 'Foo', 'UNIVERSAL' ) == '' UNIVERSAL::isa( 'Foo', 'UNIVERSAL' ) == ''
|
|---|