]>
Commit | Line | Data |
---|---|---|
f3a7751c | 1 | --- perl-5.8.1/installperl.orig Fri Aug 22 12:26:11 2003 |
2 | +++ perl-5.8.1/installperl Fri Aug 22 12:26:28 2003 | |
3 | @@ -226,7 +226,7 @@ | |
4 | ||
5 | # Do some quick sanity checks. | |
6 | ||
7 | -if (!$nonono && $d_dosuid && $>) { die "You must run as root to install suidperl\n"; } | |
8 | +#if (!$nonono && $d_dosuid && $>) { die "You must run as root to install suidperl\n"; } | |
9 | ||
10 | $installbin || die "No installbin directory in config.sh\n"; | |
11 | -d $installbin || mkpath($installbin, $verbose, 0777); | |
12 | @@ -361,7 +361,7 @@ | |
13 | safe_unlink("$installbin/s$perl_verbase$ver$exe_ext"); | |
14 | if ($d_dosuid) { | |
15 | copy("suidperl$exe_ext", "$installbin/s$perl_verbase$ver$exe_ext"); | |
16 | - chmod(04711, "$installbin/s$perl_verbase$ver$exe_ext"); | |
17 | + chmod(0755, "$installbin/s$perl_verbase$ver$exe_ext"); | |
18 | } | |
19 | ||
20 | # Install library files. |