S_is_existing_identifier: Look for specific types

This commit changes to look for an array if the sigil is '@', and a sub
if is '&', instead of any type of the given name

Author: khwilliamson

toke.c

@@ -4488,7 +4488,14 @@ S_is_existing_identifier(pTHX_ char *s, char *e, bool is_utf8)
     scan_ident(s, tmpbuf, size, FALSE);
 
     Size_t len = strlen(tmpbuf);
-    if (! gv_fetchpvn_flags(tmpbuf, len, is_utf8 ? SVf_UTF8 : 0, SVt_PV)) {
+    if (! gv_fetchpvn_flags(tmpbuf, len,
+                               (is_utf8) ? SVf_UTF8 : 0,
+                               (s[0] == '@')
+                                ? SVt_PVAV
+                                : (s[0] == '&')
+                                  ? SVt_PVCV
+                                  : SVt_PV))
+    {
         len = 0;
     }
 
@@ -4672,8 +4679,8 @@ S_intuit_more(pTHX_ char *s, char *e)
             weight -= seen[un_char] * 10;
 
             /* Following one of these characters, we look to see if there is an
-             * identifier already found in the program by that name.  If so,
-             * strongly suspect this isn't a character class */
+             * identifier already found in the program by that name and type.
+             * If so, strongly suspect this isn't a character class */
             if (isWORDCHAR_lazy_if_safe(s+1, PL_bufend, UTF)) {
                 Size_t len = is_existing_identifier(s, PL_bufend, UTF);