summaryrefslogtreecommitdiff
path: root/gv.c
diff options
context:
space:
mode:
authorMark-Jason Dominus <mjd@plover.com>2001-11-06 19:43:46 -0500
committerAbhijit Menon-Sen <ams@wiw.org>2001-11-07 05:14:04 +0000
commit0ac0412a111b224c7f0c310960dde8b2a3fdad89 (patch)
tree7c759f395b620bdec40b0538b8b9219a6011786c /gv.c
parent2f7e91877d1bb8a421b887cf5759dc05d0285cb9 (diff)
downloadperl-0ac0412a111b224c7f0c310960dde8b2a3fdad89.tar.gz
Re: [ID 20011106.083] $dbline[$i] == 0 generates warnings
Message-Id: <20011107054346.14428.qmail@plover.com> p4raw-id: //depot/perl@12882
Diffstat (limited to 'gv.c')
-rw-r--r--gv.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/gv.c b/gv.c
index 53af8a513b..f0e685bf81 100644
--- a/gv.c
+++ b/gv.c
@@ -72,6 +72,7 @@ Perl_gv_fetchfile(pTHX_ const char *name)
tmpbuf = smallbuf;
else
New(603, tmpbuf, tmplen + 1, char);
+ /* This is where the debugger's %{"::_<$filename"} hash is created */
tmpbuf[0] = '_';
tmpbuf[1] = '<';
strcpy(tmpbuf + 2, name);