Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
1global	3.5 KB	-r--r--r--	2014-12-27 11:49
2use	6.5 KB	-r--r--r--	2014-12-27 11:49
3both	4.01 KB	-r--r--r--	2014-12-27 11:49
4lint	4.06 KB	-r--r--r--	2014-12-27 11:49
5nolint	2.75 KB	-r--r--r--	2014-12-27 11:49
6default	2.96 KB	-r--r--r--	2014-12-27 11:49
7fatal	10.96 KB	-r--r--r--	2014-12-27 11:49
8signal	434 B	-r--r--r--	2014-12-27 11:49
9enabled	21.79 KB	-r--r--r--	2014-12-27 11:49
9uninit	63.97 KB	-r--r--r--	2014-12-27 11:49
av	160 B	-r--r--r--	2014-12-27 11:49
doio	9.3 KB	-r--r--r--	2014-12-27 11:49
doop	71 B	-r--r--r--	2014-12-27 11:49
gv	5.57 KB	-r--r--r--	2014-12-27 11:49
hv	130 B	-r--r--r--	2014-12-27 11:49
irs	413 B	-r--r--r--	2014-12-27 11:49
malloc	152 B	-r--r--r--	2014-12-27 11:49
mg	1.17 KB	-r--r--r--	2014-12-27 11:49
op	51.38 KB	-r--r--r--	2014-12-27 11:49
pad	8.98 KB	-r--r--r--	2014-12-27 11:49
perl	4.86 KB	-r--r--r--	2014-12-27 11:49
perlio	1.12 KB	-r--r--r--	2014-12-27 11:49
pp	2.54 KB	-r--r--r--	2014-12-27 11:49
pp_ctl	4.35 KB	-r--r--r--	2014-12-27 11:49
pp_hot	8.28 KB	-r--r--r--	2014-12-27 11:49
pp_pack	2.06 KB	-r--r--r--	2014-12-27 11:49
pp_sys	21.25 KB	-r--r--r--	2015-01-11 14:00
regcomp	324 B	-r--r--r--	2014-12-27 11:49
regexec	3.14 KB	-r--r--r--	2014-12-27 11:49
run	94 B	-r--r--r--	2014-12-27 11:49
sv	8.87 KB	-r--r--r--	2014-12-27 11:49
taint	970 B	-r--r--r--	2014-12-27 11:49
toke	34.17 KB	-r--r--r--	2014-12-27 11:49
universal	646 B	-r--r--r--	2014-12-27 11:49
utf8	19.65 KB	-r--r--r--	2014-12-27 11:49
util	2.95 KB	-r--r--r--	2014-12-27 11:49

Rename

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.
########
# perl.c
use warnings 'once';
$\; # test a few
$:; # punct vars
$0; # and
$123; # numbers
$_;    # and
$_foo;  # underscores (none of which should warn)
EXPECT
########
-W
# perl.c
no warnings 'once' ;
$x = 3 ;
use warnings 'once' ;
$z = 3 ;
EXPECT
OPTION random
Name "main::z" used only once: possible typo at - line 6.
Name "main::x" used only once: possible typo at - line 4.
########
-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.
########

# perl.c
use utf8;
use open qw( :utf8 :std );
no warnings 'once' ;
$ᛪ = 3 ;
use warnings 'once' ;
$ȥ = 3 ;
EXPECT
Name "main::ȥ" used only once: possible typo at - line 8.
########
-w
# perl.c
use utf8;
use open qw( :utf8 :std );
$ᛪ = 3 ;
no warnings 'once' ;
$ȥ = 3;
EXPECT
Name "main::ᛪ" used only once: possible typo at - line 5.
########
# perl.c
use utf8;
use open qw( :utf8 :std );
BEGIN { $^W =1 ; }
$ᛪ = 3 ;
no warnings 'once' ;
$ȥ = 3 
EXPECT
Name "main::ᛪ" used only once: possible typo at - line 5.
########
-W
# perl.c
use utf8;
use open qw( :utf8 :std );
no warnings 'once' ;
$ᛪ = 3 ;
use warnings 'once' ;
$ȥ = 3 ;
EXPECT
OPTION random
Name "main::ȥ" used only once: possible typo at - line 8.
Name "main::ᛪ" used only once: possible typo at - line 6.
########
-X
# perl.c
use utf8;
use open qw( :utf8 :std );
use warnings 'once' ;
$ᛪ = 3 ;
EXPECT
########

# perl.c
use utf8;
use open qw( :utf8 :std );
{ use warnings 'once' ; $ᛪ = 3 ; }
$ŷ = 3 ;
EXPECT
Name "main::ᛪ" used only once: possible typo at - line 5.
########

# perl.c
use utf8;
use open qw( :utf8 :std );
$ȥ = 3 ;
BEGIN { $^W = 1 }
{ no warnings 'once' ; $ᛪ = 3 ; }
$ŷ = 3 ;
EXPECT
Name "main::ŷ" used only once: possible typo at - line 8.
########

# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
no warnings 'once' ;
$ᛪ = 3 ;
use warnings 'once' ;
$ȥ = 3 ;
EXPECT
Name "ɕლȃṢȿ::ȥ" used only once: possible typo at - line 10.
########
-w
# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
$ᛪ = 3 ;
no warnings 'once' ;
$ȥ = 3 
EXPECT
Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 6.
########
# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
BEGIN { $^W =1 ; }
$ᛪ = 3 ;
no warnings 'once' ;
$ȥ = 3 
EXPECT
Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 6.
########
-W
# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
no warnings 'once' ;
$ᛪ = 3 ;
use warnings 'once' ;
$ȥ = 3 ;
EXPECT
OPTION random
Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 7.
Name "ɕლȃṢȿ::ȥ" used only once: possible typo at - line 9.
########
-X
# perl.c
use utf8;
use open qw( :utf8 :std );
use warnings 'once' ;
package ɕლȃṢȿ;
$ᛪ = 3 ;
EXPECT
########

# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
{ use warnings 'once' ; $ᛪ = 3 ; }
$ŷ = 3 ;
EXPECT
Name "ɕლȃṢȿ::ᛪ" used only once: possible typo at - line 6.
########

# perl.c
use utf8;
use open qw( :utf8 :std );
package ɕლȃṢȿ;
$ȥ = 3 ;
BEGIN { $^W = 1 }
{ no warnings 'once' ; $ᛪ = 3 ; }
$ŷ = 3 ;
EXPECT
Name "ɕლȃṢȿ::ŷ" used only once: possible typo at - line 9.
########

use warnings 'once';
$foo++; BEGIN { eval q|@a =~ s///; sub foo;| }
EXPECT
Name "main::foo" used only once: possible typo at - line 3.
########

use warnings 'once';
BEGIN { ${"_<".__FILE__} = \1 } # should not affect file name in warning
$foo++;
EXPECT
Name "main::foo" used only once: possible typo at - line 4.
########

use warnings 'once'; # necessary to trigger the crash
BEGIN{*MUSHROOMS::mushrooms::MUSHROOMS:: = *MUSHROOMS::} # circularity
$foo++;
EXPECT
Name "main::foo" used only once: possible typo at - line 4.