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

p4raw-id: //depot/perl@301

1 files changed, 5 insertions, 4 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index d79145c719..d9f985e8e4 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);