diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-06-29 15:58:14 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-06-29 15:58:14 +0000 |
commit | c69033f2a629160559f680da8e4e5a7e3c4c3a0c (patch) | |
tree | d19b6ca86b0f5cbbbb1e078ab96eac111df03dfd /proto.h | |
parent | 9dc0b5dcb80b5128172acb8c4bd670aa72142821 (diff) | |
download | perl-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.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -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: |