diff options
| -rw-r--r-- | perl.c | 5 | ||||
| -rw-r--r-- | pod/perldiag.pod | 2 |
2 files changed, 3 insertions, 4 deletions
@@ -2991,8 +2991,7 @@ S_open_script(pTHX_ char *scriptname, bool dosearch, SV *sv, int *fdscript) # endif # ifdef IAMSUID errno = EPERM; - Perl_croak(aTHX_ "Can't open perl script: %s\n", - Strerror(errno)); + Perl_croak(aTHX_ "Permission denied\n"); # else Perl_croak(aTHX_ "Can't open perl script \"%s\": %s\n", CopFILE(PL_curcop), Strerror(errno)); @@ -3312,7 +3311,7 @@ FIX YOUR KERNEL, PUT A C WRAPPER AROUND THIS SCRIPT, OR USE -u AND UNDUMP!\n"); else if (fdscript >= 0) Perl_croak(aTHX_ "fd script not allowed in suidperl\n"); else - Perl_croak(aTHX_ "Script is not setuid/setgid in suidperl\n"); + Perl_croak(aTHX_ "Permission denied\n"); /* We absolutely must clear out any saved ids here, so we */ /* exec the real perl, substituting fd script for scriptname. */ diff --git a/pod/perldiag.pod b/pod/perldiag.pod index ad8b8c799b..5e60211672 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -898,7 +898,7 @@ the command line for writing. redirection, and couldn't open the pipe into which to send data destined for stdout. -=item Can't open perl script%s: %s +=item Can't open perl script%s (F) The script you specified can't be opened for the indicated reason. |