fix bug in change#4515 (STOP blocks now see @ARGV like the rest)

p4raw-link: @4515 on //depot/perl: 4f25aa189c4a92535547c706ad37c13b7caee387

p4raw-id: //depot/perl@4578

1 files changed, 7 insertions, 5 deletions

diff --git a/t/op/misc.t b/t/op/misc.t
index adfcd174fc..ab849777da 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -353,16 +353,18 @@ Unmatched right curly bracket at (re_eval 1) line 1, at end of line
 syntax error at (re_eval 1) line 1, near ""{"}"
 Compilation failed in regexp at - line 1.
 ########
-BEGIN { @ARGV = qw(a b c) }
+BEGIN { @ARGV = qw(a b c d e) }
 BEGIN { print "argv <@ARGV>\nbegin <",shift,">\n" }
 END { print "end <",shift,">\nargv <@ARGV>\n" }
 INIT { print "init <",shift,">\n" }
+STOP { print "stop <",shift,">\n" }
 EXPECT
-argv <a b c>
+argv <a b c d e>
 begin <a>
-init <b>
-end <c>
-argv <>
+stop <b>
+init <c>
+end <d>
+argv <e>
 ########
 -l
 # fdopen from a system descriptor to a system descriptor used to close