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

pp.c	TODO

substr outside of string
    $a = "ab" ; $b = substr($a, 4,5) ;

Attempt to use reference as lvalue in substr 
    $a = "ab" ; $b = \$a ;  substr($b, 1,1) = $b

Use of uninitialized value in scalar dereference	[pp_rv2sv()]
	my $a = undef ; my $b = $$a

Odd number of elements in hash list
	my $a = { 1,2,3 } ;

Explicit blessing to '' (assuming package main)
	bless \[], "";

Constant subroutine %s undefined
	sub foo () { 1 }; undef &foo;

Constant subroutine (anonymous) undefined
	$foo = sub () { 3 }; undef &$foo;

__END__
# pp.c
use warnings 'substr' ;
$a = "ab" ; 
$b = substr($a, 4,5) ;
no warnings 'substr' ;
$a = "ab" ; 
$b = substr($a, 4,5)  ;
EXPECT
substr outside of string at - line 4.
########
# pp.c
use warnings 'substr' ;
$a = "ab" ; 
$b = \$a ;  
substr($b, 1,1) = "ab" ;
$b = \$a;
substr($b, 1,1) = "\x{100}" ;
no warnings 'substr' ;
$b = \$a;
substr($b, 1,1) = "ab" ;
$b = \$a;
substr($b, 1,1) = "\x{100}" ;
EXPECT
Attempt to use reference as lvalue in substr at - line 5.
Attempt to use reference as lvalue in substr at - line 7.
########
# pp.c
use warnings 'misc' ;
@a = qw( a b c );
splice(@a, 4, 0, 'e') ;
@a = qw( a b c );
splice(@a, 4, 1) ;
@a = qw( a b c );
splice(@a, 4) ;
no warnings 'misc' ;
@a = qw( a b c );
splice(@a, 4, 0, 'e') ;
@a = qw( a b c );
splice(@a, 4, 1) ;
@a = qw( a b c );
splice(@a, 4) ;
EXPECT
splice() offset past end of array at - line 4.
splice() offset past end of array at - line 6.
########
# pp.c
use warnings 'uninitialized';
$x = undef; $y = $$x;
no warnings 'uninitialized' ;
$u = undef; $v = $$u;
EXPECT
Use of uninitialized value $x in scalar dereference at - line 3.
########
# pp.c
use warnings 'misc' ;
my $a = { 1,2,3};
no warnings 'misc' ;
my $b = { 1,2,3};
EXPECT
Odd number of elements in anonymous hash at - line 3.
########
# pp.c
use warnings 'misc' ;
bless \[], "" ;
no warnings 'misc' ;
bless \[], "" ;
EXPECT
Explicit blessing to '' (assuming package main) at - line 3.
########
# pp.c
use warnings 'misc';
sub foo () { 1 }
undef &foo;
no warnings 'misc';
sub bar () { 2 }
undef &bar;
EXPECT
Constant subroutine foo undefined at - line 4.
########
# pp.c
use utf8;
use open qw( :utf8 :std );
use warnings 'misc';
sub ฝᶱ () { 1 }
undef &ฝᶱ;
no warnings 'misc';
sub ƚ () { 2 }
undef &ƚ;
EXPECT
Constant subroutine ฝᶱ undefined at - line 6.
########
# pp.c
use warnings 'misc';
$foo = sub () { 3 };
undef &$foo;
no warnings 'misc';
$bar = sub () { 4 };
undef &$bar;
EXPECT
Constant subroutine (anonymous) undefined at - line 4.
########
# pp.c
use utf8 ;
$_ = "\x80  \xff" ;
reverse ;
EXPECT