t/lib/warnings/perl

   1   perl.c        AOK
   2
   3   gv_check(defstash)
   4         Name \"%s::%s\" used only once: possible typo
   5
   6   Mandatory Warnings All TODO
   7   ------------------
   8   Recompile perl with -DDEBUGGING to use -D switch      [moreswitches]
   9   Unbalanced scopes: %ld more ENTERs than LEAVEs        [perl_destruct]
  10   Unbalanced saves: %ld more saves than restores        [perl_destruct]
  11   Unbalanced tmps: %ld more allocs than frees           [perl_destruct]
  12   Unbalanced context: %ld more PUSHes than POPs         [perl_destruct]
  13   Unbalanced string table refcount: (%d) for \"%s\"     [perl_destruct]
  14   Scalars leaked: %ld                                   [perl_destruct]
  15
  16
  17 __END__
  18 # perl.c
  19 no warnings 'once' ;
  20 $x = 3 ;
  21 use warnings 'once' ;
  22 $z = 3 ;
  23 EXPECT
  24 Name "main::z" used only once: possible typo at - line 5.
  25 ########
  26 -w
  27 # perl.c
  28 $x = 3 ;
  29 no warnings 'once' ;
  30 $z = 3
  31 EXPECT
  32 Name "main::x" used only once: possible typo at - line 3.
  33 ########
  34 # perl.c
  35 BEGIN { $^W =1 ; }
  36 $x = 3 ;
  37 no warnings 'once' ;
  38 $z = 3
  39 EXPECT
  40 Name "main::x" used only once: possible typo at - line 3.
  41 ########
  42 -W
  43 # perl.c
  44 no warnings 'once' ;
  45 $x = 3 ;
  46 use warnings 'once' ;
  47 $z = 3 ;
  48 EXPECT
  49 Name "main::z" used only once: possible typo at - line 6.
  50 Name "main::x" used only once: possible typo at - line 4.
  51 ########
  52 -X
  53 # perl.c
  54 use warnings 'once' ;
  55 $x = 3 ;
  56 EXPECT
  57 ########
  58
  59 # perl.c
  60 { use warnings 'once' ; $x = 3 ; }
  61 $y = 3 ;
  62 EXPECT
  63 Name "main::x" used only once: possible typo at - line 3.
  64 ########
  65
  66 # perl.c
  67 $z = 3 ;
  68 BEGIN { $^W = 1 }
  69 { no warnings 'once' ; $x = 3 ; }
  70 $y = 3 ;
  71 EXPECT
  72 Name "main::y" used only once: possible typo at - line 6.