From 3b555130a80528984c94489c5f5029398cb57e01 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 13 Nov 1999 11:36:19 +0000 Subject: [PATCH] Undo drift from mainline. p4raw-id: //depot/cfgperl@4558 --- regcomp.c | 4 ++-- util.c | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/regcomp.c b/regcomp.c index d68b351..49e9e26 100644 --- a/regcomp.c +++ b/regcomp.c @@ -2297,7 +2297,7 @@ STATIC regnode * S_regclass(pTHX) { dTHR; - register I32 value; + register UV value; register I32 lastvalue = OOB_CHAR8; register I32 range = 0; register regnode *ret; @@ -2725,7 +2725,7 @@ S_regclassutf8(pTHX) { dTHR; register char *e; - register U32 value; + register UV value; register U32 lastvalue = OOB_UTF8; register I32 range = 0; register regnode *ret; diff --git a/util.c b/util.c index 554c5b4..650fc31 100644 --- a/util.c +++ b/util.c @@ -3202,7 +3202,7 @@ Perl_find_script(pTHX_ char *scriptname, bool dosearch, char **search_ext, I32 f continue; if (S_ISREG(PL_statbuf.st_mode) && cando(S_IRUSR,TRUE,&PL_statbuf) -#if !defined(DOSISH) && !defined(MACOS_TRDITIONAL) +#if !defined(DOSISH) && !defined(MACOS_TRADITIONAL) && cando(S_IXUSR,TRUE,&PL_statbuf) #endif ) -- 2.7.4