save_delete(), err, SAVEDELETE() fixes from Charles Lane.

Should finish up the bug id 20001205.022.

p4raw-id: //depot/perl@8382

1 files changed, 1 insertions, 1 deletions

diff --git a/pp.c b/pp.c
index f970cdecd7..2d49cf15c6 100644
--- a/pp.c
+++ b/pp.c
@@ -3545,7 +3545,7 @@ PP(pp_hslice)
 		    else {
 			STRLEN keylen;
 			char *key = SvPV(keysv, keylen);
-			save_delete(hv, key, keylen);
+			SAVEDELETE(hv, savepvn(key,keylen), keylen);
 		    }
                 }
 	    }