perl_581-noroot_install.patch

   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
   3 @@ -226,7 +226,7 @@
   4
   5  # Do some quick sanity checks.
   6
   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"; }
   9
  10     $installbin         || die "No installbin directory in config.sh\n";
  11  -d $installbin         || mkpath($installbin, $verbose, 0777);
  12 @@ -361,7 +361,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.