From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 2 Feb 2006 00:24:06 +0000 (+0000)
Subject: And another assumption.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b208e10c815b328b5c2ddc25197ff4990f6302e0;p=p5sagit%2Fp5-mst-13.2.git

And another assumption.

p4raw-id: //depot/perl@27049
---

diff --git a/gv.c b/gv.c
index 8f023c1..c47c75f 100644
--- a/gv.c
+++ b/gv.c
@@ -766,8 +766,10 @@ Perl_gv_fetchpvn_flags(pTHX_ const char *nambeg, STRLEN full_len, I32 flags,
     const char *const name_end = nambeg + full_len;
     const char *const name_em1 = name_end - 1;
 
-    if (*name == '*' && isALPHA(name[1])) /* accidental stringify on a GV? */
+    if (full_len > 2 && *name == '*' && isALPHA(name[1])) {
+	/* accidental stringify on a GV? */
 	name++;
+    }
 
     for (name_cursor = name; name_cursor < name_end; name_cursor++) {
 	if ((*name_cursor == ':' && name_cursor < name_em1