diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-05 13:43:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-05 13:43:36 +0000 |
| commit | 2b8ca7391be5ab2bad904071bb0f753bcaac99a3 (patch) | |
| tree | fdf7f86bd47ddeebc8b33b169671da85d718a2f2 /perl.c | |
| parent | 91ffdfa4eed6a2efd5dc0c1293f84cd29ab61220 (diff) | |
| download | perl-2b8ca7391be5ab2bad904071bb0f753bcaac99a3.tar.gz | |
More suidperl path disclosure plugging:
the #9813 didn't do enough. See either of
http://rt.perl.org/rt2/Ticket/Display.html?id=6511
http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=203426
p4raw-id: //depot/perl@21045
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 5 |
1 files changed, 2 insertions, 3 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. */ |