From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Mon, 11 Mar 1996 08:02:40 +0000 (+0000)
Subject: Add $^E and $^O to special vars, and change run to runops
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad8898e054b3515a5ebb3b70399c75a63f5814d3;p=p5sagit%2Fp5-mst-13.2.git

Add $^E and $^O to special vars, and change run to runops
---

diff --git a/gv.c b/gv.c
index 8cf552a..dc6d2e5 100644
--- 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;