From fb54173c01796b37b2259a6538d910d610b2edbb Mon Sep 17 00:00:00 2001
From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Tue, 25 Nov 1997 17:59:53 +0000
Subject: [PATCH] Fix minor thinkos in hv.c and pp_ctl.c. This is 5.004_55.

p4raw-id: //depot/perl@301
---
 hv.c     | 1 -
 pp_ctl.c | 9 +++++----
 2 files changed, 5 insertions(+), 5 deletions(-)

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);
 
-- 
2.7.4