From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Tue, 25 Nov 1997 17:59:53 +0000 (+0000)
Subject: Fix minor thinkos in hv.c and pp_ctl.c. This is 5.004_55.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fb54173c01796b37b2259a6538d910d610b2edbb;p=p5sagit%2Fp5-mst-13.2.git

Fix minor thinkos in hv.c and pp_ctl.c. This is 5.004_55.

p4raw-id: //depot/perl@301
---

diff --git a/hv.c b/hv.c
index dfa0498..e495e91 100644
--- a/hv.c
+++ b/hv.c
@@ -233,7 +233,6 @@ bool *needs_store;
 	    case 'I':
 	    case 'S':
 		*needs_store = FALSE;
-	    default:
 	    }
 	}
 	mg = mg->mg_moremagic;
diff --git a/pp_ctl.c b/pp_ctl.c
index d79145c..d9f985e 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -546,11 +546,12 @@ PP(pp_grepstart)
     ENTER;					/* enter outer scope */
 
     SAVETMPS;
-#if 0
-    SAVE_DEFSV;
-#else
+#ifdef USE_THREADS
+    /* SAVE_DEFSV does *not* suffice here */
     save_sptr(av_fetch(thr->threadsv, find_threadsv("_"), FALSE));
-#endif
+#else
+    SAVESPTR(GvSV(defgv));
+#endif /* USE_THREADS */
     ENTER;					/* enter inner scope */
     SAVESPTR(curpm);