- patches from MDK.

Changed files:
    perl-fix-for-coredump-bug-20000607.003.patch -> 1.1
    perl-fix-typo-in-syslog.patch -> 1.1
    perl-use-LD_PRELOAD-for-libperl.so.patch -> 1.1

diff --git a/perl-fix-for-coredump-bug-20000607.003.patch b/perl-fix-for-coredump-bug-20000607.003.patch
new file mode 100644 (file)
index 0000000..a171216
--- /dev/null
+++ b/perl-fix-for-coredump-bug-20000607.003.patch
@@ -0,0 +1,40 @@
+--- perl-5.6.0/t/op/runlevel.t.pix     Wed Mar  1 01:28:41 2000
++++ perl-5.6.0/t/op/runlevel.t Thu Dec 14 13:25:04 2000
+@@ -349,3 +349,18 @@
+ bar
+ B 2
+ bar
++########
++sub n { 0 }
++sub f { my $x = shift; d(); }
++f(n());
++f();
++
++sub d {
++    my $i = 0; my @a;
++    while (do { { package DB; @a = caller($i++) } } ) {
++        @a = @DB::args;
++        for (@a) { print "$_\n"; $_ = '' }
++    }
++}
++EXPECT
++0
+--- perl-5.6.0/cop.h.pix       Mon Mar 20 18:26:52 2000
++++ perl-5.6.0/cop.h   Thu Dec 14 13:25:50 2000
+@@ -105,13 +105,9 @@
+     } STMT_END
+ #endif /* USE_THREADS */
+ 
+-#ifdef USE_ITHREADS
+-   /* junk in @_ spells trouble when cloning CVs, so don't leave any */
+-#  define CLEAR_ARGARRAY()    av_clear(cx->blk_sub.argarray)
+-#else
+-#  define CLEAR_ARGARRAY()    NOOP
+-#endif /* USE_ITHREADS */
+-
++/* junk in @_ spells trouble when cloning CVs and in pp_caller(), so don't
++ * leave any */
++#define CLEAR_ARGARRAY()      av_clear(cx->blk_sub.argarray)
+ 
+ #define POPSUB(cx,sv)                                                 \
+     STMT_START {                                                      \

diff --git a/perl-fix-typo-in-syslog.patch b/perl-fix-typo-in-syslog.patch
new file mode 100644 (file)
index 0000000..34bef63
--- /dev/null
+++ b/perl-fix-typo-in-syslog.patch
@@ -0,0 +1,11 @@
+--- perl-5.6.0/ext/Sys/Syslog/Syslog.pm.chmou  Tue Mar 14 17:29:25 2000
++++ perl-5.6.0/ext/Sys/Syslog/Syslog.pm        Sat Dec 16 13:46:10 2000
+@@ -274,7 +274,7 @@
+         socket(SYSLOG,AF_INET,SOCK_DGRAM,$udp)           || croak "socket: $!";
+         connect(SYSLOG,$that)                            || croak "connect: $!";
+     } else {
+-        my $syslog = &_PATH_LOG                          || croak "_PATH_LOG not found in syslog.ph";
++        my $syslog = &_PATH_LOG()                          || croak "_PATH_LOG not found in syslog.ph";
+         my $that = sockaddr_un($syslog)                  || croak "Can't locate $syslog";
+         socket(SYSLOG,AF_UNIX,SOCK_STREAM,0)             || croak "socket: $!";
+         if (!connect(SYSLOG,$that)) {

diff --git a/perl-use-LD_PRELOAD-for-libperl.so.patch b/perl-use-LD_PRELOAD-for-libperl.so.patch
new file mode 100644 (file)
index 0000000..105f911
--- /dev/null
+++ b/perl-use-LD_PRELOAD-for-libperl.so.patch
@@ -0,0 +1,16 @@
+--- perl-5.6.0/Makefile.SH.pix Sat Mar 11 11:05:24 2000
++++ perl-5.6.0/Makefile.SH     Fri Dec 15 07:29:42 2000
+@@ -30,12 +30,7 @@
+ true)
+       # Prefix all runs of 'miniperl' and 'perl' with 
+       # $ldlibpth so that ./perl finds *this* shared libperl.
+-      case "$LD_LIBRARY_PATH" in
+-      '')
+-              ldlibpth="LD_LIBRARY_PATH=`pwd`";;
+-      *)
+-              ldlibpth="LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}";;
+-      esac
++        ldlibpth="LD_PRELOAD=`pwd`/libperl.so"
+ 
+       pldlflags="$cccdlflags"
+       case "${osname}${osvers}" in