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_ctl.c	AOK
 
     Not enough format arguments	
 	format STDOUT =
 	@<<< @<<<
 	$a
 	.
 	write;

Exiting substitution via %s
	$_ = "abc" ;
	while ($i ++ == 0)
	{
    	    s/ab/last/e ;
	}

Exiting subroutine via %s		
	sub fred { last }
	{ fred() }

Exiting eval via %s	
	{ eval "last" }

Exiting pseudo-block via %s 
	@a = (1,2) ; @b = sort { last } @a ;

Exiting substitution via %s
	$_ = "abc" ;
	last fred:
	while ($i ++ == 0)
	{
    	    s/ab/last fred/e ;
	}

Exiting subroutine via %s
	sub fred { last joe }
	joe: { fred() }

Exiting eval via %s
	fred: { eval "last fred" }

Exiting pseudo-block via %s 
	@a = (1,2) ; fred: @b = sort { last fred } @a ;

Deep recursion on subroutine \"%s\"
	sub fred
	{
    	  fred() if $a++ < 200
	}
	 
	fred()

(in cleanup) foo bar
	package Foo;
	DESTROY { die "foo bar" }
	{ bless [], 'Foo' for 1..10 }

__END__
# pp_ctl.c
use warnings 'syntax' ;
format STDOUT =
@<<< @<<<
1
.
write;
EXPECT
Not enough format arguments at - line 5.
1
########
# pp_ctl.c
no warnings 'syntax' ;
format =
@<<< @<<<
1
.
write ;
EXPECT
1
########
# pp_ctl.c
use warnings 'exiting' ;
$_ = "abc" ;
 
while ($i ++ == 0)
{
    s/ab/last/e ;
}
no warnings 'exiting' ;
while ($i ++ == 0)
{
    s/ab/last/e ;
}
EXPECT
Exiting substitution via last at - line 7.
########
# pp_ctl.c
use warnings 'exiting' ;
sub fred { last }
{ fred() }
no warnings 'exiting' ;
sub joe { last }
{ joe() }
EXPECT
Exiting subroutine via last at - line 3.
########
# pp_ctl.c
{
  eval "use warnings 'exiting' ; last;" 
}
print STDERR $@ ;
{
  eval "no warnings 'exiting' ;last;" 
} 
print STDERR $@ ;
EXPECT
Exiting eval via last at (eval 1) line 1.
########
# pp_ctl.c
use warnings 'exiting' ;
@a = (1,2) ;
@b = sort { last } @a ;
no warnings 'exiting' ;
@b = sort { last } @a ;
EXPECT
Exiting pseudo-block via last at - line 4.
Can't "last" outside a loop block at - line 4.
########
# pp_ctl.c
use warnings 'exiting' ;
$_ = "abc" ;
fred: 
while ($i ++ == 0)
{
    s/ab/last fred/e ;
}
no warnings 'exiting' ;
while ($i ++ == 0)
{
    s/ab/last fred/e ;
}
EXPECT
Exiting substitution via last at - line 7.
########
# pp_ctl.c
use warnings 'exiting' ;
sub fred { last joe }
joe: { fred() }
no warnings 'exiting' ;
sub Fred { last Joe }
Joe: { Fred() }
EXPECT
Exiting subroutine via last at - line 3.
########
# pp_ctl.c
joe:
{ eval "use warnings 'exiting' ; last joe;" }
print STDERR $@ ;
Joe:
{ eval "no warnings 'exiting' ; last Joe;" }
print STDERR $@ ;
EXPECT
Exiting eval via last at (eval 1) line 1.
########
# pp_ctl.c
use warnings 'exiting' ;
@a = (1,2) ;
fred: @b = sort { last fred } @a ;
no warnings 'exiting' ;
Fred: @b = sort { last Fred } @a ;
EXPECT
Exiting pseudo-block via last at - line 4.
Label not found for "last fred" at - line 4.
########
# pp_ctl.c
use warnings 'recursion' ;
BEGIN { warn "PREFIX\n" ;}
sub fred
{
    fred() if $a++ < 200
}
 
fred()
EXPECT
Deep recursion on subroutine "main::fred" at - line 6.
########
# pp_ctl.c
no warnings 'recursion' ;
BEGIN { warn "PREFIX\n" ;}
sub fred
{
    fred() if $a++ < 200
}
 
fred()
EXPECT
########
# pp_ctl.c
use warnings 'misc' ;
package Foo;
DESTROY { die "@{$_[0]} foo bar" }
{ bless ['A'], 'Foo' for 1..10 }
{ bless ['B'], 'Foo' for 1..10 }
EXPECT
	(in cleanup) A foo bar at - line 4.
	(in cleanup) A foo bar at - line 4.
	(in cleanup) A foo bar at - line 4.
	(in cleanup) A foo bar at - line 4.
	(in cleanup) A foo bar at - line 4.
	(in cleanup) A foo bar at - line 4.
	(in cleanup) A foo bar at - line 4.
	(in cleanup) A foo bar at - line 4.
	(in cleanup) A foo bar at - line 4.
	(in cleanup) A foo bar at - line 4.
	(in cleanup) B foo bar at - line 4.
	(in cleanup) B foo bar at - line 4.
	(in cleanup) B foo bar at - line 4.
	(in cleanup) B foo bar at - line 4.
	(in cleanup) B foo bar at - line 4.
	(in cleanup) B foo bar at - line 4.
	(in cleanup) B foo bar at - line 4.
	(in cleanup) B foo bar at - line 4.
	(in cleanup) B foo bar at - line 4.
	(in cleanup) B foo bar at - line 4.
########
# pp_ctl.c
no warnings 'misc' ;
package Foo;
DESTROY { die "@{$_[0]} foo bar" }
{ bless ['A'], 'Foo' for 1..10 }
{ bless ['B'], 'Foo' for 1..10 }
EXPECT
########
# pp_ctl.c
use warnings;
eval 'print $foo';
EXPECT
Use of uninitialized value $foo in print at (eval 1) line 1.
########
# pp_ctl.c
use warnings;
{
    no warnings;
    eval 'print $foo';
}
EXPECT
########
# pp_ctl.c
use warnings;
eval 'use 5.006; use 5.10.0';
EXPECT