summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorDaniel Dragan <bulk88@hotmail.com>2015-07-15 21:59:58 -0400
committerTony Cook <tony@develop-help.com>2015-07-22 11:02:31 +1000
commitc7a622b32220ef59969124212598b6848bcaa247 (patch)
treeb00a54ccc8d6e355ad9b364f87133425f712500d /gv.c
parent003900e275f0c45375d4d02ffb0ac0fcd2eacfa2 (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/gv.c b/gv.c
index 242ea87ed3..5d642af48d 100644
--- a/gv.c
+++ b/gv.c
@@ -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);