X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/739a0b843246478d33d6b9205abb19e5492a5807..34b94bc4d14e09f43028265cf501a750754f844c:/util.h

diff --git a/util.h b/util.h
index 5f11289..ed133c4 100644
--- 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__)