projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
35d4f82
)
Implement Perl_save_delete() using save_pushptri32ptr().
author
Nicholas Clark
<nick@ccl4.org>
Mon, 1 Dec 2008 13:19:41 +0000
(13:19 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Mon, 1 Dec 2008 13:19:41 +0000
(13:19 +0000)
p4raw-id: //depot/perl@34968
scope.c
patch
|
blob
|
history
diff --git
a/scope.c
b/scope.c
index
df661ae
..
6782e0b
100644
(file)
--- 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