From d6c110de4ecd2c954ce5bfed1217394f5d3299d83072d51a1f6944a880d125dd Mon Sep 17 00:00:00 2001 From: OBS User unknown Date: Sat, 12 Jan 2008 01:01:53 +0000 Subject: [PATCH] OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=10 --- perl-5.10.0.dif | 548 +++++++++++++++++++++ perl-5.10.0.tar.bz2 | 3 + perl-5.8.8.dif | 958 ------------------------------------ perl-5.8.8.tar.bz2 | 3 - perl-gracefull-net-ftp.diff | 78 ++- perl-makedepend.diff | 10 - perl-regcomp-5.8.8.dif | 57 --- perl.changes | 11 + perl.spec | 315 ++++++------ 9 files changed, 762 insertions(+), 1221 deletions(-) create mode 100644 perl-5.10.0.dif create mode 100644 perl-5.10.0.tar.bz2 delete mode 100644 perl-5.8.8.dif delete mode 100644 perl-5.8.8.tar.bz2 delete mode 100644 perl-makedepend.diff delete mode 100644 perl-regcomp-5.8.8.dif diff --git a/perl-5.10.0.dif b/perl-5.10.0.dif new file mode 100644 index 0000000..1996c56 --- /dev/null +++ b/perl-5.10.0.dif @@ -0,0 +1,548 @@ +--- ./Configure.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./Configure 2008-01-07 09:33:53.000000000 +0000 +@@ -110,7 +110,7 @@ paths="$paths /usr/5bin /etc /usr/gnu/bi + paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin" + paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb" + paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /opt/ansic/bin /usr/ccs/bin" +-paths="$paths /etc /usr/lib /usr/ucblib /lib /usr/ccs/lib" ++paths="$paths /etc /usr/lib /usr/lib64 /usr/ucblib /lib /usr/ccs/lib" + paths="$paths /sbin /usr/sbin /usr/libexec" + paths="$paths /system/gnu_library/bin" + +@@ -1277,7 +1277,7 @@ loclibpth="/usr/local/lib /opt/local/lib + loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib" + + : general looking path for locating libraries +-glibpth="/lib /usr/lib $xlibpth" ++glibpth="/lib /usr/lib /lib64 /usr/lib64 $xlibpth" + glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib" + test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth" + test -f /shlib/libc.so && glibpth="/shlib $glibpth" +@@ -2340,7 +2340,7 @@ uname + zip + " + pth=`echo $PATH | sed -e "s/$p_/ /g"` +-pth="$pth /lib /usr/lib" ++pth="$pth /lib /usr/lib /lib64 /usr/lib64" + for file in $loclist; do + eval xxx=\$$file + case "$xxx" in +@@ -18439,14 +18439,20 @@ int main(int argc, char *argv[]) + } + EOCP + set try ++ # this is really stupid, but we have to link in the -ldb to have ++ # the above program succeed ++ _old_libs="$libs" ++ libs="$libs -ldb" + if eval $compile_ok && $run ./try; then + echo 'Looks OK.' >&4 ++ libs="$_old_libs" + set `$run ./try 1` + db_version_major=$1 + db_version_minor=$2 + db_version_patch=$3 + else + echo "I can't use Berkeley DB with your . I'll disable Berkeley DB." >&4 ++ libs="$_old_libs" + i_db=$undef + case " $libs " in + *"-ldb "*) +@@ -18489,7 +18495,7 @@ int main() + } + #endif + EOCP +- if $cc $ccflags -c try.c >try.out 2>&1 ; then ++ if $cc $ccflags -c try.c -ldb >try.out 2>&1 ; then + if $contains warning try.out >>/dev/null 2>&1 ; then + db_hashtype='int' + else +@@ -18534,7 +18540,7 @@ int main() + } + #endif + EOCP +- if $cc $ccflags -c try.c >try.out 2>&1 ; then ++ if $cc $ccflags -c try.c -ldb >try.out 2>&1 ; then + if $contains warning try.out >>/dev/null 2>&1 ; then + db_prefixtype='int' + else +@@ -22313,7 +22319,7 @@ passcat='$passcat' + patchlevel='$patchlevel' + path_sep='$path_sep' + perl5='$perl5' +-perl='$perl' ++perl='perl' + perl_patchlevel='$perl_patchlevel' + perladmin='$perladmin' + perllibs='$perllibs' +--- ./SuSE/SuSEconfig.perl.orig 2008-01-07 09:33:53.000000000 +0000 ++++ ./SuSE/SuSEconfig.perl 2008-01-07 09:33:53.000000000 +0000 +@@ -0,0 +1,76 @@ ++#! /bin/bash ++# ++# Copyright (c) 1996 S.u.S.E. Gmbh Fuerth, Germany. All rights reserved. ++# ++# Author: Burchard Steinbild , 1996 ++# Martin Scherbaum , 5/1997 ++# Ruediger Oertel , 7/1998 ++ ++# ++# Variables in /etc/sysconfig/suseconfig used by this script are: ++# CREATE_PERLLOCAL_POD ++# ++# This script calls the scripts: ++# /usr/sbin/perllocal.suse which comes from the package perl ++# ++ ++# ++# check if we are started as root ++# only one of UID and USER must be set correctly ++# ++if test "$UID" != 0 -a "$USER" != root; then ++ echo "You must be root to start $0." ++ exit 1 ++fi ++ ++# ++# SuSEconfig sometimes sets the variable CHECK_NEWPACKAGE. If it is set ++# to false, we don't have to do anything. ++# ++test "$CHECK_NEWPACKAGE" = false && exit 0 ++ ++test -f /etc/sysconfig/suseconfig || { echo "No /etc/sysconfig/suseconfig found." && exit 1 ; } ++. /etc/sysconfig/suseconfig ++ ++# this skript only works in a running system. ++ ++test -n "$ROOT" && exit 0 ++ ++perl -e 'exit 0' 2>/dev/null || { echo "Perl not found." && exit 0 ; } ++ ++# ++# see if we may do any work ++# ++test -n "$CREATE_PERLLOCAL_POD" -a "$CREATE_PERLLOCAL_POD" = "yes" \ ++ || { echo "disabled in sysconfig/suseconfig" && exit 1 ; } ++ ++# ++# check if anything to add ++# ++PERLLOCAL_PATH=`perl -V:installarchlib | sed -e "s/.*='\(.*\)'.*/\1/"` ++ ++NEEDED="false" ++ ++if test -d /var/adm/perl-modules ; then ++ if test /var/adm/perl-modules -nt $PERLLOCAL_PATH/perllocal.pod ; then ++ NEEDED="true" ++ elif test ! -f $PERLLOCAL_PATH/perllocal.pod ; then ++ NEEDED="true" ++ fi ++fi ++ ++# ++# now call the working script ++# ++if "$NEEDED" = "true" ; then ++ if test -x /usr/lib/perl5/perllocal.SuSE ; then ++ /usr/lib/perl5/perllocal.SuSE ++ pod2man $PERLLOCAL_PATH/perllocal.pod | gzip > /usr/share/man/man3/perllocal.3pm.gz ++ else ++ echo "SuSEconfig.perl: /usr/lib/perl5/perllocal.SuSE not found!" ++ fi ++fi ++ ++# ++# end of file SuSEconfig.perl ++# +--- ./SuSE/perllocal.SuSE.orig 2008-01-07 09:33:53.000000000 +0000 ++++ ./SuSE/perllocal.SuSE 2008-01-07 09:33:53.000000000 +0000 +@@ -0,0 +1,84 @@ ++#!/usr/bin/perl ++# Copyright (c) 1998 S.u.S.E. Gmbh Fuerth, Germany. All rights reserved. ++# ++# Author: Ruediger Oertel , 1998 ++# ++ ++use Config; ++ ++sub ReadFile { ++ local (*IF,*modules) = @_; ++ ++ while() { ++ chomp ($_); ++ next if (/^$/); ++ if (/^=head2.*$/) { ++ ($front,$rear) = split (': ',$_); ++ $front =~ s/^=head2\s*//; ++ $modules{$rear} = "$front"; ++ } elsif (/^=over [0-9]*$/) { ++ ($dummy,$num) = split ('\s',$_); ++ $curnum = 0; ++ } elsif (/^C<.*:.*>$/) { ++ $entry = $_; ++ $curnum++; ++ $modules{$rear} .= "\0$entry"; ++ } elsif (/^=back$/) { ++ ; ++ } elsif (/^=item \*$/) { ++ ; ++ } else { ++ print "SuSEconfig.perl: parsing perllocal:\n"; ++ print "ignoring line: $_\n"; ++ } ++ } ++ return %modules; ++} ++ ++local (%allmodules); ++ ++if (open (IF, "<$Config{'installarchlib'}/perllocal.pod")) { ++ %allmodules = ReadFile(*IF,*allmodules); ++} ++close (IF); ++ ++opendir (DIR, "/var/adm/perl-modules"); ++while ($dirent = readdir(DIR)) { ++ next if ($dirent =~ /^\./); ++ open (IF , "/var/adm/perl-modules/$dirent"); ++ %allmodules = ReadFile(*IF,*allmodules); ++ close (IF); ++} ++closedir (DIR); ++ ++ ++if (open (OF, ">$Config{'installarchlib'}/perllocal.pod")) { ++ foreach $key (keys(%allmodules)) { ++ $name = $key; ++ $name =~ s/^.*L\$//; ++ $name =~ s/::/\//; ++ @entries = split ('\0',$allmodules{$key}); ++ $ipath = $entries[1]; ++ $ipath =~ s/^.*\:\s//; ++ $ipath =~ s/>$//; ++ ++ # test if the module is really there, else skip ++ if ( -d "$ipath/$Config{'archname'}/auto/$name" || ++ -d "$Config{'installarchlib'}/auto/$name" ) { ++ $num = $#entries; ++ print OF "=head2 ",shift(@entries),": $key\n\n"; ++ print OF "=over $num\n\n"; ++ while ($_ = shift(@entries)) { ++ print OF "=item *\n\n"; ++ print OF "$_\n\n"; ++ } ++ print OF "=back\n\n"; ++ } ++ } ++ close (OF); ++} else { ++ print "SuSEconfig.perl: Can't write to file $Config{'installarchlib'}/perllocal.pod !\n\n"; ++} ++ +--- ./SuSE/sysconfig.suseconfig-perl.orig 2008-01-07 09:33:53.000000000 +0000 ++++ ./SuSE/sysconfig.suseconfig-perl 2008-01-07 09:33:53.000000000 +0000 +@@ -0,0 +1,8 @@ ++## Path: System/SuSEconfig ++## Type: yesno ++## Default: yes ++## Config: perl ++# ++# May SuSEconfig modify your perllocal.pod? (yes/no) ++# ++CREATE_PERLLOCAL_POD="yes" +--- ./ext/Compress/Raw/Zlib/config.in.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./ext/Compress/Raw/Zlib/config.in 2008-01-07 17:07:58.000000000 +0000 +@@ -16,9 +16,9 @@ + # Setting the Gzip OS Code + # + +-BUILD_ZLIB = True +-INCLUDE = ./zlib-src +-LIB = ./zlib-src ++BUILD_ZLIB = False ++INCLUDE = /usr/include ++LIB = /usr/lib + + OLD_ZLIB = False + GZIP_OS_CODE = AUTO_DETECT +--- ./ext/DynaLoader/hints/linux.pl.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./ext/DynaLoader/hints/linux.pl 2008-01-07 09:33:53.000000000 +0000 +@@ -2,4 +2,7 @@ + # Some Linux releases like to hide their + $self->{CCFLAGS} = $Config{ccflags} . ' -I/usr/include/libelf' + if -f "/usr/include/libelf/nlist.h"; ++# Some silly modules like mod_perl use DynaLoader.a in a shared ++# module, so add cccdlflags if we're going for a shared libperl ++$self->{CCFLAGS} = ($self->{CCFLAGS} || $Config{ccflags}) . " $Config{cccdlflags}" if $Config{'useshrplib'} eq 'true'; + 1; +--- ./ext/NDBM_File/Makefile.PL.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./ext/NDBM_File/Makefile.PL 2008-01-07 09:45:05.000000000 +0000 +@@ -10,6 +10,7 @@ if($Config{i_gdbm} && $Config{i_gdbm} eq + WriteMakefile( + NAME => 'NDBM_File', + LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"], ++ CCFLAGS => '-I/usr/include/db1 -Dbool=char -DHAS_BOOL', + DEFINE => $define, + MAN3PODS => {}, # Pods will be built by installman. + XSPROTOARG => '-noprototypes', # XXX remove later? +--- ./ext/ODBM_File/Makefile.PL.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./ext/ODBM_File/Makefile.PL 2008-01-07 09:34:08.000000000 +0000 +@@ -1,7 +1,7 @@ + use ExtUtils::MakeMaker; + WriteMakefile( + NAME => 'ODBM_File', +- LIBS => ["-ldbm -lucb"], ++ LIBS => ["-lgdbm -lucb"], + MAN3PODS => {}, # Pods will be built by installman. + XSPROTOARG => '-noprototypes', # XXX remove later? + VERSION_FROM => 'ODBM_File.pm', +--- ./ext/ODBM_File/hints/linux.pl.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./ext/ODBM_File/hints/linux.pl 2008-01-07 09:34:08.000000000 +0000 +@@ -1,5 +1,5 @@ + # uses GDBM dbm compatibility feature - at least on SuSE 8.0 +-$self->{LIBS} = ['-lgdbm']; ++$self->{LIBS} = ['-lgdbm -lgdbm_compat']; + + # Debian/Ubuntu have /usr/lib/libgdbm_compat.so.3* but not this file, + # so linking may fail +--- ./ext/Sys/Syslog/t/syslog.t.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./ext/Sys/Syslog/t/syslog.t 2008-01-07 11:49:53.000000000 +0000 +@@ -201,6 +201,7 @@ SKIP: { + } + } + else { ++ $r = 1 unless -e '/dev/log'; + ok( $r, "setlogsock() should return true: '$r'" ); + } + +--- ./hints/linux.sh.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./hints/linux.sh 2008-01-07 09:34:08.000000000 +0000 +@@ -50,7 +50,9 @@ ignore_versioned_solibs='y' + # BSD compatibility library no longer needed + # 'kaffe' has a /usr/lib/libnet.so which is not at all relevant for perl. + # bind causes issues with several reentrant functions +-set `echo X "$libswanted "| sed -e 's/ bsd / /' -e 's/ net / /' -e 's/ bind / /'` ++set `echo X "$libswanted "| \ ++ sed -e 's/ bsd / /' -e 's/ net / /' -e 's/ bind / /' \ ++ -e 's/ db / /' -e 's/ gdbm / /' -e 's/ ndbm / /'` + shift + libswanted="$*" + +@@ -60,7 +62,18 @@ libswanted="$*" + # We don't use __GLIBC__ and __GLIBC_MINOR__ because they + # are insufficiently precise to distinguish things like + # libc-2.0.6 and libc-2.0.7. +-if test -L /lib/libc.so.6; then ++if test -e /lib64/libc.so.6; then ++ libc=`ls -l /lib64/libc.so.6 | awk '{print $NF}'` ++ libc=/lib64/$libc ++ #plibpth='/usr/local/lib64 /usr/lib64 /lib64' ++ glibpth='/lib64 /usr/lib64 /usr/local/lib64' ++ libspath='/usr/local/lib64 /lib64 /usr/lib64' ++ #libpth='/usr/local/lib64 /lib64 /usr/lib64' ++ loclibpth='/usr/local/lib64' ++ lddlflags='-shared -L/usr/local/lib64' ++ ldflags=' -L/usr/local/lib64' ++ libs='-lm -ldl -lcrypt' ++elif test -L /lib/libc.so.6; then + libc=`ls -l /lib/libc.so.6 | awk '{print $NF}'` + libc=/lib/$libc + fi +@@ -130,9 +143,14 @@ case "$optimize" in + esac + ;; + esac ++ optimize="$optimize --pipe" + ;; + esac + ++man1dir=/usr/share/man/man1 ++man3dir=/usr/share/man/man3 ++man3ext=3pm ++ + # Are we using ELF? Thanks to Kenneth Albanowski + # for this test. + cat >try.c <<'EOM' +@@ -217,6 +235,29 @@ EOM + esac + fi + ++case `uname -m` in ++i?86) archname='i586-linux';; ++*) archname=`uname -m`-linux;; ++esac ++ ++case $archname in ++sparc64-linux) glibpth="/lib64 /usr/lib64";; ++esac ++ ++cf_email='feedback@suse.de' ++#libs='-lgdbm -ldb -ldl -lm -lc' ++#libs='-ldl -lm -lc' ++ ++usedl='true' ++dlsrc='dl_dlopen.xs' ++d_dosuid='define' ++d_bincompat3='y' ++ ++# We don't want to add /usr/local/include and /usr/local/lib to the search ++# paths, they are already searched by default. ++locincpth= ++loclibpth= ++ + rm -f try.c a.out + + if /bin/sh -c exit; then +@@ -266,6 +307,9 @@ else + echo "Couldn't find tcsh. Csh-based globbing might be broken." + fi + fi ++csh='' ++d_csh='undef' ++full_csh='' + + # Shimpei Yamashita + # Message-Id: <33EF1634.B36B6500@pobox.com> +@@ -344,6 +388,8 @@ $define|true|[yY]*) + d_localtime_r_proto="$define" + d_random_r_proto="$define" + ++ test -e /lib64/libc.so.6 && libs='-lm -ldl -lcrypt -lpthread' ++ + ;; + esac + EOCBU +--- ./installperl.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./installperl 2008-01-07 09:34:08.000000000 +0000 +@@ -249,7 +249,7 @@ if ($Is_VMS) { # Hang in there until Fi + + # 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,11 @@ else { + 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"); ++ if ($>) { ++ chmod(0711, "$installbin/s$perl_verbase$ver$exe_ext"); ++ } else { ++ chmod(04711, "$installbin/s$perl_verbase$ver$exe_ext"); ++ } + } + + # Install library files. +--- ./lib/ExtUtils/Packlist.pm.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./lib/ExtUtils/Packlist.pm 2008-01-07 09:34:08.000000000 +0000 +@@ -202,8 +202,11 @@ foreach my $key (sort(keys(%{$self->{dat + { + if (! -e $key) + { +- push(@missing, $key); +- delete($self->{data}{$key}) if ($remove); ++ if (($key !~ m!/man/!) || ! -e "$key.gz") ++ { ++ push(@missing, $key); ++ delete($self->{data}{$key}) if ($remove); ++ } + } + } + return(@missing); +--- ./lib/perl5db.pl.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./lib/perl5db.pl 2008-01-07 09:34:12.000000000 +0000 +@@ -3386,6 +3386,8 @@ reading another. + open( OUT, ">&STDOUT" ) # XXX: lost message + || &warn("Can't restore DB::OUT"); + } ++ # tell readline the new OUT handle ++ $term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline; + next CMD; + } ## end unless ($piped = open(OUT,... + +@@ -3510,6 +3512,8 @@ our standard filehandles for input and o + # if necessary, + close(SAVEOUT); + select($selected), $selected = "" unless $selected eq ""; ++ # tell readline the new OUT handle ++ $term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline; + + # No pipes now. + $piped = ""; +--- ./lib/unicore/mktables.orig 2007-12-18 10:47:07.000000000 +0000 ++++ ./lib/unicore/mktables 2008-01-07 09:34:12.000000000 +0000 +@@ -149,7 +149,7 @@ foreach my $lib ('To', 'lib', + map {File::Spec->catdir("lib",$_)} + qw(gc_sc dt bc hst ea jt lb nt ccc)) { + next if -d $lib; +- mkdir $lib, 0755 or die "mkdir '$lib': $!"; ++ mkdir $lib, 0755 or $! =~ /exists/i or die "mkdir '$lib': $!"; + } + + my $LastUnicodeCodepoint = 0x10FFFF; # As of Unicode 3.1.1. +--- ./locale.c.orig 2007-12-18 10:47:08.000000000 +0000 ++++ ./locale.c 2008-01-07 09:52:47.000000000 +0000 +@@ -350,9 +350,15 @@ Perl_init_i18nl10n(pTHX_ int printwarn) + + if (setlocale_failure) { + char *p; ++#if 0 + const bool locwarn = (printwarn > 1 || + (printwarn && + (!(p = PerlEnv_getenv("PERL_BADLANG")) || atoi(p)))); ++#else ++ const bool locwarn = (printwarn > 1 || ++ (printwarn && ++ ((p = PerlEnv_getenv("PERL_BADLANG")) && atoi(p)))); ++#endif + + if (locwarn) { + #ifdef LC_ALL +--- ./t/TEST.orig 2007-12-18 10:47:08.000000000 +0000 ++++ ./t/TEST 2008-01-07 09:34:12.000000000 +0000 +@@ -153,6 +153,7 @@ unless (@ARGV) { + next if $skip{$extension}; + } + my $path = File::Spec->catfile($updir, $t); ++ next unless -e $path; + push @ARGV, $path; + $::path_to_name{$path} = $t; + } +--- ./t/harness.orig 2007-12-18 10:47:08.000000000 +0000 ++++ ./t/harness 2008-01-07 09:39:13.000000000 +0000 +@@ -107,7 +107,8 @@ if (@ARGV) { + # XXX Do I want to warn that I'm skipping these? + next if $skip{$extension}; + } +- push @manitests, File::Spec->catfile($updir, $test); ++ my $t = File::Spec->catfile($updir, $test); ++ push @manitests, $t if -e $t; + } + } + close MANI; +--- ./t/op/numconvert.t.orig 2007-12-18 10:47:08.000000000 +0000 ++++ ./t/op/numconvert.t 2008-01-07 09:34:12.000000000 +0000 +@@ -46,7 +46,7 @@ my $max_chain = $ENV{PERL_TEST_NUMCONVER + + # Bulk out if unsigned type is hopelessly wrong: + my $max_uv1 = ~0; +-my $max_uv2 = sprintf "%u", $max_uv1 ** 6; # 6 is an arbitrary number here ++my $max_uv2 = sprintf "%lu", $max_uv1 ** 6; # 6 is an arbitrary number here + my $big_iv = do {use integer; $max_uv1 * 16}; # 16 is an arbitrary number here + my $max_uv_less3 = $max_uv1 - 3; + +--- ./utils/perlbug.PL.orig 2007-12-18 10:47:08.000000000 +0000 ++++ ./utils/perlbug.PL 2008-01-07 09:34:12.000000000 +0000 +@@ -929,6 +929,7 @@ sendout: + print SENDMAIL "Cc: $cc\n" if $cc; + print SENDMAIL "Reply-To: $from\n" if $from; + print SENDMAIL "Message-Id: $messageid\n" if $messageid; ++ print SENDMAIL "X-Webfrontend: perlbug\n"; + print SENDMAIL "\n\n"; + open(REP, "<$filename") or die "Couldn't open `$filename': $!\n"; + while () { print SENDMAIL $_ } diff --git a/perl-5.10.0.tar.bz2 b/perl-5.10.0.tar.bz2 new file mode 100644 index 0000000..9c21596 --- /dev/null +++ b/perl-5.10.0.tar.bz2 @@ -0,0 +1,3 @@ +version https://git-lfs.github.com/spec/v1 +oid sha256:8f736c2006c14404803302f32f583af0cec0dd9cd3b492318b890ae476141165 +size 12426003 diff --git a/perl-5.8.8.dif b/perl-5.8.8.dif deleted file mode 100644 index 04098e1..0000000 --- a/perl-5.8.8.dif +++ /dev/null @@ -1,958 +0,0 @@ ---- ./Configure.orig 2006-01-08 14:51:03.000000000 +0000 -+++ ./Configure 2006-02-01 11:31:22.000000000 +0000 -@@ -98,7 +98,7 @@ paths="$paths /usr/5bin /etc /usr/gnu/bi - paths="$paths /opt/gnu/bin /opt/new /opt/new/bin /opt/nbin" - paths="$paths /sys5.3/bin /sys5.3/usr/bin /bsd4.3/bin /bsd4.3/usr/ucb" - paths="$paths /bsd4.3/usr/bin /usr/bsd /bsd43/bin /opt/ansic/bin /usr/ccs/bin" --paths="$paths /etc /usr/lib /usr/ucblib /lib /usr/ccs/lib" -+paths="$paths /etc /usr/lib /usr/lib64 /usr/ucblib /lib /usr/ccs/lib" - paths="$paths /sbin /usr/sbin /usr/libexec" - paths="$paths /system/gnu_library/bin" - -@@ -1259,7 +1259,7 @@ loclibpth="/usr/local/lib /opt/local/lib - loclibpth="$loclibpth /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib" - - : general looking path for locating libraries --glibpth="/lib /usr/lib $xlibpth" -+glibpth="/lib /usr/lib /lib64 /usr/lib64 $xlibpth" - glibpth="$glibpth /usr/ccs/lib /usr/ucblib /usr/local/lib" - test -f /usr/shlib/libc.so && glibpth="/usr/shlib $glibpth" - test -f /shlib/libc.so && glibpth="/shlib $glibpth" -@@ -2290,7 +2290,7 @@ uname - zip - " - pth=`echo $PATH | sed -e "s/$p_/ /g"` --pth="$pth /lib /usr/lib" -+pth="$pth /lib /usr/lib /lib64 /usr/lib64" - for file in $loclist; do - eval xxx=\$$file - case "$xxx" in -@@ -7586,7 +7586,7 @@ EOM - ;; - *) case "$osname" in - darwin) dflt='none' ;; -- svr4*|esix*|solaris|nonstopux) dflt='-fPIC' ;; -+ svr4*|esix*|linux*|solaris|nonstopux) dflt='-fPIC' ;; - *) dflt='-fpic' ;; - esac ;; - esac ;; -@@ -17868,14 +17868,20 @@ int main(int argc, char *argv[]) - } - EOCP - set try -+ # this is really stupid, but we have to link in the -ldb to have -+ # the above program succeed -+ _old_libs="$libs" -+ libs="$libs -ldb" - if eval $compile_ok && $run ./try; then - echo 'Looks OK.' >&4 -+ libs="$_old_libs" - set `$run ./try 1` - db_version_major=$1 - db_version_minor=$2 - db_version_patch=$3 - else - echo "I can't use Berkeley DB with your . I'll disable Berkeley DB." >&4 -+ libs="$_old_libs" - i_db=$undef - case " $libs " in - *"-ldb "*) -@@ -17918,7 +17924,7 @@ int main() - } - #endif - EOCP -- if $cc $ccflags -c try.c >try.out 2>&1 ; then -+ if $cc $ccflags -c try.c -ldb >try.out 2>&1 ; then - if $contains warning try.out >>/dev/null 2>&1 ; then - db_hashtype='int' - else -@@ -17963,7 +17969,7 @@ int main() - } - #endif - EOCP -- if $cc $ccflags -c try.c >try.out 2>&1 ; then -+ if $cc $ccflags -c try.c -ldb >try.out 2>&1 ; then - if $contains warning try.out >>/dev/null 2>&1 ; then - db_prefixtype='int' - else -@@ -21757,7 +21763,7 @@ passcat='$passcat' - patchlevel='$patchlevel' - path_sep='$path_sep' - perl5='$perl5' --perl='$perl' -+perl='perl' - perl_patchlevel='$perl_patchlevel' - perladmin='$perladmin' - perllibs='$perllibs' ---- ./SuSE/SuSEconfig.perl.orig 2006-02-01 11:31:22.000000000 +0000 -+++ ./SuSE/SuSEconfig.perl 2006-02-01 11:31:22.000000000 +0000 -@@ -0,0 +1,76 @@ -+#! /bin/bash -+# -+# Copyright (c) 1996 S.u.S.E. Gmbh Fuerth, Germany. All rights reserved. -+# -+# Author: Burchard Steinbild , 1996 -+# Martin Scherbaum , 5/1997 -+# Ruediger Oertel , 7/1998 -+ -+# -+# Variables in /etc/sysconfig/suseconfig used by this script are: -+# CREATE_PERLLOCAL_POD -+# -+# This script calls the scripts: -+# /usr/sbin/perllocal.suse which comes from the package perl -+# -+ -+# -+# check if we are started as root -+# only one of UID and USER must be set correctly -+# -+if test "$UID" != 0 -a "$USER" != root; then -+ echo "You must be root to start $0." -+ exit 1 -+fi -+ -+# -+# SuSEconfig sometimes sets the variable CHECK_NEWPACKAGE. If it is set -+# to false, we don't have to do anything. -+# -+test "$CHECK_NEWPACKAGE" = false && exit 0 -+ -+test -f /etc/sysconfig/suseconfig || { echo "No /etc/sysconfig/suseconfig found." && exit 1 ; } -+. /etc/sysconfig/suseconfig -+ -+# this skript only works in a running system. -+ -+test -n "$ROOT" && exit 0 -+ -+perl -e 'exit 0' 2>/dev/null || { echo "Perl not found." && exit 0 ; } -+ -+# -+# see if we may do any work -+# -+test -n "$CREATE_PERLLOCAL_POD" -a "$CREATE_PERLLOCAL_POD" = "yes" \ -+ || { echo "disabled in sysconfig/suseconfig" && exit 1 ; } -+ -+# -+# check if anything to add -+# -+PERLLOCAL_PATH=`perl -V:installarchlib | sed -e "s/.*='\(.*\)'.*/\1/"` -+ -+NEEDED="false" -+ -+if test -d /var/adm/perl-modules ; then -+ if test /var/adm/perl-modules -nt $PERLLOCAL_PATH/perllocal.pod ; then -+ NEEDED="true" -+ elif test ! -f $PERLLOCAL_PATH/perllocal.pod ; then -+ NEEDED="true" -+ fi -+fi -+ -+# -+# now call the working script -+# -+if "$NEEDED" = "true" ; then -+ if test -x /usr/lib/perl5/perllocal.SuSE ; then -+ /usr/lib/perl5/perllocal.SuSE -+ pod2man $PERLLOCAL_PATH/perllocal.pod | gzip > /usr/share/man/man3/perllocal.3pm.gz -+ else -+ echo "SuSEconfig.perl: /usr/lib/perl5/perllocal.SuSE not found!" -+ fi -+fi -+ -+# -+# end of file SuSEconfig.perl -+# ---- ./SuSE/perllocal.SuSE.orig 2006-02-01 11:31:22.000000000 +0000 -+++ ./SuSE/perllocal.SuSE 2006-02-01 11:31:22.000000000 +0000 -@@ -0,0 +1,84 @@ -+#!/usr/bin/perl -+# Copyright (c) 1998 S.u.S.E. Gmbh Fuerth, Germany. All rights reserved. -+# -+# Author: Ruediger Oertel , 1998 -+# -+ -+use Config; -+ -+sub ReadFile { -+ local (*IF,*modules) = @_; -+ -+ while() { -+ chomp ($_); -+ next if (/^$/); -+ if (/^=head2.*$/) { -+ ($front,$rear) = split (': ',$_); -+ $front =~ s/^=head2\s*//; -+ $modules{$rear} = "$front"; -+ } elsif (/^=over [0-9]*$/) { -+ ($dummy,$num) = split ('\s',$_); -+ $curnum = 0; -+ } elsif (/^C<.*:.*>$/) { -+ $entry = $_; -+ $curnum++; -+ $modules{$rear} .= "\0$entry"; -+ } elsif (/^=back$/) { -+ ; -+ } elsif (/^=item \*$/) { -+ ; -+ } else { -+ print "SuSEconfig.perl: parsing perllocal:\n"; -+ print "ignoring line: $_\n"; -+ } -+ } -+ return %modules; -+} -+ -+local (%allmodules); -+ -+if (open (IF, "<$Config{'installarchlib'}/perllocal.pod")) { -+ %allmodules = ReadFile(*IF,*allmodules); -+} -+close (IF); -+ -+opendir (DIR, "/var/adm/perl-modules"); -+while ($dirent = readdir(DIR)) { -+ next if ($dirent =~ /^\./); -+ open (IF , "/var/adm/perl-modules/$dirent"); -+ %allmodules = ReadFile(*IF,*allmodules); -+ close (IF); -+} -+closedir (DIR); -+ -+ -+if (open (OF, ">$Config{'installarchlib'}/perllocal.pod")) { -+ foreach $key (keys(%allmodules)) { -+ $name = $key; -+ $name =~ s/^.*L\$//; -+ $name =~ s/::/\//; -+ @entries = split ('\0',$allmodules{$key}); -+ $ipath = $entries[1]; -+ $ipath =~ s/^.*\:\s//; -+ $ipath =~ s/>$//; -+ -+ # test if the module is really there, else skip -+ if ( -d "$ipath/$Config{'archname'}/auto/$name" || -+ -d "$Config{'installarchlib'}/auto/$name" ) { -+ $num = $#entries; -+ print OF "=head2 ",shift(@entries),": $key\n\n"; -+ print OF "=over $num\n\n"; -+ while ($_ = shift(@entries)) { -+ print OF "=item *\n\n"; -+ print OF "$_\n\n"; -+ } -+ print OF "=back\n\n"; -+ } -+ } -+ close (OF); -+} else { -+ print "SuSEconfig.perl: Can't write to file $Config{'installarchlib'}/perllocal.pod !\n\n"; -+} -+ ---- ./SuSE/sysconfig.suseconfig-perl.orig 2006-02-01 11:31:22.000000000 +0000 -+++ ./SuSE/sysconfig.suseconfig-perl 2006-02-01 11:31:22.000000000 +0000 -@@ -0,0 +1,8 @@ -+## Path: System/SuSEconfig -+## Type: yesno -+## Default: yes -+## Config: perl -+# -+# May SuSEconfig modify your perllocal.pod? (yes/no) -+# -+CREATE_PERLLOCAL_POD="yes" ---- ./ext/DynaLoader/hints/linux.pl.orig 2003-07-30 22:52:56.000000000 +0000 -+++ ./ext/DynaLoader/hints/linux.pl 2006-02-01 11:31:22.000000000 +0000 -@@ -2,4 +2,7 @@ - # Some Linux releases like to hide their - $self->{CCFLAGS} = $Config{ccflags} . ' -I/usr/include/libelf' - if -f "/usr/include/libelf/nlist.h"; -+# Some silly modules like mod_perl use DynaLoader.a in a shared -+# module, so add cccdlflags if we're going for a shared libperl -+$self->{CCFLAGS} = ($self->{CCFLAGS} || $Config{ccflags}) . " $Config{cccdlflags}" if $Config{'useshrplib'} eq 'true'; - 1; ---- ./ext/IPC/SysV/SysV.xs.orig 2001-06-30 18:46:07.000000000 +0000 -+++ ./ext/IPC/SysV/SysV.xs 2006-02-01 11:31:22.000000000 +0000 -@@ -3,9 +3,6 @@ - #include "XSUB.h" - - #include --#ifdef __linux__ --# include --#endif - #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM) - #ifndef HAS_SEM - # include ---- ./ext/NDBM_File/Makefile.PL.orig 2000-05-28 18:41:12.000000000 +0000 -+++ ./ext/NDBM_File/Makefile.PL 2006-02-01 11:31:22.000000000 +0000 -@@ -2,6 +2,7 @@ use ExtUtils::MakeMaker; - WriteMakefile( - NAME => 'NDBM_File', - LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"], -+ CCFLAGS => '-I/usr/include/db1 -Dbool=char -DHAS_BOOL', - MAN3PODS => {}, # Pods will be built by installman. - XSPROTOARG => '-noprototypes', # XXX remove later? - VERSION_FROM => 'NDBM_File.pm', ---- ./ext/ODBM_File/Makefile.PL.orig 1998-10-15 02:46:08.000000000 +0000 -+++ ./ext/ODBM_File/Makefile.PL 2006-02-01 11:31:22.000000000 +0000 -@@ -1,7 +1,7 @@ - use ExtUtils::MakeMaker; - WriteMakefile( - NAME => 'ODBM_File', -- LIBS => ["-ldbm -lucb"], -+ LIBS => ["-lgdbm -lucb"], - MAN3PODS => {}, # Pods will be built by installman. - XSPROTOARG => '-noprototypes', # XXX remove later? - VERSION_FROM => 'ODBM_File.pm', ---- ./ext/ODBM_File/hints/linux.pl.orig 2002-07-09 08:52:08.000000000 +0000 -+++ ./ext/ODBM_File/hints/linux.pl 2006-02-01 11:31:22.000000000 +0000 -@@ -1,3 +1,3 @@ - # uses GDBM dbm compatibility feature - at least on SuSE 8.0 --$self->{LIBS} = ['-lgdbm']; -+$self->{LIBS} = ['-lgdbm -lgdbm_compat']; - ---- ./ext/threads/Makefile.PL.orig 2003-04-03 06:08:54.000000000 +0000 -+++ ./ext/threads/Makefile.PL 2006-02-01 11:31:22.000000000 +0000 -@@ -10,7 +10,7 @@ WriteMakefile( - (ABSTRACT_FROM => 'threads.pm', # retrieve abstract from module - AUTHOR => 'Artur Bergman ') : ()), - 'MAN3PODS' => {}, # Pods will be built by installman -- 'LIBS' => [''], # e.g., '-lm' -+ 'LIBS' => ['-lpthread'], # e.g., '-lm' - 'DEFINE' => '', # e.g., '-DHAVE_SOMETHING' - # Insert -I. if you add *.h files later: - # 'INC' => '', # e.g., '-I/usr/include/other' ---- ./hints/linux.sh.orig 2005-11-18 01:18:45.000000000 +0000 -+++ ./hints/linux.sh 2006-02-01 11:31:22.000000000 +0000 -@@ -42,7 +42,9 @@ ignore_versioned_solibs='y' - # BSD compatibility library no longer needed - # 'kaffe' has a /usr/lib/libnet.so which is not at all relevant for perl. - # bind causes issues with several reentrant functions --set `echo X "$libswanted "| sed -e 's/ bsd / /' -e 's/ net / /' -e 's/ bind / /'` -+set `echo X "$libswanted "| \ -+ sed -e 's/ bsd / /' -e 's/ net / /' -e 's/ bind / /' \ -+ -e 's/ db / /' -e 's/ gdbm / /' -e 's/ ndbm / /'` - shift - libswanted="$*" - -@@ -52,7 +54,18 @@ libswanted="$*" - # We don't use __GLIBC__ and __GLIBC_MINOR__ because they - # are insufficiently precise to distinguish things like - # libc-2.0.6 and libc-2.0.7. --if test -L /lib/libc.so.6; then -+if test -e /lib64/libc.so.6; then -+ libc=`ls -l /lib64/libc.so.6 | awk '{print $NF}'` -+ libc=/lib64/$libc -+ #plibpth='/usr/local/lib64 /usr/lib64 /lib64' -+ glibpth='/lib64 /usr/lib64 /usr/local/lib64' -+ libspath='/usr/local/lib64 /lib64 /usr/lib64' -+ #libpth='/usr/local/lib64 /lib64 /usr/lib64' -+ loclibpth='/usr/local/lib64' -+ lddlflags='-shared -L/usr/local/lib64' -+ ldflags=' -L/usr/local/lib64' -+ libs='-lm -ldl -lcrypt' -+elif test -L /lib/libc.so.6; then - libc=`ls -l /lib/libc.so.6 | awk '{print $NF}'` - libc=/lib/$libc - fi -@@ -101,9 +114,14 @@ case "$optimize" in - optimize='-O1' - ;; - esac -+ optimize="$optimize --pipe" - ;; - esac - -+man1dir=/usr/share/man/man1 -+man3dir=/usr/share/man/man3 -+man3ext=3pm -+ - # Are we using ELF? Thanks to Kenneth Albanowski - # for this test. - cat >try.c <<'EOM' -@@ -187,6 +205,29 @@ EOM - esac - fi - -+case `uname -m` in -+i?86) archname='i586-linux';; -+*) archname=`uname -m`-linux;; -+esac -+ -+case $archname in -+sparc64-linux) glibpth="/lib64 /usr/lib64";; -+esac -+ -+cf_email='feedback@suse.de' -+#libs='-lgdbm -ldb -ldl -lm -lc' -+#libs='-ldl -lm -lc' -+ -+usedl='true' -+dlsrc='dl_dlopen.xs' -+d_dosuid='define' -+d_bincompat3='y' -+ -+# We don't want to add /usr/local/include and /usr/local/lib to the search -+# paths, they are already searched by default. -+locincpth= -+loclibpth= -+ - rm -f try.c a.out - - if /bin/sh -c exit; then -@@ -236,6 +277,9 @@ else - echo "Couldn't find tcsh. Csh-based globbing might be broken." - fi - fi -+csh='' -+d_csh='undef' -+full_csh='' - - # Shimpei Yamashita - # Message-Id: <33EF1634.B36B6500@pobox.com> -@@ -304,6 +348,8 @@ $define|true|[yY]*) - d_localtime_r_proto="$define" - d_random_r_proto="$define" - -+ test -e /lib64/libc.so.6 && libs='-lm -ldl -lcrypt -lpthread' -+ - ;; - esac - EOCBU ---- ./installperl.orig 2006-01-28 15:35:28.000000000 +0000 -+++ ./installperl 2006-02-01 11:31:22.000000000 +0000 -@@ -227,7 +227,7 @@ if ($Is_VMS) { # Hang in there until Fi - - # 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); -@@ -370,7 +370,11 @@ else { - 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"); -+ if ($>) { -+ chmod(0711, "$installbin/s$perl_verbase$ver$exe_ext"); -+ } else { -+ chmod(04711, "$installbin/s$perl_verbase$ver$exe_ext"); -+ } - } - - # Install library files. ---- ./lib/ExtUtils/Packlist.pm.orig 2002-05-17 22:35:57.000000000 +0000 -+++ ./lib/ExtUtils/Packlist.pm 2006-02-01 11:31:22.000000000 +0000 -@@ -149,8 +149,11 @@ foreach my $key (sort(keys(%{$self->{dat - { - if (! -e $key) - { -- push(@missing, $key); -- delete($self->{data}{$key}) if ($remove); -+ if (($key !~ m!/man/!) || ! -e "$key.gz") -+ { -+ push(@missing, $key); -+ delete($self->{data}{$key}) if ($remove); -+ } - } - } - return(@missing); ---- ./lib/File/Path.pm.orig 2006-01-02 22:11:06.000000000 +0000 -+++ ./lib/File/Path.pm 2006-02-01 11:31:22.000000000 +0000 -@@ -33,7 +33,7 @@ to print the name of each directory as i - =item * - - the numeric mode to use when creating the directories --(defaults to 0777), to be modified by the current umask. -+(defaults to 0777) - - =back - -@@ -72,33 +72,17 @@ or C to remove it, or that it's - - =item * - --a boolean value, which if TRUE will cause C to --skip any files to which you do not have delete access --(if running under VMS) or write access (if running --under another OS). This will change in the future when --a criterion for 'delete permission' under OSs other --than VMS is settled. (defaults to FALSE) -+a boolean value, which if FALSE (the default for non-root users) will -+cause C to adjust the mode of directories (if required) prior -+to attempting to remove the contents. Note that on interruption or -+failure of C, directories may be left with more permissive -+modes for the owner. - - =back - - It returns the number of files successfully deleted. Symlinks are - simply deleted and not followed. - --B There are race conditions internal to the implementation of --C making it unsafe to use on directory trees which may be --altered or moved while C is running, and in particular on any --directory trees with any path components or subdirectories potentially --writable by untrusted users. -- --Additionally, if the third parameter is not TRUE and C is --interrupted, it may leave files and directories with permissions altered --to allow deletion (and older versions of this module would even set --files and directories to world-read/writable!) -- --Note also that the occurrence of errors in C can be determined I --by trapping diagnostic messages using C<$SIG{__WARN__}>; it is not apparent --from the return value. -- - =head1 DIAGNOSTICS - - =over 4 -@@ -124,6 +108,7 @@ use File::Basename (); - use Exporter (); - use strict; - use warnings; -+use Cwd 'getcwd'; - - our $VERSION = "1.08"; - our @ISA = qw( Exporter ); -@@ -172,111 +157,150 @@ sub mkpath { - @created; - } - --sub rmtree { -- my($roots, $verbose, $safe) = @_; -- my(@files); -- my($count) = 0; -- $verbose ||= 0; -- $safe ||= 0; -- -- if ( defined($roots) && length($roots) ) { -- $roots = [$roots] unless ref $roots; -- } -- else { -- carp "No root path(s) specified\n"; -- return 0; -- } -- -- my($root); -- foreach $root (@{$roots}) { -- if ($Is_MacOS) { -- $root = ":$root" if $root !~ /:/; -- $root =~ s#([^:])\z#$1:#; -- } else { -- $root =~ s#/\z##; -- } -- (undef, undef, my $rp) = lstat $root or next; -- $rp &= 07777; # don't forget setuid, setgid, sticky bits -- if ( -d _ ) { -- # notabene: 0700 is for making readable in the first place, -- # it's also intended to change it to writable in case we have -- # to recurse in which case we are better than rm -rf for -- # subtrees with strange permissions -- chmod($rp | 0700, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) -- or carp "Can't make directory $root read+writeable: $!" -- unless $safe; -- -- if (opendir my $d, $root) { -- no strict 'refs'; -- if (!defined ${"\cTAINT"} or ${"\cTAINT"}) { -- # Blindly untaint dir names -- @files = map { /^(.*)$/s ; $1 } readdir $d; -- } else { -- @files = readdir $d; -- } -- closedir $d; -- } -- else { -- carp "Can't read $root: $!"; -- @files = (); -- } -- -- # Deleting large numbers of files from VMS Files-11 filesystems -- # is faster if done in reverse ASCIIbetical order -- @files = reverse @files if $Is_VMS; -- ($root = VMS::Filespec::unixify($root)) =~ s#\.dir\z## if $Is_VMS; -- if ($Is_MacOS) { -- @files = map("$root$_", @files); -- } else { -- @files = map("$root/$_", grep $_!~/^\.{1,2}\z/s,@files); -- } -- $count += rmtree(\@files,$verbose,$safe); -- if ($safe && -- ($Is_VMS ? !&VMS::Filespec::candelete($root) : !-w $root)) { -- print "skipped $root\n" if $verbose; -- next; -- } -- chmod $rp | 0700, $root -- or carp "Can't make directory $root writeable: $!" -- if $force_writeable; -- print "rmdir $root\n" if $verbose; -- if (rmdir $root) { -- ++$count; -- } -- else { -- carp "Can't remove directory $root: $!"; -- chmod($rp, ($Is_VMS ? VMS::Filespec::fileify($root) : $root)) -- or carp("and can't restore permissions to " -- . sprintf("0%o",$rp) . "\n"); -+sub _rmtree -+{ -+ my ($path, $prefix, $up, $up_dev, $up_ino, $verbose, $safe) = @_; -+ -+ my ($dev, $ino, $perm) = lstat $path or do { -+ return 0; -+ }; -+ $perm &= 07777; -+ -+ unless (-d _) -+ { -+ my $nperm; -+ if ($force_writeable) { -+ # make the file writable -+ $nperm = $perm | 0600; -+ unless ($safe or $nperm == $perm or chmod $nperm, $path) { -+ carp "Can't make file $prefix$path writeable: $!"; - } - } -- else { -- if ($safe && -- ($Is_VMS ? !&VMS::Filespec::candelete($root) -- : !(-l $root || -w $root))) -- { -- print "skipped $root\n" if $verbose; -- next; -- } -- chmod $rp | 0600, $root -- or carp "Can't make file $root writeable: $!" -- if $force_writeable; -- print "unlink $root\n" if $verbose; -- # delete all versions under VMS -- for (;;) { -- unless (unlink $root) { -- carp "Can't unlink file $root: $!"; -- if ($force_writeable) { -- chmod $rp, $root -- or carp("and can't restore permissions to " -- . sprintf("0%o",$rp) . "\n"); -- } -- last; -+ print "unlink $prefix$path\n" if $verbose; -+ unless (unlink $path) -+ { -+ carp "Can't remove file $prefix$path ($!)"; -+ if ($force_writeable) { -+ unless ($safe or $nperm == $perm or chmod $perm, $path) { -+ carp("and can't restore permissions to " -+ . sprintf("0%o",$perm) . "\n"); - } -- ++$count; -- last unless $Is_VMS && lstat $root; - } -+ return 0; -+ } -+ return 1; -+ } -+ -+ CHDIR: { -+ last CHDIR if chdir $path; -+ my $err = $!; -+ unless ($safe || ($perm & 0100)) { -+ # might be able to succeed by tweaking the permission -+ # before we chdir -+ last CHDIR if chmod(0700, $path) && chdir($path); -+ } -+ carp "Can't chdir to $prefix$path ($err)"; -+ return 0; -+ } -+ -+ # avoid a race condition where a directory may be replaced by a -+ # symlink between the initial lstat and the chdir -+ my ($new_dev, $new_ino) = stat '.'; -+ unless ("$new_dev:$new_ino" eq "$dev:$ino") -+ { -+ croak "Directory $prefix$path changed before chdir, aborting"; -+ } -+ -+ my $nperm = $perm | 0700; -+ unless ($safe or $nperm == $perm or chmod $nperm, '.') -+ { -+ carp "Can't make directory $prefix$path read+writeable ($!)"; -+ $nperm = $perm; -+ } -+ -+ my $count = 0; -+ if (opendir my $dir, '.') -+ { -+ my $entry; -+ while (defined ($entry = readdir $dir)) -+ { -+ next if $entry =~ /^\.\.?$/; -+ $entry =~ /^(.*)$/s; $entry = $1; # untaint -+ $count += _rmtree($entry, "$prefix$path/", '..', $dev, $ino, -+ $verbose, $safe); - } -+ -+ closedir $dir; -+ } -+ -+ # restore directory permissions is required (in case the rmdir -+ # below fails) now, while we're still in the directory and may do -+ # so without a race via '.' -+ unless ($force_writeable or $safe or $nperm == $perm or chmod $perm, '.') -+ { -+ carp "Can't restore permissions on directory $prefix$path ($!)"; -+ } -+ -+ # don't leave the caller in an unexpected directory -+ unless (chdir $up) -+ { -+ croak "Can't return to $up from $prefix$path ($!)"; -+ } -+ -+ # ensure that a chdir .. didn't take us somewhere other than -+ # where we expected (see CVE-2002-0435) -+ unless (($new_dev, $new_ino) = stat '.' -+ and "$new_dev:$new_ino" eq "$up_dev:$up_ino") -+ { -+ croak "Previous directory $up changed since entering $prefix$path"; -+ } -+ -+ print "rmdir $prefix$path\n" if $verbose; -+ if (rmdir $path) -+ { -+ $count++; -+ } -+ else -+ { -+ carp "Can't remove directory $prefix$path ($!)"; -+ } -+ -+ return $count; -+} -+ -+sub rmtree -+{ -+ my ($p, $verbose, $safe) = @_; -+ $p = [] unless defined $p and length $p; -+ $p = [ $p ] unless ref $p; -+ my @paths = grep defined && length, @$p; -+ -+ # default to "unsafe" for non-root (will chmod dirs) -+ $safe = ($> || $force_writeable) ? 0 : 1 unless defined $safe; -+ -+ unless (@paths) -+ { -+ carp "No root path(s) specified"; -+ return 0; -+ } -+ -+ my $oldpwd = getcwd or do { -+ carp "Can't fetch initial working directory"; -+ return 0; -+ }; -+ -+ my ($dev, $ino) = stat '.' or do { -+ carp "Can't stat initial working directory"; -+ return 0; -+ }; -+ -+ # untaint -+ for ($oldpwd) { /^(.*)$/s; $_ = $1 } -+ -+ my $count = 0; -+ for my $path (@paths) -+ { -+ $count += _rmtree($path, '', $oldpwd, $dev, $ino, $verbose, $safe); - } - - $count; ---- ./lib/autouse.pm.orig 2005-09-22 12:57:33.000000000 +0000 -+++ ./lib/autouse.pm 2006-02-17 14:27:12.000000000 +0000 -@@ -53,7 +53,7 @@ sub import { - require $pm; - vet_import $module; - } -- no warnings 'redefine'; -+ no warnings qw(redefine prototype); - *$closure_import_func = \&{"${module}::$closure_func"}; - print "autousing $module; " - ."imported $closure_func as $closure_import_func\n" ---- ./lib/perl5db.pl.orig 2005-10-29 00:03:21.000000000 +0000 -+++ ./lib/perl5db.pl 2006-02-01 11:31:22.000000000 +0000 -@@ -3362,6 +3362,8 @@ reading another. - open( OUT, ">&STDOUT" ) # XXX: lost message - || &warn("Can't restore DB::OUT"); - } -+ # tell readline the new OUT handle -+ $term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline; - next CMD; - } ## end unless ($piped = open(OUT,... - -@@ -3484,6 +3486,8 @@ our standard filehandles for input and o - # if necessary, - close(SAVEOUT); - select($selected), $selected = "" unless $selected eq ""; -+ # tell readline the new OUT handle -+ $term->Attribs()->{outstream} = *OUT if defined &Term::ReadLine::Gnu::readline; - - # No pipes now. - $piped = ""; ---- ./lib/unicore/mktables.orig 2005-06-01 08:08:41.000000000 +0000 -+++ ./lib/unicore/mktables 2006-02-01 11:31:22.000000000 +0000 -@@ -141,7 +141,7 @@ foreach my $lib ('To', 'lib', - map {File::Spec->catdir("lib",$_)} - qw(gc_sc dt bc hst ea jt lb nt ccc)) { - next if -d $lib; -- mkdir $lib, 0755 or die "mkdir '$lib': $!"; -+ mkdir $lib, 0755 or $! =~ /exists/i or die "mkdir '$lib': $!"; - } - - my $LastUnicodeCodepoint = 0x10FFFF; # As of Unicode 3.1.1. ---- ./locale.c.orig 2005-09-30 15:25:03.000000000 +0000 -+++ ./locale.c 2006-02-01 11:31:22.000000000 +0000 -@@ -337,9 +337,13 @@ Perl_init_i18nl10n(pTHX_ int printwarn) - - if (setlocale_failure) { - char *p; -+#if 0 - bool locwarn = (printwarn > 1 || - (printwarn && - (!(p = PerlEnv_getenv("PERL_BADLANG")) || atoi(p)))); -+#else -+ bool locwarn = 0; -+#endif - - if (locwarn) { - #ifdef LC_ALL ---- ./t/TEST.orig 2005-10-25 12:59:53.000000000 +0000 -+++ ./t/TEST 2006-02-01 11:31:22.000000000 +0000 -@@ -154,6 +154,7 @@ unless (@ARGV) { - next if $skip{$extension}; - } - my $path = File::Spec->catfile($updir, $t); -+ next unless -e $path; - push @ARGV, $path; - $::path_to_name{$path} = $t; - } ---- ./t/harness.orig 2005-11-03 02:10:50.000000000 +0000 -+++ ./t/harness 2006-02-01 11:31:22.000000000 +0000 -@@ -104,7 +104,8 @@ if (@ARGV) { - # XXX Do I want to warn that I'm skipping these? - next if $skip{$extension}; - } -- push @tests, File::Spec->catfile($updir, $test); -+ my $t = File::Spec->catfile($updir, $test); -+ push @tests, $t if -e $t; - } - } - close MANI; ---- ./t/lib/h2ph.pht.orig 2004-12-27 19:55:34.000000000 +0000 -+++ ./t/lib/h2ph.pht 2006-02-01 11:31:22.000000000 +0000 -@@ -15,7 +15,7 @@ unless(defined(&ERROR)) { - }' unless defined(&ERROR); - } - unless(defined(&_H2PH_H_)) { -- eval 'sub _H2PH_H_ () {1;}' unless defined(&_H2PH_H_); -+ eval 'sub _H2PH_H_ {1;}' unless defined(&_H2PH_H_); - # "$Revision h2ph.h,v 1.0 98/05/04 20:42:14 billy $" - undef(&MAX) if defined(&MAX); - eval 'sub MAX { -@@ -33,19 +33,19 @@ unless(defined(&_H2PH_H_)) { - elsif(!(defined (defined(&__SOMETHING_REALLY_REALLY_IMPORTANT) ? &__SOMETHING_REALLY_REALLY_IMPORTANT : 0))) { - die("Nup, can't go on"); - } else { -- eval 'sub EVERYTHING_IS_OK () {1;}' unless defined(&EVERYTHING_IS_OK); -+ eval 'sub EVERYTHING_IS_OK {1;}' unless defined(&EVERYTHING_IS_OK); - } - undef(&WHATEVER) if defined(&WHATEVER); - if((!((defined (defined(&__SOMETHING_TRIVIAL) ? &__SOMETHING_TRIVIAL : 0) && defined (defined(&__SOMETHING_LESS_SO) ? &__SOMETHING_LESS_SO : 0))) || defined (defined(&__SOMETHING_OVERPOWERING) ? &__SOMETHING_OVERPOWERING : 0))) { -- eval 'sub WHATEVER () {6;}' unless defined(&WHATEVER); -+ eval 'sub WHATEVER {6;}' unless defined(&WHATEVER); - } - elsif(!(defined (defined(&__SOMETHING_TRIVIAL) ? &__SOMETHING_TRIVIAL : 0)) ) { -- eval 'sub WHATEVER () {7;}' unless defined(&WHATEVER); -+ eval 'sub WHATEVER {7;}' unless defined(&WHATEVER); - } - elsif(!(defined (defined(&__SOMETHING_LESS_SO) ? &__SOMETHING_LESS_SO : 0)) ) { -- eval 'sub WHATEVER () {8;}' unless defined(&WHATEVER); -+ eval 'sub WHATEVER {8;}' unless defined(&WHATEVER); - } else { -- eval 'sub WHATEVER () {1000;}' unless defined(&WHATEVER); -+ eval 'sub WHATEVER {1000;}' unless defined(&WHATEVER); - } - require 'sys/socket.ph'; - require 'sys/ioctl.ph'; -@@ -71,21 +71,21 @@ unless(defined(&_H2PH_H_)) { - eval("sub Fri () { 5; }") unless defined(&Fri); - eval("sub Sat () { 6; }") unless defined(&Sat); - unless(defined(&_SOMETHING_TRIGRAPHIC)) { -- eval 'sub _SOMETHING_TRIGRAPHIC () {1;}' unless defined(&_SOMETHING_TRIGRAPHIC); -- eval 'sub SOMETHING_ELSE_TRIGRAPHIC_0 () {"|";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_0); -- eval 'sub SOMETHING_ELSE_TRIGRAPHIC_1 () {"^";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_1); -- eval 'sub SOMETHING_ELSE_TRIGRAPHIC_2 () {"[";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_2); -- eval 'sub SOMETHING_ELSE_TRIGRAPHIC_3 () {"]";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_3); -- eval 'sub SOMETHING_ELSE_TRIGRAPHIC_4 () {"~0";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_4); -- eval 'sub SOMETHING_ELSE_TRIGRAPHIC_5 () {"\\ ";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_5); -- eval 'sub SOMETHING_ELSE_TRIGRAPHIC_6 () {"{";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_6); -- eval 'sub SOMETHING_ELSE_TRIGRAPHIC_7 () {"#";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_7); -- eval 'sub SOMETHING_ELSE_TRIGRAPHIC_8 () {"}";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_8); -+ eval 'sub _SOMETHING_TRIGRAPHIC {1;}' unless defined(&_SOMETHING_TRIGRAPHIC); -+ eval 'sub SOMETHING_ELSE_TRIGRAPHIC_0 {"|";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_0); -+ eval 'sub SOMETHING_ELSE_TRIGRAPHIC_1 {"^";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_1); -+ eval 'sub SOMETHING_ELSE_TRIGRAPHIC_2 {"[";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_2); -+ eval 'sub SOMETHING_ELSE_TRIGRAPHIC_3 {"]";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_3); -+ eval 'sub SOMETHING_ELSE_TRIGRAPHIC_4 {"~0";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_4); -+ eval 'sub SOMETHING_ELSE_TRIGRAPHIC_5 {"\\ ";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_5); -+ eval 'sub SOMETHING_ELSE_TRIGRAPHIC_6 {"{";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_6); -+ eval 'sub SOMETHING_ELSE_TRIGRAPHIC_7 {"#";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_7); -+ eval 'sub SOMETHING_ELSE_TRIGRAPHIC_8 {"}";}' unless defined(&SOMETHING_ELSE_TRIGRAPHIC_8); - } - if(1) { - } - eval("sub flim () { 0; }") unless defined(&flim); - eval("sub flam () { 1; }") unless defined(&flam); -- eval 'sub multiline () {"multilinestring";}' unless defined(&multiline); -+ eval 'sub multiline {"multilinestring";}' unless defined(&multiline); - } - 1; ---- ./t/op/numconvert.t.orig 2001-08-29 18:23:58.000000000 +0000 -+++ ./t/op/numconvert.t 2006-02-01 11:31:22.000000000 +0000 -@@ -46,7 +46,7 @@ my $max_chain = $ENV{PERL_TEST_NUMCONVER - - # Bulk out if unsigned type is hopelessly wrong: - my $max_uv1 = ~0; --my $max_uv2 = sprintf "%u", $max_uv1 ** 6; # 6 is an arbitrary number here -+my $max_uv2 = sprintf "%lu", $max_uv1 ** 6; # 6 is an arbitrary number here - my $big_iv = do {use integer; $max_uv1 * 16}; # 16 is an arbitrary number here - my $max_uv_less3 = $max_uv1 - 3; - ---- ./utils/h2ph.PL.orig 2006-01-12 22:55:04.000000000 +0000 -+++ ./utils/h2ph.PL 2006-02-01 11:31:22.000000000 +0000 -@@ -173,11 +173,13 @@ while (defined (my $file = next_file())) - if ($t ne '') { - $new =~ s/(['\\])/\\$1/g; #']); - -+ # Can't use () prototype because macro -+ # redefinitions would produce a warning - if ($opt_h) { -- print OUT $t,"eval \"\\n#line $eval_index $outfile\\n\" . 'sub $name () {",$new,";}' unless defined(\&$name);\n"; -+ print OUT $t,"eval \"\\n#line $eval_index $outfile\\n\" . 'sub $name {",$new,";}' unless defined(\&$name);\n"; - $eval_index++; - } else { -- print OUT $t,"eval 'sub $name () {",$new,";}' unless defined(\&$name);\n"; -+ print OUT $t,"eval 'sub $name {",$new,";}' unless defined(\&$name);\n"; - } - } else { - # Shunt around such directives as `#define FOO FOO': ---- ./utils/perlbug.PL.orig 2006-01-03 19:07:41.000000000 +0000 -+++ ./utils/perlbug.PL 2006-02-01 11:31:22.000000000 +0000 -@@ -906,6 +906,7 @@ sendout: - print SENDMAIL "Cc: $cc\n" if $cc; - print SENDMAIL "Reply-To: $from\n" if $from; - print SENDMAIL "Message-Id: $messageid\n" if $messageid; -+ print SENDMAIL "X-Webfrontend: perlbug\n"; - print SENDMAIL "\n\n"; - open(REP, "<$filename") or die "Couldn't open `$filename': $!\n"; - while () { print SENDMAIL $_ } diff --git a/perl-5.8.8.tar.bz2 b/perl-5.8.8.tar.bz2 deleted file mode 100644 index e70de1e..0000000 --- a/perl-5.8.8.tar.bz2 +++ /dev/null @@ -1,3 +0,0 @@ -version https://git-lfs.github.com/spec/v1 -oid sha256:818a140d9c04ea8dab3a05104b34ced7f7d9d0a91bfed91baf89a84d0dfb1bc9 -size 10123359 diff --git a/perl-gracefull-net-ftp.diff b/perl-gracefull-net-ftp.diff index 40c9b0f..caa079f 100644 --- a/perl-gracefull-net-ftp.diff +++ b/perl-gracefull-net-ftp.diff @@ -9,58 +9,50 @@ Command line ftp clients handle this gracefully, so should we. With this patch, LWP clients see a status_line of "500 This server is busy, ..." 2006-12-20, jw@suse.de ---- perl-5.8.8/lib/Net/FTP.pm.orig 2006-12-20 21:09:01.075906000 +0100 -+++ perl-5.8.8/lib/Net/FTP.pm 2006-12-20 21:09:17.324643000 +0100 -@@ -119,7 +119,7 @@ - unless ($ftp->response() == CMD_OK) - { - $ftp->close(); -- $@ = $ftp->message; -+ $@ = $ftp->message || $@; # keep @$ if no message. Happens, when response did not start with a code. - undef $ftp; +--- lib/Net/FTP.pm.orig 2007-12-18 10:47:07.000000000 +0000 ++++ lib/Net/FTP.pm 2008-01-07 10:08:30.000000000 +0000 +@@ -107,7 +107,7 @@ sub new { + + unless ($ftp->response() == CMD_OK) { + $ftp->close(); +- $@ = $ftp->message; ++ $@ = $ftp->message || $@; # keep $@ if no message. Happens when response did not start with a code. + undef $ftp; } -@@ -1107,7 +1107,7 @@ - sub response - { - my $ftp = shift; -- my $code = $ftp->SUPER::response(); -+ my $code = $ftp->SUPER::response() || 5; # assume 500 if undef +@@ -1077,7 +1077,7 @@ sub command { - delete ${*$ftp}{'net_ftp_pasv'} + sub response { + my $ftp = shift; +- my $code = $ftp->SUPER::response(); ++ my $code = $ftp->SUPER::response() || CMD_ERROR; # assume error if undef + + delete ${*$ftp}{'net_ftp_pasv'} if ($code != CMD_MORE && $code != CMD_INFO); -@@ -1122,9 +1122,11 @@ +@@ -1094,7 +1094,7 @@ sub parse_response { - my $ftp = shift; + # Darn MS FTP server is a load of CRAP !!!! + return () +- unless ${*$ftp}{'net_cmd_code'} + 0; ++ unless (${*$ftp}{'net_cmd_code'} || 0) + 0; -+ - # Darn MS FTP server is a load of CRAP !!!! -+ # Expect to see undef here. - return () -- unless ${*$ftp}{'net_cmd_code'} + 0; -+ unless 0 + (${*$ftp}{'net_cmd_code'}||0); - - (${*$ftp}{'net_cmd_code'},1); + (${*$ftp}{'net_cmd_code'}, 1); } ---- perl-5.8.8/lib/Net/Cmd.pm.orig 2006-12-20 21:09:05.850129000 +0100 -+++ perl-5.8.8/lib/Net/Cmd.pm 2006-12-20 21:09:17.332631000 +0100 -@@ -338,9 +338,11 @@ - if ($cmd->debug); - - ($code,$more) = $cmd->parse_response($str); -+ - unless(defined $code) - { - $cmd->ungetline($str); -+ $@ = $str; # $@ is used as a tunneling hack. - last; +--- lib/Net/Cmd.pm.orig 2007-12-18 10:47:07.000000000 +0000 ++++ lib/Net/Cmd.pm 2008-01-07 10:09:34.000000000 +0000 +@@ -353,6 +353,7 @@ sub response { + ($code, $more) = $cmd->parse_response($str); + unless (defined $code) { + $cmd->ungetline($str); ++ $@ = $str; # $@ is used as a tunneling hack. + last; } -@@ -351,6 +353,7 @@ - last unless($more); - } +@@ -363,6 +364,7 @@ sub response { + last unless ($more); + } -+ return undef unless defined $code; - substr($code,0,1); ++ return undef unless defined $code; + substr($code, 0, 1); } diff --git a/perl-makedepend.diff b/perl-makedepend.diff deleted file mode 100644 index 4569643..0000000 --- a/perl-makedepend.diff +++ /dev/null @@ -1,10 +0,0 @@ ---- makedepend.SH -+++ makedepend.SH -@@ -167,6 +167,7 @@ - -e '/^#.*/d' \ - -e '/^#.*/d' \ - -e '/^#.*/d' \ -+ -e '/^#.*/d' \ - -e '/^#.*"-"/d' \ - -e '/: file path prefix .* never used$/d' \ - -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \ diff --git a/perl-regcomp-5.8.8.dif b/perl-regcomp-5.8.8.dif deleted file mode 100644 index 34006c4..0000000 --- a/perl-regcomp-5.8.8.dif +++ /dev/null @@ -1,57 +0,0 @@ ---- regcomp.c.orig 2006-01-08 20:59:27.000000000 +0000 -+++ regcomp.c 2007-10-19 22:49:41.000000000 +0100 -@@ -136,6 +136,7 @@ - I32 seen_zerolen; - I32 seen_evals; - I32 utf8; -+ I32 orig_utf8; - #if ADD_TO_REGEXEC - char *starttry; /* -Dr: where regtry was called. */ - #define RExC_starttry (pRExC_state->starttry) -@@ -161,6 +162,7 @@ - #define RExC_seen_zerolen (pRExC_state->seen_zerolen) - #define RExC_seen_evals (pRExC_state->seen_evals) - #define RExC_utf8 (pRExC_state->utf8) -+#define RExC_orig_utf8 (pRExC_state->orig_utf8) - - #define ISMULT1(c) ((c) == '*' || (c) == '+' || (c) == '?') - #define ISMULT2(s) ((*s) == '*' || (*s) == '+' || (*s) == '?' || \ -@@ -1749,15 +1751,17 @@ - if (exp == NULL) - FAIL("NULL regexp argument"); - -- RExC_utf8 = pm->op_pmdynflags & PMdf_CMP_UTF8; -+ RExC_orig_utf8 = RExC_utf8 = pm->op_pmdynflags & PMdf_CMP_UTF8; - -- RExC_precomp = exp; - DEBUG_r({ - if (!PL_colorset) reginitcolors(); - PerlIO_printf(Perl_debug_log, "%sCompiling REx%s `%s%*s%s'\n", - PL_colors[4],PL_colors[5],PL_colors[0], -- (int)(xend - exp), RExC_precomp, PL_colors[1]); -+ (int)(xend - exp), exp, PL_colors[1]); - }); -+ -+redo_first_pass: -+ RExC_precomp = exp; - RExC_flags = pm->op_pmflags; - RExC_sawback = 0; - -@@ -1783,6 +1787,17 @@ - RExC_precomp = Nullch; - return(NULL); - } -+ if (RExC_utf8 && !RExC_orig_utf8) { -+ STRLEN len = xend-exp; -+ DEBUG_r(PerlIO_printf(Perl_debug_log, -+ "UTF8 mismatch! Converting to utf8 for resizing and compile\n")); -+ exp = (char*)Perl_bytes_to_utf8(aTHX_ (U8*)exp, &len); -+ xend = exp + len; -+ RExC_orig_utf8 = RExC_utf8; -+ SAVEFREEPV(exp); -+ goto redo_first_pass; -+ } -+ - DEBUG_r(PerlIO_printf(Perl_debug_log, "size %"IVdf" ", (IV)RExC_size)); - - /* Small enough for pointer-storage convention? diff --git a/perl.changes b/perl.changes index bd7de7f..1962223 100644 --- a/perl.changes +++ b/perl.changes @@ -1,3 +1,14 @@ +------------------------------------------------------------------- +Mon Jan 7 20:30:37 CET 2008 - mls@suse.de + +- update to perl-5.10.0 + * happy 20th birthday, perl! + * many new features, e.g. say, switch, state, dor, smart match + * regular expressions now even more convoluted + * some modules are now in core, e.g. zlib, digest::sha + * modules updated to current version + * see perldelta to know all of the glorious details + ------------------------------------------------------------------- Tue Nov 6 09:58:35 CET 2007 - mls@suse.de diff --git a/perl.spec b/perl.spec index 6b3b716..906b2d3 100644 --- a/perl.spec +++ b/perl.spec @@ -1,7 +1,7 @@ # -# spec file for package perl (Version 5.8.8) +# spec file for package perl (Version 5.10.0) # -# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany. # This file and all modifications and additions to the pristine # package are under the same license as the package itself. # @@ -14,23 +14,24 @@ Name: perl Url: http://www.perl.org/ BuildRequires: db-devel gdbm-devel ncurses-devel zlib-devel -Version: 5.8.8 -Release: 82 +Version: 5.10.0 +Release: 1 Summary: The Perl interpreter License: Artistic License; GPL v2 or later Group: Development/Languages/Perl -Provides: perl-500 perl-Filter-Simple perl-I18N-LangTags perl-MIME-Base64 perl-Storable perl-Test-Simple perl-Text-Balanced perl-Time-HiRes perl-libnet +Provides: perl-500 +Provides: perl-Filter-Simple perl-I18N-LangTags perl-MIME-Base64 perl-Storable perl-Test-Simple perl-Text-Balanced perl-Time-HiRes perl-libnet Obsoletes: perl-Filter-Simple perl-I18N-LangTags perl-MIME-Base64 perl-Storable perl-Test-Simple perl-Text-Balanced perl-Time-HiRes perl-libnet -Requires: gzip +Provides: perl-Compress-Zlib perl-Compress-Raw-Zlib perl-IO-Compress-Base perl-IO-Compress-Zlib perl-Archive-Tar perl-Module-Build perl-Locale-Maketext-Simple perl-Module-Pluggable perl-Pod-Escapes perl-Pod-Simple +Obsoletes: perl-Compress-Zlib perl-Compress-Raw-Zlib perl-IO-Compress-Base perl-IO-Compress-Zlib perl-Archive-Tar perl-Module-Build perl-Locale-Maketext-Simple perl-Module-Pluggable perl-Pod-Escapes perl-Pod-Simple +#Requires: gzip # needed in SuSEconfig.perl PreReq: perl-base = %version -PreReq: %fillup_prereq +#PreReq: %fillup_prereq AutoReqProv: on Source: perl-%{version}.tar.bz2 Source1: %name-rpmlintrc Patch: perl-%{version}.dif Patch1: perl-gracefull-net-ftp.diff -Patch2: perl-makedepend.diff -Patch3: perl-regcomp-5.8.8.dif BuildRoot: %{_tmppath}/%{name}-%{version}-build %description @@ -76,11 +77,9 @@ Authors: Larry Wall, Louis J. LaBash, Jr. %prep -%setup -q -n perl-5.8.8 +%setup -q -n perl-5.10.0 %patch -%patch1 -p1 -%patch2 -%patch3 +%patch1 %build options="-Doptimize='$RPM_OPT_FLAGS -Wall -pipe'" @@ -97,7 +96,6 @@ make mv libperl.so savelibperl.so mv lib/Config.pm saveConfig.pm mv lib/Config_heavy.pl saveConfig_heavy.pl -mv lib/auto/DynaLoader/DynaLoader.a saveDynaLoader make clobber ./configure.gnu --prefix=/usr -Dvendorprefix=/usr -Dinstallusrbinperl -Dusethreads -Di_db -Di_dbm -Di_ndbm -Di_gdbm $options make @@ -119,13 +117,12 @@ install -d $vpa/auto install -m 555 savelibperl.so $cpa/CORE/libperl.so install -m 444 saveConfig.pm $cpa/Config.pm install -m 444 saveConfig_heavy.pl $cpa/Config_heavy.pl -install -m 444 saveDynaLoader $cpa/auto/DynaLoader/DynaLoader.a -install -d $RPM_BUILD_ROOT/var/adm/SuSEconfig/bin -install -d $RPM_BUILD_ROOT/sbin/conf.d -install -d $RPM_BUILD_ROOT/var/adm/fillup-templates -install -m 755 SuSE/perllocal.SuSE $RPM_BUILD_ROOT/usr/lib/perl5 -install -m 755 SuSE/SuSEconfig.perl $RPM_BUILD_ROOT/sbin/conf.d -install -m 755 SuSE/sysconfig.suseconfig-perl $RPM_BUILD_ROOT/var/adm/fillup-templates +#install -d $RPM_BUILD_ROOT/var/adm/SuSEconfig/bin +#install -d $RPM_BUILD_ROOT/sbin/conf.d +#install -d $RPM_BUILD_ROOT/var/adm/fillup-templates +#install -m 755 SuSE/perllocal.SuSE $RPM_BUILD_ROOT/usr/lib/perl5 +#install -m 755 SuSE/SuSEconfig.perl $RPM_BUILD_ROOT/sbin/conf.d +#install -m 755 SuSE/sysconfig.suseconfig-perl $RPM_BUILD_ROOT/var/adm/fillup-templates for d in . sys linux asm* bits gnu net netinet db4 rpc arpa; do ( cd /usr/include for f in $d/*.h ; do test "$f" != "$d/*.h" && $RPM_BUILD_ROOT/usr/bin/perl -I$cp -I$cpa $RPM_BUILD_ROOT/usr/bin/h2ph -d $vpa $f || : ; done @@ -133,8 +130,8 @@ for d in . sys linux asm* bits gnu net netinet db4 rpc arpa; do done d="`gcc -print-file-name=include`" test -f "$d/stdarg.h" && (cd $d ; $RPM_BUILD_ROOT/usr/bin/perl -I$cp -I$cpa $RPM_BUILD_ROOT/usr/bin/h2ph -d $vpa stdarg.h stddef.h float.h) -touch $RPM_BUILD_ROOT/usr/share/man/man3/perllocal.3pm -touch $cpa/perllocal.pod +#touch $RPM_BUILD_ROOT/usr/share/man/man3/perllocal.3pm +#touch $cpa/perllocal.pod # test CVE-2007-5116 $RPM_BUILD_ROOT/usr/bin/perl -e '$r=chr(128)."\\x{100}";/$r/' %if 0 @@ -172,12 +169,10 @@ rm $RPM_BUILD_ROOT/usr/share/man/man1/perlvos.1* rm $RPM_BUILD_ROOT/usr/share/man/man1/perlwin32.1* %endif cat << EOF > perl-base-filelist -/usr/lib/perl5/%version/IO/ -/usr/lib/perl5/%version/List/ -/usr/lib/perl5/%version/Scalar/ /usr/lib/perl5/%version/Carp.pm /usr/lib/perl5/%version/Carp/ /usr/lib/perl5/%version/Class/ +/usr/lib/perl5/%version/Config/ /usr/lib/perl5/%version/Digest.pm /usr/lib/perl5/%version/Digest/ /usr/lib/perl5/%version/Exporter.pm @@ -198,6 +193,7 @@ cat << EOF > perl-base-filelist /usr/lib/perl5/%version/bytes_heavy.pl /usr/lib/perl5/%version/constant.pm /usr/lib/perl5/%version/fields.pm +/usr/lib/perl5/%version/feature.pm /usr/lib/perl5/%version/integer.pm /usr/lib/perl5/%version/locale.pm /usr/lib/perl5/%version/overload.pm @@ -205,11 +201,22 @@ cat << EOF > perl-base-filelist /usr/lib/perl5/%version/utf8.pm /usr/lib/perl5/%version/utf8_heavy.pl /usr/lib/perl5/%version/vars.pm +/usr/lib/perl5/%version/version.pm /usr/lib/perl5/%version/*-linux-thread-multi*/Data/ /usr/lib/perl5/%version/*-linux-thread-multi*/Digest/ /usr/lib/perl5/%version/*-linux-thread-multi*/File/ +/usr/lib/perl5/%version/*-linux-thread-multi*/List/ +/usr/lib/perl5/%version/*-linux-thread-multi*/Scalar/ /usr/lib/perl5/%version/*-linux-thread-multi*/IO.pm -/usr/lib/perl5/%version/*-linux-thread-multi*/IO/ +/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Dir.pm +/usr/lib/perl5/%version/*-linux-thread-multi*/IO/File.pm +/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Handle.pm +/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Pipe.pm +/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Poll.pm +/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Seekable.pm +/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Select.pm +/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Socket.pm +/usr/lib/perl5/%version/*-linux-thread-multi*/IO/Socket/ /usr/lib/perl5/%version/*-linux-thread-multi*/B.pm /usr/lib/perl5/%version/*-linux-thread-multi*/B/Deparse.pm /usr/lib/perl5/%version/*-linux-thread-multi*/Config.pm @@ -238,9 +245,8 @@ cat << EOF > perl-base-filelist /usr/lib/perl5/%version/*-linux-thread-multi*/re.pm EOF cat perl-base-filelist | sed -e 's/^/%exclude /g' > perl-base-excludes - -%post -%{fillup_only -an suseconfig} +#%post +#%{fillup_only -an suseconfig} %files base -f perl-base-filelist %defattr(-,root,root) @@ -261,306 +267,315 @@ cat perl-base-filelist | sed -e 's/^/%exclude /g' > perl-base-excludes %exclude /usr/bin/perl%version %exclude /usr/bin/suidperl %exclude /usr/share/man/man1/perl.1.gz -/sbin/conf.d/SuSEconfig.perl -/var/adm/fillup-templates/sysconfig.suseconfig-perl /usr/bin/* /usr/lib/perl5/* -%ghost /usr/lib/perl*/*/*/perllocal.pod %doc /usr/share/man/man1/* %doc /usr/share/man/man3/* -%ghost %doc /usr/share/man/man3/perllocal.3pm.gz +#/sbin/conf.d/SuSEconfig.perl +#/var/adm/fillup-templates/sysconfig.suseconfig-perl +#%ghost /usr/lib/perl*/*/*/perllocal.pod +#%ghost %doc /usr/share/man/man3/perllocal.3pm.gz + %changelog -* Tue Nov 06 2007 - mls@suse.de +* Mon Jan 07 2008 mls@suse.de +- update to perl-5.10.0 + * happy 20th birthday, perl! + * many new features, e.g. say, switch, state, dor, smart match + * regular expressions now even more convoluted + * some modules are now in core, e.g. zlib, digest::sha + * modules updated to current version + * see perldelta to know all of the glorious details +* Tue Nov 06 2007 mls@suse.de - fix buffer overflow in regex engine CVE-2007-5116 (#332199) -* Wed Oct 31 2007 - dmueller@suse.de +* Wed Oct 31 2007 dmueller@suse.de - update rpmlintrc -* Fri May 25 2007 - ro@suse.de +* Fri May 25 2007 ro@suse.de - added rpmlintrc: ignore some devel files in perl package -* Mon May 21 2007 - rguenther@suse.de +* Mon May 21 2007 rguenther@suse.de - Include Config_heavy.pl in perl-base. -* Fri May 11 2007 - rguenther@suse.de +* Fri May 11 2007 rguenther@suse.de - Add all required directories to perl-base. -* Mon Apr 23 2007 - rguenther@suse.de +* Mon Apr 23 2007 rguenther@suse.de - Split off a perl-base package containing /usr/bin/perl and some basic modules. - Depend on perl-base from perl. -* Mon Mar 26 2007 - rguenther@suse.de +* Mon Mar 26 2007 rguenther@suse.de - Add gdbm-devel, ncurses-devel and zlib-devel BuildRequires. -* Wed Dec 27 2006 - schwab@suse.de +* Wed Dec 27 2006 schwab@suse.de - Fix makedepend. -* Wed Dec 20 2006 - jw@suse.de +* Wed Dec 20 2006 jw@suse.de - graceful-net-ftp patch added. Lousy FTP server responses could trigger silly error messages in Net::FTP and had no usable status_line in LWP. Now it is 500 + whatever message the server responded. -* Fri Feb 17 2006 - mls@suse.de +* Fri Feb 17 2006 mls@suse.de - suppress prototype warning in autouse [#151459] -* Wed Feb 01 2006 - mls@suse.de +* Wed Feb 01 2006 mls@suse.de - update to perl-5.8.8 - enable use64bitint on ppc/ppc64 -* Sun Jan 29 2006 - mls@suse.de +* Sun Jan 29 2006 mls@suse.de - converted neededforbuild to BuildRequires -* Sat Jan 28 2006 - mls@suse.de +* Sat Jan 28 2006 mls@suse.de - update to perl-5.8.8-RC1 -* Fri Dec 09 2005 - mls@suse.de +* Fri Dec 09 2005 mls@suse.de - fix sprintf format string issues CVE-2005-3962 (#136360) - added workaround for hanging debugger (#135559) - moved SuSEconfig script to /usr/lib/perl5 (#130762) -* Tue Sep 06 2005 - mls@suse.de +* Tue Sep 06 2005 mls@suse.de - fix infinite warn recursion by backporting change from bleadperl [#115402] -* Thu Aug 18 2005 - mls@suse.de +* Thu Aug 18 2005 mls@suse.de - remove postun, handle it with ghosts -* Thu Jul 28 2005 - mls@suse.de +* Thu Jul 28 2005 mls@suse.de - deal with new Config_heavy.pl -* Mon Jul 25 2005 - mls@suse.de +* Mon Jul 25 2005 mls@suse.de - add rmtree patch (CAN-2005-0448) -* Fri Jul 22 2005 - lmuelle@suse.de +* Fri Jul 22 2005 lmuelle@suse.de - update to perl-5.8.7 -* Wed Apr 06 2005 - meissner@suse.de +* Wed Apr 06 2005 meissner@suse.de - moved # icecream 0 tag where it does not get removed by checkin. -* Wed Apr 06 2005 - meissner@suse.de +* Wed Apr 06 2005 meissner@suse.de - Disable icecream to avoid problem with gcc4 / libperl.so preload. -* Thu Mar 24 2005 - uli@suse.de +* Thu Mar 24 2005 uli@suse.de - fixed to build on ARM -* Fri Feb 18 2005 - mls@suse.de +* Fri Feb 18 2005 mls@suse.de - fix perlbug mail sending -* Thu Feb 17 2005 - mls@suse.de +* Thu Feb 17 2005 mls@suse.de - fix broken :encoding(utf8) -* Fri Feb 04 2005 - mls@suse.de +* Fri Feb 04 2005 mls@suse.de - fix CAN-2005-0155/CAN-2005-0156 (PERLIO_DEBUG) - fix CAN-2004-0452 (File::Path::rmtree) -* Mon Nov 29 2004 - mls@suse.de +* Mon Nov 29 2004 mls@suse.de - update to perl-5.8.6 -* Thu Aug 26 2004 - schwab@suse.de +* Thu Aug 26 2004 schwab@suse.de - Remove gratuitous use of kernel header. - Fix mkdir race. -* Wed Jul 28 2004 - mls@suse.de +* Wed Jul 28 2004 mls@suse.de - update to perl-5.8.5 -* Tue Mar 16 2004 - mls@suse.de +* Tue Mar 16 2004 mls@suse.de - fix instmodsh tmp file usage -* Fri Feb 27 2004 - mls@suse.de +* Fri Feb 27 2004 mls@suse.de - update to perl-5.8.3 -* Mon Dec 08 2003 - mls@suse.de +* Mon Dec 08 2003 mls@suse.de - fix setenv issue by making perl behave differently if used embedded in an application (turns on PERL_USE_SAFE_PUTENV). [#32548] -* Sun Nov 02 2003 - adrian@suse.de +* Sun Nov 02 2003 adrian@suse.de - add missing Requires for gzip (used in SuSEconfig.perl) - make it possible to build as non-root -* Mon Oct 06 2003 - mls@suse.de +* Mon Oct 06 2003 mls@suse.de - update to perl-5.8.1 - fix srand initialization problem [perl change #21397] -* Mon Sep 22 2003 - mls@suse.de +* Mon Sep 22 2003 mls@suse.de - update to perl-5.8.1-RC5 -* Fri Aug 22 2003 - mls@suse.de +* Fri Aug 22 2003 mls@suse.de - update to perl-5.8.1-RC4 - added sysconfig metadata - use /usr/lib/perl* in the filelist so /usr/lib/debug doesn't get picked up -* Thu Aug 21 2003 - mjancar@suse.cz +* Thu Aug 21 2003 mjancar@suse.cz - use $RPM_OPT_FLAGS -* Fri Aug 01 2003 - mls@suse.de +* Fri Aug 01 2003 mls@suse.de - fixed perlcc -* Thu Jul 31 2003 - mls@suse.de +* Thu Jul 31 2003 mls@suse.de - update to perl-5.8.1-RC3 -* Mon Jul 14 2003 - mls@suse.de +* Mon Jul 14 2003 mls@suse.de - MM_Unix: fix vendor/siteman default path -* Fri Jul 11 2003 - mls@suse.de +* Fri Jul 11 2003 mls@suse.de - create auto dirs in vendor_perl -* Fri Jul 11 2003 - mls@suse.de +* Fri Jul 11 2003 mls@suse.de - update to perl-5.8.1-RC2 - use buildroot -* Wed Jun 11 2003 - kukuk@suse.de +* Wed Jun 11 2003 kukuk@suse.de - Add auto subdirectory for perl modules -* Fri May 09 2003 - ro@suse.de +* Fri May 09 2003 ro@suse.de - fix build with db-4.1 -* Thu Feb 06 2003 - mls@suse.de +* Thu Feb 06 2003 mls@suse.de - add sysconfig metadata to sysconfig.suseconfig-perl - fix memory leak in socket creation - restart stdio read/write when receiving EINTR -* Thu Jan 09 2003 - mls@suse.de +* Thu Jan 09 2003 mls@suse.de - link with -lgdbm_compat when building ODBM_File -* Tue Sep 17 2002 - ro@suse.de +* Tue Sep 17 2002 ro@suse.de - get all ph-files for bi-arch platforms -* Tue Sep 17 2002 - mls@suse.de +* Tue Sep 17 2002 mls@suse.de - work around a bug in .ph file generation (#19664) -* Mon Sep 09 2002 - mls@suse.de +* Mon Sep 09 2002 mls@suse.de - fix permissions of libperl.so - added missing enc2xs binary - create more .ph header files - fixed h2ph enum handling - (fixes bug #19175) -* Fri Aug 23 2002 - mls@suse.de +* Fri Aug 23 2002 mls@suse.de - Fix bug in conversion of literals to floating point - Add workaround for glibc crypt_r() bug -* Fri Aug 09 2002 - mls@suse.de +* Fri Aug 09 2002 mls@suse.de - fix libs to include pthreads if threads are selected and /lib64/libc.so.6 exists -* Thu Aug 08 2002 - mls@suse.de +* Thu Aug 08 2002 mls@suse.de - enabled thread support -* Wed Aug 07 2002 - mls@suse.de +* Wed Aug 07 2002 mls@suse.de - corrected file list, added obsolete entries also to provides -* Wed Jul 31 2002 - mls@suse.de +* Wed Jul 31 2002 mls@suse.de - Added Obsoletes line to obsolete all modules now packed with the core perl -* Fri Jul 26 2002 - kukuk@suse.de +* Fri Jul 26 2002 kukuk@suse.de - Add a Provide "perl-base" [Bug #17259] -* Tue Jul 23 2002 - mls@suse.de +* Tue Jul 23 2002 mls@suse.de - Allow missing tests in 'make test' - delete broken lib/File/Find/t/find.t test -* Tue Jul 23 2002 - mls@suse.de +* Tue Jul 23 2002 mls@suse.de - MM_Unix.pm: use INSTALLARCHLIB instead of INSTALLSITEARCH to store the site perllocal.pod file, like the printed message says - added missing man3 pages -* Mon Jul 22 2002 - mls@suse.de +* Mon Jul 22 2002 mls@suse.de - MM_Unix.pm: allow to overwrite PREFIX in the makefile, use better default for installsiteman{1,3}dir -* Fri Jul 19 2002 - mls@suse.de +* Fri Jul 19 2002 mls@suse.de - update to perl-5.8.0 -* Fri Jul 05 2002 - kukuk@suse.de +* Fri Jul 05 2002 kukuk@suse.de - Use %%ix86 macro -* Tue Jun 18 2002 - uli@suse.de +* Tue Jun 18 2002 uli@suse.de - disable check on armv4l -* Mon Jun 10 2002 - mls@suse.de +* Mon Jun 10 2002 mls@suse.de - Pod::Man: don't put the generation date in the man pages -* Thu Jun 06 2002 - olh@suse.de +* Thu Jun 06 2002 olh@suse.de - disable make check on ppc64, enable lfs test on ppc -* Thu Mar 14 2002 - mls@suse.de +* Thu Mar 14 2002 mls@suse.de - Allow XSUBs as AUTOLOAD functions, worked in 5.6.0, needed for perl-Qt -* Fri Feb 22 2002 - mls@suse.de +* Fri Feb 22 2002 mls@suse.de - Fixed File::Find if no_chdir is set (Ticket 20020213990000277) -* Wed Feb 20 2002 - mls@suse.de +* Wed Feb 20 2002 mls@suse.de - Build DynaLoader.a with -fPIC to make mod_perl work on s390x -* Wed Feb 06 2002 - coolo@suse.de +* Wed Feb 06 2002 coolo@suse.de - patch Configure to also use -fPIC on Linux - prevents crashes on s390x - ported over the hints patch from 7.2-lib64 -* Tue Feb 05 2002 - mls@suse.de +* Tue Feb 05 2002 mls@suse.de - Use Config.pm of libperl.so build, so that apps use the right link options. -* Mon Feb 04 2002 - mls@suse.de +* Mon Feb 04 2002 mls@suse.de - Added generation of libperl.so -* Thu Jan 24 2002 - schwab@suse.de +* Thu Jan 24 2002 schwab@suse.de - Fix h2ph for gcc 3. -* Mon Jan 14 2002 - mls@suse.de +* Mon Jan 14 2002 mls@suse.de - Moved rc.config variable to sysconfig/suseconfig -* Mon Jan 07 2002 - schwab@suse.de +* Mon Jan 07 2002 schwab@suse.de - Fix dependency generation for gcc 3.1 again. -* Thu Dec 06 2001 - schwab@suse.de +* Thu Dec 06 2001 schwab@suse.de - Don't add /usr/local/lib and /usr/local/include to the search paths. - Fix dependency generation for gcc 3.1. -* Tue Nov 20 2001 - schwab@suse.de +* Tue Nov 20 2001 schwab@suse.de - Don't generate h2ph, h2xs, pod2man manpages by hand. -* Thu Sep 27 2001 - mls@suse.de +* Thu Sep 27 2001 mls@suse.de - Fixed generation of perllocal.pod, also create perllocal.3pm -* Wed Sep 12 2001 - mls@suse.de +* Wed Sep 12 2001 mls@suse.de - Fixed h2ph macro expansion/redefinition bugs. - Moved *.ph creation from SuSEconfig to spec file. -* Fri Aug 31 2001 - schwab@suse.de +* Fri Aug 31 2001 schwab@suse.de - Remove ia64 workarounds. -* Wed Jun 20 2001 - mls@suse.de +* Wed Jun 20 2001 mls@suse.de - bzip2 source -* Wed Jun 20 2001 - mls@suse.de +* Wed Jun 20 2001 mls@suse.de - Update to perl-5.6.1 - Merged linux-alpha.sh and linux-sparc.sh into linux.sh - axp compiler workaround: add -mieee - use /lib64:/usr/lib64 on sparc64 -* Mon Jun 11 2001 - schwab@suse.de +* Mon Jun 11 2001 schwab@suse.de - Remove ElectricFence from neededforbuild (got added by accident). -* Fri Apr 13 2001 - schwab@suse.de +* Fri Apr 13 2001 schwab@suse.de - Build with -O0 on ia64. -* Mon Mar 26 2001 - schwab@suse.de +* Mon Mar 26 2001 schwab@suse.de - Fix equality operator for systems that don't have NV_PRESERVES_UV. - Reenable some tests on ia64. -* Thu Feb 22 2001 - schwab@suse.de +* Thu Feb 22 2001 schwab@suse.de - Fix POSIX module. -* Tue Dec 05 2000 - schwab@suse.de +* Tue Dec 05 2000 schwab@suse.de - Disable some problematic tests on ia64. - Merge ia64 configuration with generic linux. -* Thu Oct 26 2000 - ro@suse.de +* Thu Oct 26 2000 ro@suse.de - use new db for DB_File - perl binary is no longer linked to any db lib -* Tue Oct 10 2000 - ro@suse.de +* Tue Oct 10 2000 ro@suse.de - Config.pm: set $perl to 'perl' - bzipped sources - added some mandir patches -* Mon Sep 25 2000 - ro@suse.de +* Mon Sep 25 2000 ro@suse.de - no test for lfs on ppc -* Wed Aug 16 2000 - ro@suse.de +* Wed Aug 16 2000 ro@suse.de - update to 5.6.0 -* Tue Aug 15 2000 - ro@suse.de +* Tue Aug 15 2000 ro@suse.de - Security fix (/bin/mail+suidperl) added (from draht@suse.de) -* Fri Jul 14 2000 - kukuk@suse.de +* Fri Jul 14 2000 kukuk@suse.de - Add license information and group tag (Bug #3454) -* Tue Jul 11 2000 - ro@suse.de +* Tue Jul 11 2000 ro@suse.de - make perllocal.SuSE script more flexible -* Sat Apr 01 2000 - bk@suse.de +* Sat Apr 01 2000 bk@suse.de - some tests don't pass on s390 too, known. -* Fri Mar 03 2000 - schwab@suse.de +* Fri Mar 03 2000 schwab@suse.de - Add support for ia64. -* Wed Jan 19 2000 - ro@suse.de +* Wed Jan 19 2000 ro@suse.de - man -> /usr/share/man ; affects all perl packages -* Tue Dec 14 1999 - kukuk@suse.de +* Tue Dec 14 1999 kukuk@suse.de - Fixed for SPARC -* Tue Nov 02 1999 - ro@suse.de +* Tue Nov 02 1999 ro@suse.de - do h2ph for stdarg and stddef (BUG#785) -* Tue Oct 19 1999 - ro@suse.de +* Tue Oct 19 1999 ro@suse.de - don't print error if /usr/src/linux is not owned by a package (BUG#215) -* Mon Sep 13 1999 - bs@suse.de +* Mon Sep 13 1999 bs@suse.de - ran old prepare_spec on spec file to switch to new prepare_spec. -* Fri Aug 27 1999 - ro@suse.de +* Fri Aug 27 1999 ro@suse.de - added "gnu","net" and "rpc" to directories for h2ph -* Fri Jul 09 1999 - ro@suse.de +* Fri Jul 09 1999 ro@suse.de - added "bits" to directories for h2ph (closing BUG 58) -* Thu Jul 08 1999 - ro@suse.de +* Thu Jul 08 1999 ro@suse.de - fix for perldoc - update to 5.005_03 -* Mon Mar 01 1999 - ro@suse.de +* Mon Mar 01 1999 ro@suse.de - t/lib/anydbm: removed test 12 : create empty record: invalid for db2 -* Thu Jan 07 1999 - ro@suse.de +* Thu Jan 07 1999 ro@suse.de - alpha changes ; dont "make test" on alpha for now :-( -* Mon Nov 16 1998 - ro@suse.de +* Mon Nov 16 1998 ro@suse.de - update to 5.00502 - fixed manpages for h2ph, h2xs, pod2man - use configure.gnu - keep SuSEconfig.perl from using more time than needed -* Fri Aug 28 1998 - ro@suse.de +* Fri Aug 28 1998 ro@suse.de - updated to version perl5.004_05-MAINT_TRIAL_5 - updated filelist - temporarily disablet test op/group.t for nobody/nogroup problem -* Wed Aug 19 1998 - ro@suse.de +* Wed Aug 19 1998 ro@suse.de - added security-patches for pstruct and perldoc -* Fri Jul 24 1998 - bs@suse.de +* Fri Jul 24 1998 bs@suse.de - enabled bincompat3 -* Thu Jul 09 1998 - ro@suse.de +* Thu Jul 09 1998 ro@suse.de - added some security and glib-patches (doio.c, perl.c) - re-added support for gdbm -* Mon Jul 06 1998 - ro@suse.de +* Mon Jul 06 1998 ro@suse.de - added rc.config.perl with variables: CREATE_PERLLOCAL_POD="yes" GENERATE_PERL_SYSTEM_INCLUDES="yes" -* Mon Jul 06 1998 - ro@suse.de +* Mon Jul 06 1998 ro@suse.de - added SuSEconfig.perl and perllocal.SuSE + check if kernel-sources have changed and call h2ph + check installed modules and add/delete entries in perllocal.pod -* Thu Jan 22 1998 - florian@suse.de +* Thu Jan 22 1998 florian@suse.de - use a fixed path as architecture name -* Tue Nov 11 1997 - florian@suse.de +* Tue Nov 11 1997 florian@suse.de - fixed file list - update to perl 5.004_04 -* Tue Oct 14 1997 - ro@suse.de +* Tue Oct 14 1997 ro@suse.de - ready for autobuild updated file list -* Thu Oct 09 1997 - florian@suse.de +* Thu Oct 09 1997 florian@suse.de - prepare for autobuild -* Tue May 20 1997 - florian@suse.de +* Tue May 20 1997 florian@suse.de - update to version 5.004 - disable hooks to csh in perl, it is not installed on all systems -* Thu Jan 02 1997 - bs@suse.de +* Thu Jan 02 1997 bs@suse.de h2ph call in doinst.sh added. -* Thu Jan 02 1997 - florian@suse.de +* Thu Jan 02 1997 florian@suse.de update to version 5.003 security fix for suidperl