t/pragma/warn/gv

   1   gv.c AOK
   2
   3      Can't locate package %s for @%s::ISA
   4         @ISA = qw(Fred); joe()
   5
   6      Use of inherited AUTOLOAD for non-method %s::%.*s() is deprecated
   7         sub Other::AUTOLOAD { 1 } sub Other::fred {}
   8         @ISA = qw(Other) ;
   9         fred() ;
  10
  11      Use of $# is deprecated
  12      Use of $* is deprecated
  13
  14         $a = ${"#"} ;
  15         $a = ${"*"} ;
  16
  17
  18 __END__
  19 # gv.c
  20 use warning 'misc' ;
  21 @ISA = qw(Fred); joe()
  22 EXPECT
  23 Can't locate package Fred for @main::ISA at - line 3.
  24 Undefined subroutine &main::joe called at - line 3.
  25 ########
  26 # gv.c
  27 sub Other::AUTOLOAD { 1 } sub Other::fred {}
  28 @ISA = qw(Other) ;
  29 use warning 'deprecated' ;
  30 fred() ;
  31 EXPECT
  32 Use of inherited AUTOLOAD for non-method main::fred() is deprecated at - line 5.
  33 ########
  34 # gv.c
  35 use warning 'deprecated' ;
  36 $a = ${"#"};
  37 $a = ${"*"};
  38 EXPECT
  39 Use of $# is deprecated at - line 3.
  40 Use of $* is deprecated at - line 4.