Move the locale/strict/warnings helper files back
[p5sagit/p5-mst-13.2.git] / 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.