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\"
58 DESTROY { die "foo bar" }
59 { bless [], 'Foo' for 1..10 }
63 use warnings 'syntax' ;
70 Not enough format arguments at - line 5.
74 no warnings 'syntax' ;
84 use warnings 'exiting' ;
91 no warnings 'exiting' ;
97 Exiting substitution via last at - line 7.
100 use warnings 'exiting' ;
103 no warnings 'exiting' ;
107 Exiting subroutine via last at - line 3.
111 eval "use warnings 'exiting' ; last;"
115 eval "no warnings 'exiting' ;last;"
119 Exiting eval via last at (eval 1) line 1.
122 use warnings 'exiting' ;
124 @b = sort { last } @a ;
125 no warnings 'exiting' ;
126 @b = sort { last } @a ;
128 Exiting pseudo-block via last at - line 4.
129 Can't "last" outside a loop block at - line 4.
132 use warnings 'exiting' ;
139 no warnings 'exiting' ;
145 Exiting substitution via last at - line 7.
148 use warnings 'exiting' ;
149 sub fred { last joe }
151 no warnings 'exiting' ;
152 sub Fred { last Joe }
155 Exiting subroutine via last at - line 3.
159 { eval "use warnings 'exiting' ; last joe;" }
162 { eval "no warnings 'exiting' ; last Joe;" }
165 Exiting eval via last at (eval 1) line 1.
168 use warnings 'exiting' ;
170 fred: @b = sort { last fred } @a ;
171 no warnings 'exiting' ;
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 warnings 'recursion' ;
179 BEGIN { warn "PREFIX\n" ;}
187 Deep recursion on subroutine "main::fred" at - line 6.
190 no warnings 'recursion' ;
191 BEGIN { warn "PREFIX\n" ;}
201 use warnings 'misc' ;
203 DESTROY { die "@{$_[0]} foo bar" }
204 { bless ['A'], 'Foo' for 1..10 }
205 { bless ['B'], 'Foo' for 1..10 }
207 (in cleanup) A foo bar at - line 4.
208 (in cleanup) B foo bar at - line 4.
213 DESTROY { die "@{$_[0]} foo bar" }
214 { bless ['A'], 'Foo' for 1..10 }
215 { bless ['B'], 'Foo' for 1..10 }
222 Use of uninitialized value in print at (eval 1) line 1.