diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-04-19 08:42:18 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-04-19 08:42:18 +0000 |
| commit | cbf82dd00c19573e7e274a1d8dda9656bc6e259a (patch) | |
| tree | 85a421e839c6a91506d7a9f972bf553b2cf43845 /global.sym | |
| parent | 39cd7a593a348b713bd3e45241789bcc2a458c1a (diff) | |
| download | perl-cbf82dd00c19573e7e274a1d8dda9656bc6e259a.tar.gz | |
Calling cv_undef() on the CV created by newCONSTSUB() would leak like
a Jumblie's preferred maritime craft. To free CvFILE for this case,
take advantage of the 0 length prototype that will also be there,
and hang it from the prototype. To do this properly means changing
code to actually pay attention to SvCUR() on prototypes. It turns out
that we always know the length of the prototype string, so this may
be faster. Certainly, it's a memory saving (even ignoring the leak).
p4raw-id: //depot/perl@27896
Diffstat (limited to 'global.sym')
| -rw-r--r-- | global.sym | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/global.sym b/global.sym index ef432ddea0..257a2fcaf0 100644 --- a/global.sym +++ b/global.sym @@ -74,6 +74,7 @@ Perl_sv_catpvf_mg_nocontext Perl_sv_setpvf_mg_nocontext Perl_fprintf_nocontext Perl_printf_nocontext +Perl_cv_ckproto Perl_gv_const_sv Perl_cv_const_sv Perl_cv_undef |