t/pragma/warn/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::x" used only once: possible typo at - line 4.
  50 Name "main::z" used only once: possible typo at - line 6.
  51 ########
  52 -X
  53 # perl.c
  54 use warnings 'once' ;
  55 $x = 3 ;
  56 EXPECT
  57