OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=10

2008-01-12 01:01:53 +00:00 · 2008-01-12 01:01:53 +00:00 · d6c110de4e
commit d6c110de4e
parent db3593a33c
9 changed files with 762 additions and 1221 deletions
--- a/perl-5.10.0.dif
+++ 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 <db.h>.  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 <bs@suse.de>, 1996
 +#         Martin Scherbaum <maddin@suse.de>, 5/1997         
 +#         Ruediger Oertel <ro@suse.de>, 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 <ro@suse.de>, 1998
 +#
 +
 +use Config;
 +
 +sub ReadFile {
 +  local (*IF,*modules) = @_;
 +
 +  while(<IF>) {
 +	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/.*\|//;
 +	$name =~ s/>$//;
 +	$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 <nlist.h>
 $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 <kjahds@kjahds.com>
 # 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 <shimpei@socrates.patnet.caltech.edu>
 # 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 (<REP>) { print SENDMAIL $_ }
--- a/perl-5.10.0.tar.bz2
+++ b/perl-5.10.0.tar.bz2
@ -0,0 +1,3 @@
 version https://git-lfs.github.com/spec/v1
 oid sha256:8f736c2006c14404803302f32f583af0cec0dd9cd3b492318b890ae476141165
 size 12426003
--- a/perl-5.8.8.dif
+++ b/perl-5.8.8.dif
@ -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 <db.h>.  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 <bs@suse.de>, 1996
 +#         Martin Scherbaum <maddin@suse.de>, 5/1997         
 +#         Ruediger Oertel <ro@suse.de>, 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 <ro@suse.de>, 1998
 +#
 +
 +use Config;
 +
 +sub ReadFile {
 +  local (*IF,*modules) = @_;
 +
 +  while(<IF>) {
 +	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/.*\|//;
 +	$name =~ s/>$//;
 +	$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 <nlist.h>
 $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 <sys/types.h>
 -#ifdef __linux__
 -#   include <asm/page.h>
 -#endif
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
 #ifndef HAS_SEM
 #   include <sys/ipc.h>
 --- ./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  <artur@contiller.se>') : ()),
     '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 <kjahds@kjahds.com>
 # 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 <shimpei@socrates.patnet.caltech.edu>
 # 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<unlink> to remove it, or that it's 
 =item *
 -a boolean value, which if TRUE will cause C<rmtree> 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<rmtree> to adjust the mode of directories (if required) prior
 +to attempting to remove the contents.  Note that on interruption or
 +failure of C<rmtree>, 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<NOTE:> There are race conditions internal to the implementation of
 -C<rmtree> making it unsafe to use on directory trees which may be
 -altered or moved while C<rmtree> 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<rmtree> 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<rmtree> can be determined I<only>
 -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 (<REP>) { print SENDMAIL $_ }
--- a/perl-5.8.8.tar.bz2
+++ b/perl-5.8.8.tar.bz2
@ -1,3 +0,0 @@
 version https://git-lfs.github.com/spec/v1
 oid sha256:818a140d9c04ea8dab3a05104b34ced7f7d9d0a91bfed91baf89a84d0dfb1bc9
 size 10123359
--- 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
+--- lib/Net/FTP.pm.orig	2007-12-18 10:47:07.000000000 +0000
-+++ perl-5.8.8/lib/Net/FTP.pm	2006-12-20 21:09:17.324643000 +0100
+++ lib/Net/FTP.pm	2008-01-07 10:08:30.000000000 +0000
-@@ -119,7 +119,7 @@
+@@ -107,7 +107,7 @@ sub new {
-  unless ($ftp->response() == CMD_OK)
+ 
-   {
+   unless ($ftp->response() == CMD_OK) {
-    $ftp->close();
+     $ftp->close();
-   $@ = $ftp->message;
+-    $@ = $ftp->message;
-+   $@ = $ftp->message || $@;	# keep @$ if no message. Happens, when response did not start with a code.
+    $@ = $ftp->message || $@;	# keep $@ if no message. Happens when response did not start with a code.
-    undef $ftp;
+     undef $ftp;
   }
-@@ -1107,7 +1107,7 @@
+@@ -1077,7 +1077,7 @@ sub command {
 sub response
 {
  my $ftp = shift;
 - my $code = $ftp->SUPER::response();
 + my $code = $ftp->SUPER::response() || 5;	# assume 500 if undef
-  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;
-+
+   (${*$ftp}{'net_cmd_code'}, 1);
  # 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);
 }
--- perl-5.8.8/lib/Net/Cmd.pm.orig	2006-12-20 21:09:05.850129000 +0100
+--- lib/Net/Cmd.pm.orig	2007-12-18 10:47:07.000000000 +0000
-+++ perl-5.8.8/lib/Net/Cmd.pm	2006-12-20 21:09:17.332631000 +0100
+++ lib/Net/Cmd.pm	2008-01-07 10:09:34.000000000 +0000
-@@ -338,9 +338,11 @@
+@@ -353,6 +353,7 @@ sub response {
-      if ($cmd->debug);
+     ($code, $more) = $cmd->parse_response($str);
- 
+     unless (defined $code) {
-    ($code,$more) = $cmd->parse_response($str);
+       $cmd->ungetline($str);
-+
+      $@ = $str;	# $@ is used as a tunneling hack.
-    unless(defined $code)
+       last;
     {
      $cmd->ungetline($str);
 +     $@ = $str;		# $@ is used as a tunneling hack.
      last;
     }
-@@ -351,6 +353,7 @@
+@@ -363,6 +364,7 @@ sub response {
-    last unless($more);
+     last unless ($more);
-   } 
+   }
-+ return undef unless defined $code;
+  return undef unless defined $code;
-  substr($code,0,1);
+   substr($code, 0, 1);
 }
--- a/perl-makedepend.diff
+++ b/perl-makedepend.diff
@ -1,10 +0,0 @@
 --- makedepend.SH
 +++ makedepend.SH
@@ -167,6 +167,7 @@
             -e '/^#.*<builtin>/d' \
             -e '/^#.*<built-in>/d' \
             -e '/^#.*<command line>/d' \
 +            -e '/^#.*<command-line>/d' \
 	    -e '/^#.*"-"/d' \
 	    -e '/: file path prefix .* never used$/d' \
 	    -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
--- a/perl-regcomp-5.8.8.dif
+++ b/perl-regcomp-5.8.8.dif
@ -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?
--- 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
--- 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
+Version:        5.10.0
-Release:        82
+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. <llabash@siue.edu>
 %prep
-%setup -q -n perl-5.8.8
+%setup -q -n perl-5.10.0
 %patch
-%patch1 -p1
+%patch1
 %patch2
 %patch3
 %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/var/adm/SuSEconfig/bin
+#install -d $RPM_BUILD_ROOT/sbin/conf.d
-install -d $RPM_BUILD_ROOT/sbin/conf.d
+#install -d $RPM_BUILD_ROOT/var/adm/fillup-templates
-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/perllocal.SuSE $RPM_BUILD_ROOT/usr/lib/perl5
+#install -m 755 SuSE/SuSEconfig.perl $RPM_BUILD_ROOT/sbin/conf.d
-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 -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 $RPM_BUILD_ROOT/usr/share/man/man3/perllocal.3pm
-touch $cpa/perllocal.pod
+#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
-%post
+#%{fillup_only -an suseconfig}
 %{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