Code cleanup based on turning off the -woffs in IRIX.

[p5sagit/p5-mst-13.2.git] / pp_ctl.c

diff --git a/pp_ctl.c b/pp_ctl.c
index 68db6bb..4970bd0 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -86,36 +86,15 @@ PP(pp_regcomp)
     SV *tmpstr;
     STRLEN len;
     MAGIC *mg = Null(MAGIC*);
+    
+    tmpstr = POPs;
 
-Change 10771 by jhi@alpha on 2001/06/21 12:10:29
-
-        Subject: [PATCH] Make /o work under i?threads
-        From: Richard Soderberg <rs@crystalflame.net>
-        Date: Thu, 21 Jun 2001 05:21:43 -0700 (PDT)
-        Message-ID: <Pine.LNX.4.21.0106210518210.2479-100000@oregonnet.com>
-
-Affected files ...
-
-  ... //depot/perl/pp_ctl.c#267 edit
-
-Differences ...
-
-  ==== //depot/perl/pp_ctl.c#267 (text) ====
-Index: perl/pp_ctl.c
---- perl/pp_ctl.c.~1~   Sun Jun 24 22:31:38 2001
-+++ perl/pp_ctl.c       Sun Jun 24 22:31:38 2001
-@@ -88,6 +88,13 @@
-     MAGIC *mg = Null(MAGIC*);
- 
-     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))
@@ -168,8 +147,11 @@ Index: perl/pp_ctl.c
 
     if (!PM_GETRE(pm)->prelen && PL_curpm)
        pm = PL_curpm;
-    else if (strEQ("\\s+", PM_GETRE(pm)->precomp))
-       pm->op_pmflags |= PMf_WHITE;
+    else
+       if (strEQ("\\s+", PM_GETRE(pm)->precomp))
+           pm->op_pmflags |= PMf_WHITE;
+       else
+           pm->op_pmflags &= ~PMf_WHITE;
 
     /* XXX runtime compiled output needs to move to the pad */
     if (pm->op_pmflags & PMf_KEEP) {