From: Malcolm Beattie 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);