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   Mandatory Warnings ALL TODO
  18   ------------------
  19
  20     Had to create %s unexpectedly               [gv_fetchpv]
  21     Attempt to free unreferenced glob pointers  [gp_free]
  22
  23 __END__
  24 # gv.c
  25 use warnings 'misc' ;
  26 @ISA = qw(Fred); joe()
  27 EXPECT
  28 Can't locate package Fred for @main::ISA at - line 3.
  29 Undefined subroutine &main::joe called at - line 3.
  30 ########
  31 # gv.c
  32 no warnings 'misc' ;
  33 @ISA = qw(Fred); joe()
  34 EXPECT
  35 Undefined subroutine &main::joe called at - line 3.
  36 ########
  37 # gv.c
  38 sub Other::AUTOLOAD { 1 } sub Other::fred {}
  39 @ISA = qw(Other) ;
  40 use warnings 'deprecated' ;
  41 fred() ;
  42 EXPECT
  43 Use of inherited AUTOLOAD for non-method main::fred() is deprecated at - line 5.
  44 ########
  45 # gv.c
  46 use warnings 'deprecated' ;
  47 $a = ${"#"};
  48 $a = ${"*"};
  49 no warnings 'deprecated' ;
  50 $a = ${"#"};
  51 $a = ${"*"};
  52 EXPECT
  53 Use of $# is deprecated at - line 3.
  54 Use of $* is deprecated at - line 4.