Add $^E and $^O to special vars, and change run to runops
Perl 5 Porters [Mon, 11 Mar 1996 08:02:40 +0000 (08:02 +0000)]
gv.c

diff --git a/gv.c b/gv.c
index 8cf552a..dc6d2e5 100644 (file)
--- a/gv.c
+++ b/gv.c
@@ -606,8 +606,10 @@ I32 sv_type;
     case '|':
     case '\001':
     case '\004':
+    case '\005':
     case '\006':
     case '\010':
+    case '\017':
     case '\t':
     case '\020':
     case '\024':
@@ -1144,7 +1146,7 @@ int flags;
     PUTBACK;
 
     if (op = pp_entersub())
-      run();
+      runops();
     LEAVE;
     SPAGAIN;