And another assumption.
authorNicholas Clark <nick@ccl4.org>
Thu, 2 Feb 2006 00:24:06 +0000 (00:24 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 2 Feb 2006 00:24:06 +0000 (00:24 +0000)
p4raw-id: //depot/perl@27049

gv.c

diff --git a/gv.c b/gv.c
index 8f023c1..c47c75f 100644 (file)
--- 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