Change core calls of isALNUM() to isWORDCHAR()

The latter is more clearly named to indicate it includes the underscore.

1 files changed, 1 insertions, 1 deletions

diff --git a/perlio.c b/perlio.c
index a388ba7a59..3e6e0a6c46 100644
--- a/perlio.c
+++ b/perlio.c
@@ -1005,7 +1005,7 @@ PerlIO_parse_layers(pTHX_ PerlIO_list_t *av, const char *names)
 		}
 		do {
 		    e++;
-		} while (isALNUM(*e));
+		} while (isWORDCHAR(*e));
 		llen = e - s;
 		if (*e == '(') {
 		    int nesting = 1;