perl-noroot_install.patch

   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.