stop $foo =~ /(bar)/g skipping copy
[perl.git] / pp_hot.c
index 91958ac..6530ae5 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1319,12 +1319,7 @@ PP(pp_match)
            }
        }
     }
-    /* XXX: comment out !global get safe $1 vars after a
-       match, BUT be aware that this leads to dramatic slowdowns on
-       /g matches against large strings.  So far a solution to this problem
-       appears to be quite tricky.
-       Test for the unsafe vars are TODO for now. */
-    if (       (!global && RX_NPARENS(rx))
+    if (       RX_NPARENS(rx)
             || PL_sawampersand
             || SvTEMP(TARG)
             || SvAMAGIC(TARG)