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.
74 use warning 'unsafe' ;
82 Exiting substitution via last at - line 7.
85 use warning 'unsafe' ;
89 Exiting subroutine via last at - line 3.
92 use warning 'unsafe' ;
96 Exiting eval via last at (eval 1) line 1.
99 use warning 'unsafe' ;
101 @b = sort { last } @a ;
103 Exiting pseudo-block via last at - line 4.
104 Can't "last" outside a block at - line 4.
107 use warning 'unsafe' ;
115 Exiting substitution via last at - line 7.
118 use warning 'unsafe' ;
119 sub fred { last joe }
122 Exiting subroutine via last at - line 3.
125 use warning 'unsafe' ;
126 joe: { eval "last joe;" }
129 Exiting eval via last at (eval 1) line 1.
132 use warning 'unsafe' ;
134 fred: @b = sort { last fred } @a ;
136 Exiting pseudo-block via last at - line 4.
137 Label not found for "last fred" at - line 4.
140 use warning 'recursion' ;
141 BEGIN { warn "PREFIX\n" ;}
144 goto &fred() if $a++ < 200
149 Deep recursion on subroutine "main::fred" at - line 6.
152 use warning 'unsafe' ;
154 DESTROY { die "@{$_[0]} foo bar" }
155 { bless ['A'], 'Foo' for 1..10 }
156 { bless ['B'], 'Foo' for 1..10 }
158 (in cleanup) A foo bar at - line 4.
159 (in cleanup) B foo bar at - line 4.