Because name is always NUL terminated we can incorporate length

0 names in the switch statement for length 1.

p4raw-id: //depot/perl@23719

1 files changed, 3 insertions, 2 deletions

diff --git a/gv.c b/gv.c
index 8fb7fba623..b68f212860 100644
--- a/gv.c
+++ b/gv.c
@@ -952,8 +952,9 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type)
 	    }
 	    }
 	}
-    } else if (len == 1) {
-	/* Names of length 1.  */
+    } else {
+	/* Names of length 1.  (Or 0. But name is NUL terminated, so that will
+	   be case '\0' in this switch statement (ie a default case)  */
 	switch (*name) {
 	case '&':
 	case '`':