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

########

# perl.c

{ use warnings 'once' ; $x = 3 ; }

$y = 3 ;

EXPECT

Name "main::x" used only once: possible typo at - line 3.

########

# perl.c

$z = 3 ;

BEGIN { $^W = 1 }

{ no warnings 'once' ; $x = 3 ; }

$y = 3 ;

EXPECT

Name "main::y" used only once: possible typo at - line 6.