From 584d69ecacb20b96dc9bbccb7464e6a7da6d9acd Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 24 Apr 2001 12:54:23 +0000 Subject: [PATCH] Prevent path disclosure (probing for existence of filenames) using suidperl; bug id 20010322.218. p4raw-id: //depot/perl@9813 --- perl.c | 6 ++++++ pod/perldiag.pod | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/perl.c b/perl.c index 834dc46..4a423dc 100644 --- a/perl.c +++ b/perl.c @@ -2718,8 +2718,14 @@ sed %s -e \"/^[^#]/b\" \ } #endif #endif +#ifdef IAMSUID + errno = EPERM; + Perl_croak(aTHX_ "Can't open perl script: %s\n", + Strerror(errno)); +#else Perl_croak(aTHX_ "Can't open perl script \"%s\": %s\n", CopFILE(PL_curcop), Strerror(errno)); +#endif } } diff --git a/pod/perldiag.pod b/pod/perldiag.pod index 307f22d..98b2580 100644 --- a/pod/perldiag.pod +++ b/pod/perldiag.pod @@ -868,7 +868,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: %s (F) The script you specified can't be opened for the indicated reason. -- 2.7.4