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
5 # Do some quick sanity checks.
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"; }
10 $installbin || die "No installbin directory in config.sh\n";
11 -d $installbin || mkpath($installbin, $verbose, 0777);
13 safe_unlink("$installbin/s$perl_verbase$ver$exe_ext");
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");
20 # Install library files.