From: David Mitchell <davem@iabyn.com>
Date: Sat, 15 Feb 2014 16:46:40 +0000 (+0000)
Subject: Document what the gv_check() function does
X-Git-Tag: upstream/5.20.0~290
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=39a65960f578e84da484cf5206f04b0c365450ff;p=platform%2Fupstream%2Fperl.git

Document what the gv_check() function does
---

diff --git a/gv.c b/gv.c
index 4a10f9b..baf9804 100644
--- a/gv.c
+++ b/gv.c
@@ -2253,6 +2253,11 @@ Perl_gv_efullname4(pTHX_ SV *sv, const GV *gv, const char *prefix, bool keepmain
     gv_fullname4(sv, egv ? egv : gv, prefix, keepmain);
 }
 
+
+/* recursively scan a stash and any nested stashes looking for entries
+ * that need the "only used once" warning raised
+ */
+
 void
 Perl_gv_check(pTHX_ HV *stash)
 {