58 lines
1.2 KiB
Plaintext
58 lines
1.2 KiB
Plaintext
perl.c AOK
|
|
|
|
gv_check(defstash)
|
|
Name \"%s::%s\" used only once: possible typo
|
|
|
|
Mandatory Warnings All TODO
|
|
------------------
|
|
Recompile perl with -DDEBUGGING to use -D switch [moreswitches]
|
|
Unbalanced scopes: %ld more ENTERs than LEAVEs [perl_destruct]
|
|
Unbalanced saves: %ld more saves than restores [perl_destruct]
|
|
Unbalanced tmps: %ld more allocs than frees [perl_destruct]
|
|
Unbalanced context: %ld more PUSHes than POPs [perl_destruct]
|
|
Unbalanced string table refcount: (%d) for \"%s\" [perl_destruct]
|
|
Scalars leaked: %ld [perl_destruct]
|
|
|
|
|
|
__END__
|
|
# perl.c
|
|
no warnings 'once' ;
|
|
$x = 3 ;
|
|
use warnings 'once' ;
|
|
$z = 3 ;
|
|
EXPECT
|
|
Name "main::z" used only once: possible typo at - line 5.
|
|
########
|
|
-w
|
|
# perl.c
|
|
$x = 3 ;
|
|
no warnings 'once' ;
|
|
$z = 3
|
|
EXPECT
|
|
Name "main::x" used only once: possible typo at - line 3.
|
|
########
|
|
# perl.c
|
|
BEGIN { $^W =1 ; }
|
|
$x = 3 ;
|
|
no warnings 'once' ;
|
|
$z = 3
|
|
EXPECT
|
|
Name "main::x" used only once: possible typo at - line 3.
|
|
########
|
|
-W
|
|
# perl.c
|
|
no warnings 'once' ;
|
|
$x = 3 ;
|
|
use warnings 'once' ;
|
|
$z = 3 ;
|
|
EXPECT
|
|
Name "main::x" used only once: possible typo at - line 4.
|
|
Name "main::z" used only once: possible typo at - line 6.
|
|
########
|
|
-X
|
|
# perl.c
|
|
use warnings 'once' ;
|
|
$x = 3 ;
|
|
EXPECT
|
|
|