]>
Commit | Line | Data |
---|---|---|
514700bf | 1 | --- perl-5.6.0/installperl.pius Wed Mar 8 13:22:41 2000 |
2 | +++ perl-5.6.0/installperl Sun Jul 2 13:36:20 2000 | |
3 | @@ -143,8 +143,6 @@ | |
4 | ||
5 | # Do some quick sanity checks. | |
6 | ||
7 | -if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; } | |
8 | - | |
9 | $installbin || die "No installbin directory in config.sh\n"; | |
10 | -d $installbin || mkpath($installbin, 1, 0777); | |
11 | -d $installbin || $nonono || die "$installbin is not a directory\n"; | |
12 | @@ -224,7 +222,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. |