]>
Commit | Line | Data |
---|---|---|
7e81db84 | 1 | --- perl-5.10.1/installperl.orig 2009-08-14 00:40:10.000000000 +0200 |
2 | +++ perl-5.10.1/installperl 2009-09-12 09:56:30.724923937 +0200 | |
3 | @@ -235,7 +235,7 @@ | |
f3a7751c | 4 | |
5 | # Do some quick sanity checks. | |
6 | ||
7e81db84 | 7 | -if (!$opts{notify} && $d_dosuid && $>) { die "You must run as root to install suidperl\n"; } |
8 | +#if (!$opts{notify} && $d_dosuid && $>) { die "You must run as root to install suidperl\n"; } | |
f3a7751c | 9 | |
10 | $installbin || die "No installbin directory in config.sh\n"; | |
7e81db84 | 11 | -d $installbin || mkpath($installbin, $opts{verbose}, 0777); |
12 | @@ -344,7 +344,7 @@ | |
f3a7751c | 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. |