[p5sagit/p5-mst-13.2.git] / t / pragma / warn / pp_ctl

  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
	{
    	goto &fred() if $a++ < 200
	}
	 
	goto &fred()

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

__END__
# pp_ctl.c
use warning 'syntax' ;
format STDOUT =
@<<< @<<<
1
.
write;
EXPECT
Not enough format arguments at - line 5.
1
########
# pp_ctl.c
use warning 'unsafe' ;
$_ = "abc" ;
 
while ($i ++ == 0)
{
    s/ab/last/e ;
}
EXPECT
Exiting substitution via last at - line 7.
########
# pp_ctl.c
use warning 'unsafe' ;
sub fred { last }
{ fred() }
EXPECT
Exiting subroutine via last at - line 3.
########
# pp_ctl.c
use warning 'unsafe' ;
{ eval "last;" } 
print STDERR $@ ;
EXPECT
Exiting eval via last at (eval 1) line 1.
########
# pp_ctl.c
use warning 'unsafe' ;
@a = (1,2) ;
@b = sort { last } @a ;
EXPECT
Exiting pseudo-block via last at - line 4.
Can't "last" outside a block at - line 4.
########
# pp_ctl.c
use warning 'unsafe' ;
$_ = "abc" ;
fred: 
while ($i ++ == 0)
{
    s/ab/last fred/e ;
}
EXPECT
Exiting substitution via last at - line 7.
########
# pp_ctl.c
use warning 'unsafe' ;
sub fred { last joe }
joe: { fred() }
EXPECT
Exiting subroutine via last at - line 3.
########
# pp_ctl.c
use warning 'unsafe' ;
joe: { eval "last joe;" }
print STDERR $@ ;
EXPECT
Exiting eval via last at (eval 1) line 1.
########
# pp_ctl.c
use warning 'unsafe' ;
@a = (1,2) ;
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 warning 'recursion' ;
BEGIN { warn "PREFIX\n" ;}
sub fred
{
    goto &fred() if $a++ < 200
}
 
goto &fred()
EXPECT
Deep recursion on subroutine "main::fred" at - line 6.
########
# pp_ctl.c
use warning 'unsafe' ;
package Foo;
DESTROY { die "@{$_[0]} foo bar" }
{ bless ['A'], 'Foo' for 1..10 }
EXPECT
	(in cleanup) A foo bar at - line 4.
Commit	Line	Data
599cee73	1	pp_ctl.c AOK
	2
	3	Not enough format arguments
	4	format STDOUT =
	5	@<<< @<<<
	6	$a
	7	.
	8	write;
	9
	10
	11	Exiting substitution via %s
	12	$_ = "abc" ;
	13	while ($i ++ == 0)
	14	{
	15	s/ab/last/e ;
	16	}
	17
	18	Exiting subroutine via %s
	19	sub fred { last }
	20	{ fred() }
	21
	22	Exiting eval via %s
	23	{ eval "last" }
	24
	25	Exiting pseudo-block via %s
	26	@a = (1,2) ; @b = sort { last } @a ;
	27
	28	Exiting substitution via %s
	29	$_ = "abc" ;
	30	last fred:
	31	while ($i ++ == 0)
	32	{
	33	s/ab/last fred/e ;
	34	}
	35
	36
	37	Exiting subroutine via %s
	38	sub fred { last joe }
	39	joe: { fred() }
	40
	41	Exiting eval via %s
	42	fred: { eval "last fred" }
	43
	44	Exiting pseudo-block via %s
	45	@a = (1,2) ; fred: @b = sort { last fred } @a ;
	46
	47
	48	Deep recursion on subroutine \"%s\"
	49	sub fred
	50	{
	51	goto &fred() if $a++ < 200
	52	}
	53
	54	goto &fred()
	55
a99e4ac2	56	(in cleanup) foo bar
	57	package Foo;
	58	DESTROY { die "foo bar" }
	59	{ bless [], 'Foo' for 1..10 }
599cee73	60
	61	__END__
	62	# pp_ctl.c
	63	use warning 'syntax' ;
	64	format STDOUT =
	65	@<<< @<<<
	66	1
	67	.
	68	write;
	69	EXPECT
	70	Not enough format arguments at - line 5.
	71	1
	72	########
	73	# pp_ctl.c
	74	use warning 'unsafe' ;
	75	$_ = "abc" ;
	76
	77	while ($i ++ == 0)
	78	{
	79	s/ab/last/e ;
	80	}
	81	EXPECT
	82	Exiting substitution via last at - line 7.
	83	########
	84	# pp_ctl.c
	85	use warning 'unsafe' ;
	86	sub fred { last }
	87	{ fred() }
	88	EXPECT
	89	Exiting subroutine via last at - line 3.
	90	########
	91	# pp_ctl.c
	92	use warning 'unsafe' ;
60e6418e	93	{ eval "last;" }
599cee73	94	print STDERR $@ ;
	95	EXPECT
	96	Exiting eval via last at (eval 1) line 1.
	97	########
	98	# pp_ctl.c
	99	use warning 'unsafe' ;
	100	@a = (1,2) ;
	101	@b = sort { last } @a ;
	102	EXPECT
	103	Exiting pseudo-block via last at - line 4.
	104	Can't "last" outside a block at - line 4.
	105	########
	106	# pp_ctl.c
	107	use warning 'unsafe' ;
	108	$_ = "abc" ;
	109	fred:
	110	while ($i ++ == 0)
	111	{
	112	s/ab/last fred/e ;
	113	}
	114	EXPECT
	115	Exiting substitution via last at - line 7.
	116	########
	117	# pp_ctl.c
	118	use warning 'unsafe' ;
	119	sub fred { last joe }
	120	joe: { fred() }
	121	EXPECT
	122	Exiting subroutine via last at - line 3.
	123	########
	124	# pp_ctl.c
	125	use warning 'unsafe' ;
60e6418e	126	joe: { eval "last joe;" }
599cee73	127	print STDERR $@ ;
599cee73	128	EXPECT
60e6418e	129	Exiting eval via last at (eval 1) line 1.
599cee73	130	########
	131	# pp_ctl.c
	132	use warning 'unsafe' ;
	133	@a = (1,2) ;
	134	fred: @b = sort { last fred } @a ;
	135	EXPECT
	136	Exiting pseudo-block via last at - line 4.
	137	Label not found for "last fred" at - line 4.
	138	########
	139	# pp_ctl.c
	140	use warning 'recursion' ;
	141	BEGIN { warn "PREFIX\n" ;}
	142	sub fred
	143	{
	144	goto &fred() if $a++ < 200
	145	}
	146
	147	goto &fred()
	148	EXPECT
	149	Deep recursion on subroutine "main::fred" at - line 6.
a99e4ac2	150	########
	151	# pp_ctl.c
	152	use warning 'unsafe' ;
	153	package Foo;
	154	DESTROY { die "@{$_[0]} foo bar" }
	155	{ bless ['A'], 'Foo' for 1..10 }
	156	EXPECT
	157	(in cleanup) A foo bar at - line 4.