pp_match: avoid setting $+[0]

[perl5.git] / util.h

diff --git a/util.h b/util.h
index 5f11289..ed133c4 100644 (file)
--- a/util.h
+++ b/util.h
@@ -13,7 +13,7 @@
        (*(f) == '/'                                                    \
         || (strchr(f,':')                                              \
             || ((*(f) == '[' || *(f) == '<')                           \
-                && (isALNUM((f)[1]) || strchr("$-_]>",(f)[1])))))
+                && (isWORDCHAR((f)[1]) || strchr("$-_]>",(f)[1])))))
 
 #else          /* !VMS */
 #  if defined(WIN32) || defined(__CYGWIN__)