t/lib/warnings/universal

   1   universal.c AOK
   2
   3   Can't locate package %s for @%s::ISA  [S_isa_lookup]
   4
   5
   6
   7 __END__
   8 # universal.c [S_isa_lookup]
   9 print("SKIPPED\n# todo fix: overloading triggers spurious warnings\n"),exit;
  10 use warnings 'misc' ;
  11 @ISA = qw(Joe) ;
  12 my $a = bless [] ;
  13 UNIVERSAL::isa $a, Jim ;
  14 EXPECT
  15 Can't locate package Joe for @main::ISA at - line 5.
  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.