summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-06-29 15:58:14 +0000
committerNicholas Clark <nick@ccl4.org>2005-06-29 15:58:14 +0000
commitc69033f2a629160559f680da8e4e5a7e3c4c3a0c (patch)
treed19b6ca86b0f5cbbbb1e078ab96eac111df03dfd /proto.h
parent9dc0b5dcb80b5128172acb8c4bd670aa72142821 (diff)
downloadperl-c69033f2a629160559f680da8e4e5a7e3c4c3a0c.tar.gz
First stab at not automatically creating an unused SV for GvSV
Enable it with -DPERL_DONT_CREATE_GVSV. Currently if enabled 22 test scripts have failures, so still some way to go. p4raw-id: //depot/perl@25009
Diffstat (limited to 'proto.h')
-rw-r--r--proto.h6
1 files changed, 6 insertions, 0 deletions
diff --git a/proto.h b/proto.h
index 42cf557341..a75cb74d74 100644
--- a/proto.h
+++ b/proto.h
@@ -2991,6 +2991,12 @@ PERL_CALLCONV bool Perl_stashpv_hvname_match(pTHX_ const COP *cop, const HV *hv)
PERL_CALLCONV void Perl_dump_sv_child(pTHX_ SV *sv);
#endif
+#ifdef PERL_DONT_CREATE_GVSV
+PERL_CALLCONV GV* Perl_gv_SVadd(pTHX_ GV* gv)
+ __attribute__nonnull__(pTHX_1);
+
+#endif
+
END_EXTERN_C
/*
* ex: set ts=8 sts=4 sw=4 noet: