diff options
Diffstat (limited to 'src/perl/perl-core.c')
-rw-r--r-- | src/perl/perl-core.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/perl/perl-core.c b/src/perl/perl-core.c index 966c9b4f..d1063682 100644 --- a/src/perl/perl-core.c +++ b/src/perl/perl-core.c @@ -178,7 +178,7 @@ void script_fix_name(char *name) if (p != NULL) *p = '\0'; while (*name != '\0') { - if (*name != '_' && !isalnum(*name)) + if (*name != '_' && !i_isalnum(*name)) *name = '_'; name++; } |