[perl5.git] / t / lib / warnings / universal

  universal.c AOK

  Can't locate package %s for @%s::ISA	[S_isa_lookup]
      

__END__
# universal.c [S_isa_lookup]
print("SKIPPED\n# todo fix: overloading triggers spurious warnings\n"),exit;
use warnings 'misc' ;
@ISA = qw(Joe) ;
my $a = bless [] ;
UNIVERSAL::isa $a, Jim ;
EXPECT
Can't locate package Joe for @main::ISA at - line 5.
########
# universal.c [S_isa_lookup]
print("SKIPPED\n# todo fix: overloading triggers spurious warnings\n"),exit;
use warnings 'misc' ;
use utf8;
use open qw( :utf8 :std );
package Ｙ;
@ISA = qw(Joe) ;
my $a = bless [] ;
UNIVERSAL::isa $a, Jim ;
EXPECT
Can't locate package Joe for @Ｙ::ISA at - line 8.
Commit	Line	Data
767a6a26	1	universal.c AOK
599cee73	2
767a6a26 PM	3	Can't locate package %s for @%s::ISA [S_isa_lookup]
767a6a26 PM	4
599cee73 PM	5
	6
	7	__END__
767a6a26	8	# universal.c [S_isa_lookup]
b0f01acb	9	print("SKIPPED\n# todo fix: overloading triggers spurious warnings\n"),exit;
4438c4b7	10	use warnings 'misc' ;
767a6a26 PM	11	@ISA = qw(Joe) ;
	12	my $a = bless [] ;
	13	UNIVERSAL::isa $a, Jim ;
599cee73	14	EXPECT
767a6a26	15	Can't locate package Joe for @main::ISA at - line 5.
012bcf7e BF	16	########
	17	# universal.c [S_isa_lookup]
	18	print("SKIPPED\n# todo fix: overloading triggers spurious warnings\n"),exit;
	19	use warnings 'misc' ;
	20	use utf8;
	21	use open qw( :utf8 :std );
	22	package Ｙ;
	23	@ISA = qw(Joe) ;
	24	my $a = bless [] ;
	25	UNIVERSAL::isa $a, Jim ;
	26	EXPECT
	27	Can't locate package Joe for @Ｙ::ISA at - line 8.