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
5 # Do some quick sanity checks.
7 -if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
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";
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.