From a7a8b825983d22868360d88fa423e1b32aa33b89 Mon Sep 17 00:00:00 2001
From: kloczek <kloczek@pld-linux.org>
Date: Mon, 8 Jan 2001 18:57:59 +0000
Subject: [PATCH] - 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
---
 perl-fix-for-coredump-bug-20000607.003.patch | 40 ++++++++++++++++++++
 perl-fix-typo-in-syslog.patch                | 11 ++++++
 perl-use-LD_PRELOAD-for-libperl.so.patch     | 16 ++++++++
 3 files changed, 67 insertions(+)
 create mode 100644 perl-fix-for-coredump-bug-20000607.003.patch
 create mode 100644 perl-fix-typo-in-syslog.patch
 create mode 100644 perl-use-LD_PRELOAD-for-libperl.so.patch

diff --git a/perl-fix-for-coredump-bug-20000607.003.patch b/perl-fix-for-coredump-bug-20000607.003.patch
new file mode 100644
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
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
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
-- 
2.44.0