diff options
author | Daniel Dragan <bulk88@hotmail.com> | 2015-07-15 21:59:58 -0400 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2015-07-22 11:02:31 +1000 |
commit | c7a622b32220ef59969124212598b6848bcaa247 (patch) | |
tree | b00a54ccc8d6e355ad9b364f87133425f712500d /gv.c | |
parent | 003900e275f0c45375d4d02ffb0ac0fcd2eacfa2 (diff) | |
download | perl-c7a622b32220ef59969124212598b6848bcaa247.tar.gz |
combine PERLDB_LINE and PERLDB_SAVESRC flag tests
On VC2003 32b -O1, the .text section of miniperl.exe decreased from
0xAEFCD bytes of machine code to 0xAEF9D after this patch.
see also
http://www.nntp.perl.org/group/perl.perl5.porters/2015/07/msg229308.html
Diffstat (limited to 'gv.c')
-rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -129,7 +129,7 @@ Perl_gv_fetchfile_flags(pTHX_ const char *const name, const STRLEN namelen, sv_setpvn(GvSV(gv), name, namelen); #endif } - if ((PERLDB_LINE || PERLDB_SAVESRC) && !GvAV(gv)) + if (PERLDB_LINE_OR_SAVESRC && !GvAV(gv)) hv_magic(GvHVn(gv), GvAVn(gv), PERL_MAGIC_dbfile); if (tmpbuf != smallbuf) Safefree(tmpbuf); |