projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Re: Named-capture regex syntax
[p5sagit/p5-mst-13.2.git]
/
scope.c
diff --git
a/scope.c
b/scope.c
index
03b14e8
..
abe9a05
100644
(file)
--- a/
scope.c
+++ b/
scope.c
@@
-503,6
+503,16
@@
Perl_save_delete(pTHX_ HV *hv, char *key, I32 klen)
}
void
+Perl_save_destructor(pTHX_ DESTRUCTORFUNC_NOCONTEXT_t f, void* p)
+{
+ dVAR;
+ SSCHECK(3);
+ SSPUSHDPTR(f);
+ SSPUSHPTR(p);
+ SSPUSHINT(SAVEt_DESTRUCTOR);
+}
+
+void
Perl_save_destructor_x(pTHX_ DESTRUCTORFUNC_t f, void* p)
{
dVAR;