str = (char*)SSPOPPTR;
ptr = SSPOPPTR;
if (*(char**)ptr != str) {
- #ifdef NETWARE
+#ifdef NETWARE
PerlMem_free(*(char**)ptr);
- #else
+#else
PerlMemShared_free(*(char**)ptr);
- #endif
+#endif
*(char**)ptr = str;
}
break;
PL_op = (OP*)SSPOPPTR;
break;
case SAVEt_HINTS:
+ if ((PL_hints & HINT_LOCALIZE_HH) && GvHV(PL_hintgv)) {
+ SvREFCNT_dec((SV*)GvHV(PL_hintgv));
+ GvHV(PL_hintgv) = NULL;
+ }
*(I32*)&PL_hints = (I32)SSPOPINT;
break;
case SAVEt_COMPPAD: