perl patch

Changed files:
    perl-noroot_install.patch -> 1.1

diff --git a/perl-noroot_install.patch b/perl-noroot_install.patch
new file mode 100644 (file)
index 0000000..b620584
--- /dev/null
+++ b/perl-noroot_install.patch
@@ -0,0 +1,20 @@
+--- perl5.005_56/installperl~  Mon Feb 15 15:23:47 1999
++++ perl5.005_56/installperl   Tue Apr 20 19:16:44 1999
+@@ -117,8 +117,6 @@
+ 
+ # Do some quick sanity checks.
+ 
+-if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
+-
+    $installbin                || die "No installbin directory in config.sh\n";
+ -d $installbin                || mkpath($installbin, 1, 0777);
+ -d $installbin                || $nonono || die "$installbin is not a directory\n";
+@@ -182,7 +180,7 @@
+ safe_unlink("$installbin/s$perl$ver$exe_ext");
+ if ($d_dosuid) {
+     copy("suidperl$exe_ext", "$installbin/s$perl$ver$exe_ext");
+-    chmod(04711, "$installbin/s$perl$ver$exe_ext");
++    chmod(0755, "$installbin/s$perl$ver$exe_ext");
+ }
+ 
+ # Install library files.