Commit | Line | Data |
599cee73 |
1 | perl.c AOK |
2 | |
3 | gv_check(defstash) |
4 | Name \"%s::%s\" used only once: possible typo |
5 | |
0453d815 |
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 | |
599cee73 |
16 | |
17 | __END__ |
18 | # perl.c |
4438c4b7 |
19 | no warnings 'once' ; |
0453d815 |
20 | $x = 3 ; |
4438c4b7 |
21 | use warnings 'once' ; |
0453d815 |
22 | $z = 3 ; |
23 | EXPECT |
24 | Name "main::z" used only once: possible typo at - line 5. |
25 | ######## |
26 | -w |
27 | # perl.c |
599cee73 |
28 | $x = 3 ; |
4438c4b7 |
29 | no warnings 'once' ; |
0453d815 |
30 | $z = 3 |
599cee73 |
31 | EXPECT |
32 | Name "main::x" used only once: possible typo at - line 3. |
0453d815 |
33 | ######## |
34 | # perl.c |
35 | BEGIN { $^W =1 ; } |
36 | $x = 3 ; |
4438c4b7 |
37 | no warnings 'once' ; |
0453d815 |
38 | $z = 3 |
39 | EXPECT |
40 | Name "main::x" used only once: possible typo at - line 3. |
41 | ######## |
42 | -W |
43 | # perl.c |
4438c4b7 |
44 | no warnings 'once' ; |
0453d815 |
45 | $x = 3 ; |
4438c4b7 |
46 | use warnings 'once' ; |
0453d815 |
47 | $z = 3 ; |
48 | EXPECT |
247c8d76 |
49 | OPTION random |
0453d815 |
50 | Name "main::z" used only once: possible typo at - line 6. |
a6fe520e |
51 | Name "main::x" used only once: possible typo at - line 4. |
0453d815 |
52 | ######## |
53 | -X |
54 | # perl.c |
4438c4b7 |
55 | use warnings 'once' ; |
0453d815 |
56 | $x = 3 ; |
57 | EXPECT |
7272584d |
58 | ######## |
0453d815 |
59 | |
7272584d |
60 | # perl.c |
61 | { use warnings 'once' ; $x = 3 ; } |
62 | $y = 3 ; |
63 | EXPECT |
64 | Name "main::x" used only once: possible typo at - line 3. |
65 | ######## |
66 | |
67 | # perl.c |
68 | $z = 3 ; |
69 | BEGIN { $^W = 1 } |
70 | { no warnings 'once' ; $x = 3 ; } |
71 | $y = 3 ; |
72 | EXPECT |
73 | Name "main::y" used only once: possible typo at - line 6. |