diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-08-30 09:42:05 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-08-30 12:39:39 -0700 |
commit | 3638bf155130331f9a06eff9132885b5f244890f (patch) | |
tree | 310b34916bca25a292dc0a4565f9d535559c22cc /perl.c | |
parent | 23496c6ea4cd9e3c09a9fe1878f55f241bdc17e5 (diff) | |
download | perl-3638bf155130331f9a06eff9132885b5f244890f.tar.gz |
Avoid an extra SV when creating $] and $^V
Originally, GVs always had something in the SV slot. So, when the
code for $] and $^V started replacing it with another SV, it had to
free the existing SV.
Then commit c69033f2 came along and added the PERL_DONT_CREATE_GVSV
directive. It necessarily changed a bunch of GvSV()s to GvSVn()s in
gv_fetchpvn_flags. But it changed these two, even though they didn’t
need it. So, when PERL_DONT_CREATE_GVSV is true (the default), we
just create and throw away a scalar needlessly.
Diffstat (limited to 'perl.c')
0 files changed, 0 insertions, 0 deletions