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

Check interaction of $^W and lexical

__END__

# Check interaction of $^W and use warnings
sub fred { 
    use warnings ;
    my $b ; 
    chop $b ;
}
{ local $^W = 0 ;
  fred() ;
}

EXPECT
Use of uninitialized value $b in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
sub fred { 
    use warnings ;
    my $b ; 
    chop $b ;
}
{ $^W = 0 ;
  fred() ;
}

EXPECT
Use of uninitialized value $b in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
sub fred { 
    no warnings ;
    my $b ; 
    chop $b ;
}
{ local $^W = 1 ;
  fred() ;
}

EXPECT

########

# Check interaction of $^W and use warnings
sub fred { 
    no warnings ;
    my $b ; 
    chop $b ;
}
{ $^W = 1 ;
  fred() ;
}

EXPECT

########

# Check interaction of $^W and use warnings
use warnings ;
$^W = 1 ;
my $b ; 
chop $b ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
$^W = 1 ;
use warnings ;
my $b ; 
chop $b ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
$^W = 1 ;
no warnings ;
my $b ; 
chop $b ;
EXPECT

########

# Check interaction of $^W and use warnings
no warnings ;
$^W = 1 ;
my $b ; 
chop $b ;
EXPECT

########
-w
# Check interaction of $^W and use warnings
no warnings ;
my $b ; 
chop $b ;
EXPECT

########
-w
# Check interaction of $^W and use warnings
use warnings ;
my $b ; 
chop $b ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 5.
########

# Check interaction of $^W and use warnings
sub fred { 
    use warnings ;
    my $b ; 
    chop $b ;
}
BEGIN {  $^W = 0 }
fred() ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
sub fred { 
    no warnings ;
    my $b ; 
    chop $b ;
}
BEGIN {  $^W = 1 }
fred() ;

EXPECT

########

# Check interaction of $^W and use warnings
use warnings ;
BEGIN {  $^W = 1 }
my $b ; 
chop $b ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
BEGIN {  $^W = 1 }
use warnings ;
my $b ; 
chop $b ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 6.
########

# Check interaction of $^W and use warnings
BEGIN {  $^W = 1 }
no warnings ;
my $b ; 
chop $b ;
EXPECT

########

# Check interaction of $^W and use warnings
no warnings ;
BEGIN {  $^W = 1 }
my $b ; 
chop $b ;
EXPECT

########

# Check interaction of $^W and use warnings
BEGIN {  $^W = 1 }
{
    no warnings ;
    my $b ; 
    chop $b ;
}
my $b ;
chop $b ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 10.
########

# Check interaction of $^W and use warnings
BEGIN {  $^W = 0 }
{
    use warnings ;
    my $b ; 
    chop $b ;
}
my $b ;
chop $b ;
EXPECT
Use of uninitialized value $b in scalar chop at - line 7.
########

# Check scope of pragma with eval
BEGIN {  $^W = 1 }
{
    no warnings ;
    eval '
        my $b ; chop $b ;
    '; print STDERR $@ ;
    my $b ; chop $b ;
}
EXPECT

########

# Check scope of pragma with eval
BEGIN {  $^W = 1 }
use warnings;
{
    no warnings ;
    eval q[ 
        use warnings 'uninitialized' ;
        my $b ; chop $b ;
    ]; print STDERR $@;
    my $b ; chop $b ;
}
EXPECT
Use of uninitialized value $b in scalar chop at (eval 1) line 3.
########

# Check scope of pragma with eval
BEGIN {  $^W = 0 }
{
    use warnings 'uninitialized' ;
    eval '
        my $b ; chop $b ;
    '; print STDERR $@ ;
    my $b ; chop $b ;
}
EXPECT
Use of uninitialized value $b in scalar chop at (eval 1) line 2.
Use of uninitialized value $b in scalar chop at - line 9.
########

# Check scope of pragma with eval
BEGIN {  $^W = 0 }
{
    use warnings 'uninitialized' ;
    eval '
        no warnings ;
        my $b ; chop $b ;
    '; print STDERR $@ ;
    my $b ; chop $b ;
}
EXPECT
Use of uninitialized value $b in scalar chop at - line 10.
########

# Check scope of pragma with eval
BEGIN {  $^W = 1 }
{
    no warnings ;
    eval '
        my $a =+ 1 ;
    '; print STDERR $@ ;
    my $a =+ 1 ;
}
EXPECT