1 --- perl5.005_56/installperl~ Mon Feb 15 15:23:47 1999
2 +++ perl5.005_56/installperl Tue Apr 20 19:16:44 1999
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$ver$exe_ext");
15 copy("suidperl$exe_ext", "$installbin/s$perl$ver$exe_ext");
16 - chmod(04711, "$installbin/s$perl$ver$exe_ext");
17 + chmod(0755, "$installbin/s$perl$ver$exe_ext");
20 # Install library files.