From: Father Chrysostomos <sprout@cpan.org>
Date: Tue, 3 Jul 2012 21:50:30 +0000 (-0700)
Subject: sv.c: Correct comment
X-Git-Tag: v5.17.2~109
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/449d128bedd078da737396a9a10e07e1b3364beb

sv.c: Correct comment

S_varname is no longer static.
---

diff --git a/sv.c b/sv.c
index 3b5e81d..e076ae4 100644
--- a/sv.c
+++ b/sv.c
@@ -13917,7 +13917,7 @@ S_find_array_subscript(pTHX_ const AV *const av, const SV *const val)
     return -1;
 }
 
-/* S_varname(): return the name of a variable, optionally with a subscript.
+/* varname(): return the name of a variable, optionally with a subscript.
  * If gv is non-zero, use the name of that global, along with gvtype (one
  * of "$", "@", "%"); otherwise use the name of the lexical at pad offset
  * targ.  Depending on the value of the subscript_type flag, return: