- patchy patcher patch patch patch

Changed files:
    perl_581-noroot_install.patch -> 1.1
    perl_581-soname.patch -> 1.1

diff --git a/perl_581-noroot_install.patch b/perl_581-noroot_install.patch
new file mode 100644 (file)
index 0000000..47a5047
--- /dev/null
+++ b/perl_581-noroot_install.patch
@@ -0,0 +1,20 @@
+--- perl-5.8.1/installperl.orig        Fri Aug 22 12:26:11 2003
++++ perl-5.8.1/installperl     Fri Aug 22 12:26:28 2003
+@@ -226,7 +226,7 @@
+ 
+ # Do some quick sanity checks.
+ 
+-if (!$nonono && $d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
++#if (!$nonono && $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, $verbose, 0777);
+@@ -361,7 +361,7 @@
+ safe_unlink("$installbin/s$perl_verbase$ver$exe_ext");
+ if ($d_dosuid) {
+     copy("suidperl$exe_ext", "$installbin/s$perl_verbase$ver$exe_ext");
+-    chmod(04711, "$installbin/s$perl_verbase$ver$exe_ext");
++    chmod(0755, "$installbin/s$perl_verbase$ver$exe_ext");
+ }
+ 
+ # Install library files.

diff --git a/perl_581-soname.patch b/perl_581-soname.patch
new file mode 100644 (file)
index 0000000..5632c81
--- /dev/null
+++ b/perl_581-soname.patch
@@ -0,0 +1,22 @@
+--- perl-5.8.1/Makefile.SH.orig        Tue Aug 19 18:42:51 2003
++++ perl-5.8.1/Makefile.SH     Fri Aug 22 14:33:39 2003
+@@ -494,13 +489,15 @@
+ Makefile: $Makefile_s
+ !GROK!THIS!
+ else
+-      $spitshell >>Makefile <<'!NO!SUBS!'
+-$(LIBPERL): $& perl$(OBJ_EXT) $(obj) $(LIBPERLEXPORT)
++      $spitshell >>Makefile <<!NO!SUBS!
++LIBPERL_SONAME=\$(LIBPERL).$version
++\$(LIBPERL): \$& perl\$(OBJ_EXT) \$(obj) \$(LIBPERLEXPORT)
+ !NO!SUBS!
+       case "$useshrplib" in
+       true)
+-              $spitshell >>Makefile <<'!NO!SUBS!'
+-      $(LD) -o $@ $(SHRPLDFLAGS) perl$(OBJ_EXT) $(obj) $(libs)
++              $spitshell >>Makefile <<!NO!SUBS!
++      \$(LD) -o \$(LIBPERL_SONAME) \$(SHRPLDFLAGS) -Wl,-soname,\$(LIBPERL_SONAME) perl\$(OBJ_EXT) \$(obj) \$(libs)
++      ln -sf \$(LIBPERL_SONAME) \$@
+ !NO!SUBS!
+               case "$osname" in
+               aix)