From 85a721ca70aa3423dbb60aac2a8755ab0fc07bbb Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Mon, 1 Dec 2008 13:19:41 +0000 Subject: Implement Perl_save_delete() using save_pushptri32ptr(). p4raw-id: //depot/perl@34968 --- scope.c | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'scope.c') diff --git a/scope.c b/scope.c index df661ae25c..6782e0bf40 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 -- cgit v1.2.1