- updated for perl 5.6.1

Changed files:
    perl-CGI-upload-tmpdir.patch -> 1.2
    perl-LD_RUN_PATH.patch -> 1.2
    perl-errno_h-parsing.patch -> 1.2
    perl-prereq.patch -> 1.2
    perl-syslog.patch -> 1.4

diff --git a/perl-CGI-upload-tmpdir.patch b/perl-CGI-upload-tmpdir.patch
index 7d2c474e7c1a48a96eae52b0675f1f999f7e1aec..70a03064238e8382936e87381e38ed65418c8de3 100644 (file)
--- a/perl-CGI-upload-tmpdir.patch
+++ b/perl-CGI-upload-tmpdir.patch
@@ -1,11 +1,12 @@
---- perl-5.6.0/lib/CGI.pm~     Fri Mar 17 03:51:27 2000
-+++ perl-5.6.0/lib/CGI.pm      Sat Jul 22 13:23:49 2000
-@@ -22,7 +22,7 @@
+diff -urN perl-5.6.1.orig/lib/CGI.pm perl-5.6.1/lib/CGI.pm
+--- perl-5.6.1.orig/lib/CGI.pm Sat Mar  3 20:53:20 2001
++++ perl-5.6.1/lib/CGI.pm      Thu Apr 12 20:54:36 2001
+@@ -23,7 +23,7 @@
  
  # HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
  # UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING.
 -# $TempFile::TMPDIRECTORY = '/usr/tmp';
 +$TempFile::TMPDIRECTORY = '/tmp';
+ use CGI::Util qw(rearrange make_attributes unescape escape expires);
  
