Avoid an extra SV when creating $] and $^V
authorFather Chrysostomos <sprout@cpan.org>
Tue, 30 Aug 2011 16:42:05 +0000 (09:42 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 30 Aug 2011 19:39:39 +0000 (12:39 -0700)
commit3638bf155130331f9a06eff9132885b5f244890f
tree310b34916bca25a292dc0a4565f9d535559c22cc
parent23496c6ea4cd9e3c09a9fe1878f55f241bdc17e5
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.
gv.c