From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 1 Dec 2008 13:19:41 +0000 (+0000)
Subject: Implement Perl_save_delete() using save_pushptri32ptr().
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85a721ca70aa3423dbb60aac2a8755ab0fc07bbb;p=p5sagit%2Fp5-mst-13.2.git

Implement Perl_save_delete() using save_pushptri32ptr().

p4raw-id: //depot/perl@34968
---

diff --git a/scope.c b/scope.c
index df661ae..6782e0b 100644
--- a/scope.c
+++ b/scope.c
@@ -505,11 +505,7 @@ Perl_save_delete(pTHX_ HV *hv, char *key, I32 klen)
 
     PERL_ARGS_ASSERT_SAVE_DELETE;
 
-    SSCHECK(4);
-    SSPUSHPTR(key);
-    SSPUSHINT(klen);
-    SSPUSHPTR(SvREFCNT_inc_simple(hv));
-    SSPUSHINT(SAVEt_DELETE);
+    save_pushptri32ptr(key, klen, SvREFCNT_inc_simple(hv), SAVEt_DELETE);
 }
 
 void