fixes for bugs in C<use warnings qw(FATAL all)> (from Paul Marquess)

[perl5.git] / opcode.pl

diff --git a/opcode.pl b/opcode.pl
index fc661ca..eb64e8d 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -597,7 +597,7 @@ next                next                    ck_null         ds}
 redo           redo                    ck_null         ds}     
 dump           dump                    ck_null         ds}     
 goto           goto                    ck_null         ds}     
-exit           exit                    ck_fun          ds%     S?
+exit           exit                    ck_exit         ds%     S?
 # continued below
 
 #nswitch       numeric switch          ck_null         d