Argh. How hard it can be to re-apply a patch manually? :-)

p4raw-id: //depot/perl@10904

diff --git a/pp_ctl.c b/pp_ctl.c
index 6ba97c8..24dfc26 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -89,13 +89,12 @@ PP(pp_regcomp)
     
     tmpstr = POPs;
 
-     /* prevent recompiling under /o and ithreads. */
+    /* prevent recompiling under /o and ithreads. */
 #if defined(USE_ITHREADS) || defined(USE_THREADS)
-     if (pm->op_pmflags & PMf_KEEP && PM_GETRE(pm))
-         RETURN;
+    if (pm->op_pmflags & PMf_KEEP && PM_GETRE(pm))
+        RETURN;
 #endif
 
-    tmpstr = POPs;
     if (SvROK(tmpstr)) {
        SV *sv = SvRV(tmpstr);
        if(SvMAGICAL(sv))