This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add $^E and $^O to special vars, and change run to runops
[perl5.git] / 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;