This commit is contained in:
parent
f076caa985
commit
2f52d3ecc9
548
perl-5.10.0.dif
Normal file
548
perl-5.10.0.dif
Normal file
@ -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 $_ }
|
3
perl-5.10.0.tar.bz2
Normal file
3
perl-5.10.0.tar.bz2
Normal file
@ -0,0 +1,3 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:8f736c2006c14404803302f32f583af0cec0dd9cd3b492318b890ae476141165
|
||||
size 12426003
|
958
perl-5.8.8.dif
958
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 $_ }
|
@ -1,3 +0,0 @@
|
||||
version https://git-lfs.github.com/spec/v1
|
||||
oid sha256:818a140d9c04ea8dab3a05104b34ced7f7d9d0a91bfed91baf89a84d0dfb1bc9
|
||||
size 10123359
|
@ -9,54 +9,46 @@ 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)
|
||||
{
|
||||
--- 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.
|
||||
+ $@ = $ftp->message || $@; # keep $@ if no message. Happens when response did not start with a code.
|
||||
undef $ftp;
|
||||
}
|
||||
|
||||
@@ -1107,7 +1107,7 @@
|
||||
sub response
|
||||
{
|
||||
@@ -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
|
||||
+ 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 !!!!
|
||||
+ # Expect to see undef here.
|
||||
return ()
|
||||
- unless ${*$ftp}{'net_cmd_code'} + 0;
|
||||
+ unless 0 + (${*$ftp}{'net_cmd_code'}||0);
|
||||
+ unless (${*$ftp}{'net_cmd_code'} || 0) + 0;
|
||||
|
||||
(${*$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);
|
||||
|
||||
--- 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)
|
||||
{
|
||||
unless (defined $code) {
|
||||
$cmd->ungetline($str);
|
||||
+ $@ = $str; # $@ is used as a tunneling hack.
|
||||
last;
|
||||
}
|
||||
|
||||
@@ -351,6 +353,7 @@
|
||||
@@ -363,6 +364,7 @@ sub response {
|
||||
last unless ($more);
|
||||
}
|
||||
|
||||
|
@ -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#" \
|
@ -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?
|
11
perl.changes
11
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
|
||||
|
||||
|
315
perl.spec
315
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. <llabash@siue.edu>
|
||||
|
||||
%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
|
||||
|
Loading…
Reference in New Issue
Block a user