- # >>>>> Here are some globals that you might want to adjust <<<<<<
- sub initialize_globals {
+ use constant XHTML_DTD => ['-//W3C//DTD XHTML Basic 1.0//EN',

diff --git a/perl-LD_RUN_PATH.patch b/perl-LD_RUN_PATH.patch
index 30a3d2c2927ff71fbb820d7c99b3fb54ff796052..1fdc81b9146056c187c2e95dd676a5249efbccf1 100644 (file)
--- a/perl-LD_RUN_PATH.patch
+++ b/perl-LD_RUN_PATH.patch
@@ -1,16 +1,18 @@
---- perl-5.6.0/lib/ExtUtils/Liblist.pm.orig    Wed Mar 22 17:16:31 2000
-+++ perl-5.6.0/lib/ExtUtils/Liblist.pm Fri Aug 18 01:03:48 2000
-@@ -39,6 +39,7 @@
+diff -urN perl-5.6.1.orig/lib/ExtUtils/Liblist.pm perl-5.6.1/lib/ExtUtils/Liblist.pm
+--- perl-5.6.1.orig/lib/ExtUtils/Liblist.pm    Fri Feb 23 03:57:55 2001
++++ perl-5.6.1/lib/ExtUtils/Liblist.pm Thu Apr 12 20:57:10 2001
+@@ -60,6 +60,7 @@
      my(@searchpath); # from "-L/path" entries in $potential_libs
      my(@libpath) = split " ", $Config{'libpth'};
      my(@ldloadlibs, @bsloadlibs, @extralibs, @ld_run_path, %ld_run_path_seen);
 +    $ld_run_path_seen{$_} = 1 foreach qw(/usr/X11R6/lib /usr/lib /lib);
+     my(@libs, %libs_seen);
      my($fullname, $thislib, $thispth, @fullname);
      my($pwd) = cwd(); # from Cwd.pm
-     my($found) = 0;
---- perl-5.6.0/lib/ExtUtils/MM_Unix.pm~        Fri Aug 18 01:03:48 2000
-+++ perl-5.6.0/lib/ExtUtils/MM_Unix.pm Fri Aug 18 01:04:22 2000
-@@ -529,9 +529,16 @@
+diff -urN perl-5.6.1.orig/lib/ExtUtils/MM_Unix.pm perl-5.6.1/lib/ExtUtils/MM_Unix.pm
+--- perl-5.6.1.orig/lib/ExtUtils/MM_Unix.pm    Thu Apr 12 20:29:35 2001
++++ perl-5.6.1/lib/ExtUtils/MM_Unix.pm Thu Apr 12 20:56:30 2001
+@@ -524,9 +524,16 @@
  };
      my($tmp);
      for $tmp (qw/

diff --git a/perl-errno_h-parsing.patch b/perl-errno_h-parsing.patch
index dbfb074a3b2b96e0fae7a87f5114d12933869cc6..7b490ba06c4b870672bf53c41cc158244d97fda1 100644 (file)
--- a/perl-errno_h-parsing.patch
+++ b/perl-errno_h-parsing.patch
@@ -1,6 +1,7 @@
---- perl-5.6.0/ext/Errno/Errno_pm.PL.pix       Sat Mar  4 05:26:54 2000
-+++ perl-5.6.0/ext/Errno/Errno_pm.PL   Sun Nov  5 21:41:49 2000
-@@ -29,6 +29,13 @@
+diff -urN perl-5.6.1.orig/ext/Errno/Errno_pm.PL perl-5.6.1/ext/Errno/Errno_pm.PL
+--- perl-5.6.1.orig/ext/Errno/Errno_pm.PL      Sun Apr  8 08:09:16 2001
++++ perl-5.6.1/ext/Errno/Errno_pm.PL   Thu Apr 12 20:58:53 2001
+@@ -37,6 +37,13 @@
              warn "Cannot open '$file'";
              return;
        }     
@@ -14,12 +15,3 @@
      } else {
        unless(open(FH,"< $file")) {
            # This file could be a temporary file created by cppstdin
-@@ -79,6 +86,8 @@
-     } elsif ($^O eq 'vmesa') {
-       # OS/390 C compiler doesn't generate #file or #line directives
-       $file{'../../vmesa/errno.h'} = 1;
-+    } elsif ($^O eq 'linux') {
-+      $file{'/usr/include/errno.h'} = 1;
-     } else {
-       open(CPPI,"> errno.c") or
-           die "Cannot open errno.c";

diff --git a/perl-prereq.patch b/perl-prereq.patch
index 3dd173afb15c7b2054bf58d650b855ce1dff8d6f..a302e8dd3e2f83ad31b3eaa780669e7cff111e1f 100644 (file)
--- a/perl-prereq.patch
+++ b/perl-prereq.patch
@@ -1,14 +1,15 @@
---- perl-5.6.0/lib/ExtUtils/MakeMaker.pm.prereq        Mon Feb 28 07:58:49 2000
-+++ perl-5.6.0/lib/ExtUtils/MakeMaker.pm       Thu Mar 23 17:59:56 2000
-@@ -201,6 +201,7 @@
-     NAME NEEDS_LINKING NOECHO NORECURS NO_VC OBJECT OPTIMIZE PERL PERLMAINCC
+diff -urN perl-5.6.1.orig/lib/ExtUtils/MakeMaker.pm perl-5.6.1/lib/ExtUtils/MakeMaker.pm
+--- perl-5.6.1.orig/lib/ExtUtils/MakeMaker.pm  Fri Feb 23 03:57:55 2001
++++ perl-5.6.1/lib/ExtUtils/MakeMaker.pm       Thu Apr 12 20:43:14 2001
+@@ -202,6 +202,7 @@
      PERL_ARCHLIB PERL_LIB PERL_SRC PERM_RW PERM_RWX
-     PL_FILES PM PMLIBDIRS POLLUTE PPM_INSTALL_EXEC PPM_INSTALL_SCRIPT PREFIX
+     PL_FILES PM PM_FILTER PMLIBDIRS POLLUTE PPM_INSTALL_EXEC
+       PPM_INSTALL_SCRIPT PREFIX
 +    PRINT_PREREQ
      PREREQ_PM SKIP TYPEMAPS VERSION VERSION_FROM XS XSOPT XSPROTOARG
      XS_VERSION clean depend dist dynamic_lib linkext macro realclean
      tool_autosplit
-@@ -316,6 +317,14 @@
+@@ -319,6 +320,14 @@
  sub ExtUtils::MakeMaker::new {
      my($class,$self) = @_;
      my($key);

diff --git a/perl-syslog.patch b/perl-syslog.patch
index fdfd08a3749ed003633761aee2371441f013d4a9..7378ac034979cc33c5fbba819213676c5d89254c 100644 (file)
--- a/perl-syslog.patch
+++ b/perl-syslog.patch
@@ -1,5 +1,6 @@
---- perl-5.6.0/perl.c.orig     Fri Mar 17 23:35:15 2000
-+++ perl-5.6.0/perl.c  Fri Aug 11 18:22:33 2000
+diff -urN perl-5.6.1.orig/perl.c perl-5.6.1/perl.c
+--- perl-5.6.1.orig/perl.c     Thu Mar 22 06:05:02 2001
++++ perl-5.6.1/perl.c  Thu Apr 12 20:52:12 2001
 @@ -21,6 +21,9 @@
  #include <unistd.h>
  #endif
@@ -10,7 +11,7 @@
  #if !defined(STANDARD_C) && !defined(HAS_GETENV_PROTOTYPE)
  char *getenv (char *); /* Usually in <stdlib.h> */
  #endif
-@@ -2758,6 +2761,16 @@
+@@ -2880,6 +2883,16 @@
            if (tmpstatbuf.st_dev != PL_statbuf.st_dev ||
                tmpstatbuf.st_ino != PL_statbuf.st_ino) {
                (void)PerlIO_close(PL_rsfp);
@@ -23,14 +24,6 @@
 +              syslog(LOG_ALERT, "Filename of setuid script was %s, uid %ld"
 +                     " gid %ld.", SvPVX(GvSV(CopFILEGV(PL_curcop))),
 +                     PL_statbuf.st_uid, PL_statbuf.st_gid);
-+#else
-               if (PL_rsfp = PerlProc_popen("/bin/mail root","w")) {   /* heh, heh */
-                   PerlIO_printf(PL_rsfp,
- "User %"Uid_t_f" tried to run dev %ld ino %ld in place of dev %ld ino %ld!\n\
-@@ -2768,6 +2781,7 @@
-                       PL_statbuf.st_uid, PL_statbuf.st_gid);
-                   (void)PerlProc_pclose(PL_rsfp);
-               }
 +#endif
                Perl_croak(aTHX_ "Permission denied\n");
            }