3 Not enough format arguments
11 Exiting substitution via %s
18 Exiting subroutine via %s
25 Exiting pseudo-block via %s
26 @a = (1,2) ; @b = sort { last } @a ;
28 Exiting substitution via %s
37 Exiting subroutine via %s
42 fred: { eval "last fred" }
44 Exiting pseudo-block via %s
45 @a = (1,2) ; fred: @b = sort { last fred } @a ;
48 Deep recursion on subroutine \"%s\"
51 goto &fred() if $a++ < 200
58 DESTROY { die "foo bar" }
59 { bless [], 'Foo' for 1..10 }
63 use warning 'syntax' ;
70 Not enough format arguments at - line 5.
84 use warning 'unsafe' ;
97 Exiting substitution via last at - line 7.
100 use warning 'unsafe' ;
103 no warning 'unsafe' ;
107 Exiting subroutine via last at - line 3.
111 eval "use warning 'unsafe' ; last;"
115 eval "no warning 'unsafe' ;last;"
119 Exiting eval via last at (eval 1) line 1.
122 use warning 'unsafe' ;
124 @b = sort { last } @a ;
125 no warning 'unsafe' ;
126 @b = sort { last } @a ;
128 Exiting pseudo-block via last at - line 4.
129 Can't "last" outside a block at - line 4.
132 use warning 'unsafe' ;
139 no warning 'unsafe' ;
145 Exiting substitution via last at - line 7.
148 use warning 'unsafe' ;
149 sub fred { last joe }
151 no warning 'unsafe' ;
152 sub Fred { last Joe }
155 Exiting subroutine via last at - line 3.
159 { eval "use warning 'unsafe' ; last joe;" }
162 { eval "no warning 'unsafe' ; last Joe;" }
165 Exiting eval via last at (eval 1) line 1.
168 use warning 'unsafe' ;
170 fred: @b = sort { last fred } @a ;
171 no warning 'unsafe' ;
172 Fred: @b = sort { last Fred } @a ;
174 Exiting pseudo-block via last at - line 4.
175 Label not found for "last fred" at - line 4.
178 use warning 'recursion' ;
179 BEGIN { warn "PREFIX\n" ;}
182 goto &fred() if $a++ < 200
187 Deep recursion on subroutine "main::fred" at - line 6.
190 no warning 'recursion' ;
191 BEGIN { warn "PREFIX\n" ;}
194 goto &fred() if $a++ < 200
202 use warning 'unsafe' ;
204 DESTROY { die "@{$_[0]} foo bar" }
205 { bless ['A'], 'Foo' for 1..10 }
206 { bless ['B'], 'Foo' for 1..10 }
208 (in cleanup) A foo bar at - line 4.
209 (in cleanup) B foo bar at - line 4.
212 no warning 'unsafe' ;
214 DESTROY { die "@{$_[0]} foo bar" }
215 { bless ['A'], 'Foo' for 1..10 }
216 { bless ['B'], 'Foo' for 1..10 }