From 0ac0412a111b224c7f0c310960dde8b2a3fdad89 Mon Sep 17 00:00:00 2001
From: Mark-Jason Dominus <mjd@plover.com>
Date: Tue, 6 Nov 2001 19:43:46 -0500
Subject: Re: [ID 20011106.083] $dbline[$i] == 0 generates warnings Message-Id:
 <20011107054346.14428.qmail@plover.com>

p4raw-id: //depot/perl@12882
---
 gv.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'gv.c')

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);
-- 
cgit v1.2.1