This commit was manufactured by cvs2git to create branch 'rpm-4_4_9'.

Sprout from master 2004-05-05 17:13:54 UTC radek <radek@pld-linux.org> '- fixed bug, which could cause providing "perl()"'
Delete:
    perl-CGI-upload-tmpdir.patch
    perl-DESTDIR.patch
    perl-File-Spec-0.7.patch
    perl-LD_RUN_PATH.patch
    perl-Safe.patch
    perl-db3.patch
    perl-db4.patch
    perl-errno_h-parsing.patch
    perl-find-provides.patch
    perl-gcc3.patch
    perl-installman.patch
    perl-link.patch
    perl-nodb.patch
    perl-noroot_install.patch
    perl-prereq.patch
    perl-sitearch.patch
    perl-soname.patch
    perl-syslog.patch
    perl-test-noproc.patch
    perl-typemap-float.patch
    perl-use-LD_PRELOAD-for-libperl.so.patch
    perl.spec
    perl_580-INC.patch
    perl_580-MakeMaker.patch
    perl_580-Safe.patch
    perl_580-errno_h-parsing.patch
    perl_580-find_provides.patch
    perl_580-microperl_uconfig.patch
    perl_580-noroot_install.patch
    perl_580-perluniintro.patch
    perl_580-soname.patch
    perl_580-use-LD_PRELOAD-for-libperl.so.patch
    perl_581-INC.patch
    perl_581-noroot_install.patch
    perl_581-soname.patch
    perl_584-microperl_uconfig.patch

diff --git a/perl-CGI-upload-tmpdir.patch b/perl-CGI-upload-tmpdir.patch
deleted file mode 100644 (file)
index 70a0306..0000000
--- a/perl-CGI-upload-tmpdir.patch
+++ /dev/null
@@ -1,12 +0,0 @@
-diff -urN perl-5.6.1.orig/lib/CGI.pm perl-5.6.1/lib/CGI.pm
---- perl-5.6.1.orig/lib/CGI.pm Sat Mar  3 20:53:20 2001
-+++ perl-5.6.1/lib/CGI.pm      Thu Apr 12 20:54:36 2001
-@@ -23,7 +23,7 @@
- 
- # HARD-CODED LOCATION FOR FILE UPLOAD TEMPORARY FILES.
- # UNCOMMENT THIS ONLY IF YOU KNOW WHAT YOU'RE DOING.
--# $TempFile::TMPDIRECTORY = '/usr/tmp';
-+$TempFile::TMPDIRECTORY = '/tmp';
- use CGI::Util qw(rearrange make_attributes unescape escape expires);
- 
- use constant XHTML_DTD => ['-//W3C//DTD XHTML Basic 1.0//EN',

diff --git a/perl-DESTDIR.patch b/perl-DESTDIR.patch
deleted file mode 100644 (file)
index dacd703..0000000
--- a/perl-DESTDIR.patch
+++ /dev/null
@@ -1,51 +0,0 @@
---- perl-5.6.0/lib/ExtUtils/MM_Unix.pm.pius    Thu Mar  2 18:52:52 2000
-+++ perl-5.6.0/lib/ExtUtils/MM_Unix.pm Sun Jul  2 11:13:32 2000
-@@ -552,8 +552,7 @@
-             AR_STATIC_ARGS NAME DISTNAME NAME_SYM VERSION
-             VERSION_SYM XS_VERSION INST_BIN INST_EXE INST_LIB
-             INST_ARCHLIB INST_SCRIPT PREFIX  INSTALLDIRS
--            INSTALLPRIVLIB INSTALLARCHLIB INSTALLSITELIB
--            INSTALLSITEARCH INSTALLBIN INSTALLSCRIPT PERL_LIB
-+            PERL_LIB
-             PERL_ARCHLIB SITELIBEXP SITEARCHEXP LIBPERL_A MYEXTLIB
-             FIRST_MAKEFILE MAKE_APERL_FILE PERLMAINCC PERL_SRC
-             PERL_INC PERL FULLPERL FULL_AR
-@@ -563,6 +562,16 @@
-       push @m, "$tmp = $self->{$tmp}\n";
-     }
- 
-+    for $tmp (qw/
-+
-+             INSTALLPRIVLIB INSTALLARCHLIB INSTALLSITELIB
-+             INSTALLSITEARCH INSTALLBIN INSTALLSCRIPT
-+
-+             / ) {
-+       next unless defined $self->{$tmp};
-+       push @m, "$tmp = \$\(DESTDIR\)$self->{$tmp}\n";
-+    }
-+
-     push @m, qq{
- VERSION_MACRO = VERSION
- DEFINE_VERSION = -D\$(VERSION_MACRO)=\\\"\$(VERSION)\\\"
-@@ -609,12 +618,19 @@
-             INST_HTMLSITELIBDIR INSTALLHTMLSITELIBDIR
-             INST_HTMLSCRIPTDIR  INSTALLHTMLSCRIPTDIR
-             INST_HTMLLIBDIR                    HTMLEXT
--            INST_MAN1DIR        INSTALLMAN1DIR MAN1EXT
--            INST_MAN3DIR        INSTALLMAN3DIR MAN3EXT
-+            INST_MAN1DIR        MAN1EXT
-+            INST_MAN3DIR        MAN3EXT
-             /) {
-       next unless defined $self->{$tmp};
-       push @m, "$tmp = $self->{$tmp}\n";
-     }
-+
-+    for $tmp (qw/
-+             INSTALLMAN1DIR INSTALLMAN3DIR
-+             /) {
-+       next unless defined $self->{$tmp};
-+       push @m, "$tmp = \$\(DESTDIR\)$self->{$tmp}\n";
-+     }
- 
-     for $tmp (qw(
-               PERM_RW PERM_RWX

diff --git a/perl-File-Spec-0.7.patch b/perl-File-Spec-0.7.patch
deleted file mode 100644 (file)
index 596f830..0000000
--- a/perl-File-Spec-0.7.patch
+++ /dev/null
@@ -1,125 +0,0 @@
-diff -urN perl5.005_03.old/lib/File/Spec/Functions.pm perl5.005_03/lib/File/Spec/Functions.pm
---- perl5.005_03.old/lib/File/Spec/Functions.pm        Thu Jan  1 01:00:00 1970
-+++ perl5.005_03/lib/File/Spec/Functions.pm    Sun Dec  6 05:22:30 1998
-@@ -0,0 +1,37 @@
-+package File::Spec::Functions;
-+
-+use File::Spec;
-+use strict;
-+
-+use vars qw(@ISA @EXPORT);
-+
-+require Exporter;
-+
-+@ISA = qw(Exporter);
-+
-+@EXPORT = qw(
-+      canonpath
-+      catdir
-+      catfile
-+      curdir
-+      rootdir
-+      updir
-+      no_upwards
-+      file_name_is_absolute
-+      path
-+      nativename
-+);
-+
-+sub canonpath { File::Spec->canonpath(@_); }
-+sub catdir { File::Spec->catdir(@_); }
-+sub catfile { File::Spec->catfile(@_); }
-+sub curdir { File::Spec->curdir(@_); }
-+sub rootdir { File::Spec->rootdir(@_); }
-+sub updir { File::Spec->updir(@_); }
-+sub no_upwards { File::Spec->no_upwards(@_); }
-+sub file_name_is_absolute { File::Spec->file_name_is_absolute(@_); }
-+sub path { File::Spec->path(@_); }
-+sub nativename { File::Spec->nativename(@_); }
-+
-+1;
-+
-diff -urN perl5.005_03.old/lib/File/Spec/Mac.pm perl5.005_03/lib/File/Spec/Mac.pm
---- perl5.005_03.old/lib/File/Spec/Mac.pm      Thu Jan  7 05:41:53 1999
-+++ perl5.005_03/lib/File/Spec/Mac.pm  Sun Feb 22 16:31:58 1998
-@@ -52,7 +52,7 @@
-         File::Spec->catdir(split(":",$path)) eq $path
- 
- But because of the nature of Macintosh paths, some additional 
--possibilities are allowed to make using this routine give reasonable results 
-+possibilities are allowed to make using this routine give resonable results 
- for some common situations.  Here are the rules that are used.  Each 
- argument has its trailing ":" removed.  Each argument, except the first,
- has its leading ":" removed.  They are then joined together by a ":".
-@@ -78,7 +78,7 @@
-         File::Spec->catfile("LWP","Protocol","http.pm")
- 
- be relative or absolute?  There's no way of telling except by checking for the
--existence of LWP: or :LWP, and even there he may mean a dismounted volume or
-+existance of LWP: or :LWP, and even there he may mean a dismounted volume or
- a relative path in a different directory (like in @INC).   So those checks
- aren't done here. This routine will treat this as absolute.
- 
-diff -urN perl5.005_03.old/lib/File/Spec.pm perl5.005_03/lib/File/Spec.pm
---- perl5.005_03.old/lib/File/Spec.pm  Thu Jan  7 05:41:53 1999
-+++ perl5.005_03/lib/File/Spec.pm      Sun Dec  6 05:48:23 1998
-@@ -14,7 +14,7 @@
- use strict;
- use vars qw(@ISA $VERSION $Verbose);
- 
--$VERSION = '0.6';
-+$VERSION = '0.7';
- 
- $Verbose = 0;
- 
-@@ -52,11 +52,15 @@
- 
- =head1 SYNOPSIS
- 
--C<use File::Spec;>
-+      use File::Spec;
- 
--C<$x=File::Spec-E<gt>catfile('a','b','c');>
-+      $x=File::Spec->catfile('a', 'b', 'c');
- 
--which returns 'a/b/c' under Unix.
-+which returns 'a/b/c' under Unix. Or:
-+
-+      use File::Spec::Functions;
-+      
-+      $x = catfile('a', 'b', 'c');
- 
- =head1 DESCRIPTION
- 
-@@ -78,8 +82,8 @@
-       File::Spec::VMS
- 
- The module appropriate for the current OS is automatically loaded by
--File::Spec. Since some modules (like VMS) make use of OS specific
--facilities, it may not be possible to load all modules under all operating
-+File::Spec. Since some modules (like VMS) make use of facilities only under
-+that OS, it may not be possible to load all modules under all operating
- systems.
- 
- Since File::Spec is object oriented, subroutines should not called directly,
-@@ -91,9 +95,17 @@
- 
-       File::Spec->catfile('a','b');
- 
--For a reference of available functions, please consult L<File::Spec::Unix>,
--which contains the entire set, and inherited by the modules for other
--platforms. For further information, please see L<File::Spec::Mac>,
-+Alternatively, File::Spec::Functions can be used instead, which exports
-+functions for all of the class methods provided by File::Spec, including
-+catfile, so you may say:
-+
-+      use File::Spec::Functions;
-+      
-+      catfile('a','b');
-+
-+For a reference of available functions, pleaes consult L<File::Spec::Unix>,
-+which contains the entire set, and which is inherited by the modules for
-+other platforms. For further information, please see L<File::Spec::Mac>,
- L<File::Spec::OS2>, L<File::Spec::Win32>, or L<File::Spec::VMS>.
- 
- =head1 SEE ALSO

diff --git a/perl-LD_RUN_PATH.patch b/perl-LD_RUN_PATH.patch
deleted file mode 100644 (file)
index 1fdc81b..0000000
--- a/perl-LD_RUN_PATH.patch
+++ /dev/null
@@ -1,32 +0,0 @@
-diff -urN perl-5.6.1.orig/lib/ExtUtils/Liblist.pm perl-5.6.1/lib/ExtUtils/Liblist.pm
---- perl-5.6.1.orig/lib/ExtUtils/Liblist.pm    Fri Feb 23 03:57:55 2001
-+++ perl-5.6.1/lib/ExtUtils/Liblist.pm Thu Apr 12 20:57:10 2001
-@@ -60,6 +60,7 @@
-     my(@searchpath); # from "-L/path" entries in $potential_libs
-     my(@libpath) = split " ", $Config{'libpth'};
-     my(@ldloadlibs, @bsloadlibs, @extralibs, @ld_run_path, %ld_run_path_seen);
-+    $ld_run_path_seen{$_} = 1 foreach qw(/usr/X11R6/lib /usr/lib /lib);
-     my(@libs, %libs_seen);
-     my($fullname, $thislib, $thispth, @fullname);
-     my($pwd) = cwd(); # from Cwd.pm
-diff -urN perl-5.6.1.orig/lib/ExtUtils/MM_Unix.pm perl-5.6.1/lib/ExtUtils/MM_Unix.pm
---- perl-5.6.1.orig/lib/ExtUtils/MM_Unix.pm    Thu Apr 12 20:29:35 2001
-+++ perl-5.6.1/lib/ExtUtils/MM_Unix.pm Thu Apr 12 20:56:30 2001
-@@ -524,9 +524,16 @@
- };
-     my($tmp);
-     for $tmp (qw/
--       EXTRALIBS LDLOADLIBS BSLOADLIBS LD_RUN_PATH
-+       EXTRALIBS LDLOADLIBS BSLOADLIBS
-        /) {
-       next unless defined $self->{$tmp};
-+      push @m, "$tmp = $self->{$tmp}\n";
-+    }
-+    # don't set LD_RUN_PATH if empty
-+    for $tmp (qw/
-+       LD_RUN_PATH
-+       /) {
-+      next unless $self->{$tmp};
-       push @m, "$tmp = $self->{$tmp}\n";
-     }
-     return join "", @m;

diff --git a/perl-Safe.patch b/perl-Safe.patch
deleted file mode 100644 (file)
index 8e2395a..0000000
--- a/perl-Safe.patch
+++ /dev/null
@@ -1,86 +0,0 @@
---- perl-5.6.1.orig/ext/Opcode/Safe.pm
-+++ perl-5.6.1/ext/Opcode/Safe.pm
-@@ -3,7 +3,7 @@
- use 5.003_11;
- use strict;
- 
--our $VERSION = "2.06";
-+$Safe::VERSION = "2.09";
- 
- use Carp;
- 
-@@ -47,6 +47,7 @@
-     # the whole glob *_ rather than $_ and @_ separately, otherwise
-     # @_ in non default packages within the compartment don't work.
-     $obj->share_from('main', $default_share);
-+    Opcode::_safe_pkg_prep($obj->{Root}) if($Opcode::VERSION > 1.04);
-     return $obj;
- }
- 
-@@ -154,7 +155,7 @@
-     my $no_record = shift || 0;
-     my $root = $obj->root();
-     croak("vars not an array ref") unless ref $vars eq 'ARRAY';
--      no strict 'refs';
-+    no strict 'refs';
-     # Check that 'from' package actually exists
-     croak("Package \"$pkg\" does not exist")
-       unless keys %{"$pkg\::"};
-@@ -189,7 +190,7 @@
- sub share_redo {
-     my $obj = shift;
-     my $shares = \%{$obj->{Shares} ||= {}};
--      my($var, $pkg);
-+    my($var, $pkg);
-     while(($var, $pkg) = each %$shares) {
-       # warn "share_redo $pkg\:: $var";
-       $obj->share_from($pkg,  [ $var ], 1);
-@@ -213,11 +214,11 @@
-     # Create anon sub ref in root of compartment.
-     # Uses a closure (on $expr) to pass in the code to be executed.
-     # (eval on one line to keep line numbers as expected by caller)
--      my $evalcode = sprintf('package %s; sub { eval $expr; }', $root);
-+    my $evalcode = sprintf('package %s; sub { @_ = (); eval $expr; }', $root);
-     my $evalsub;
- 
--      if ($strict) { use strict; $evalsub = eval $evalcode; }
--      else         {  no strict; $evalsub = eval $evalcode; }
-+    if ($strict) { use strict; $evalsub = eval $evalcode; }
-+    else         {  no strict; $evalsub = eval $evalcode; }
- 
-     return Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
- }
-@@ -227,7 +228,7 @@
-     my $root = $obj->{Root};
- 
-     my $evalsub = eval
--          sprintf('package %s; sub { do $file }', $root);
-+          sprintf('package %s; sub { @_ = (); do $file }', $root);
-     return Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
- }
- 
-@@ -379,11 +380,12 @@
- =item share (NAME, ...)
- 
- This shares the variable(s) in the argument list with the compartment.
--This is almost identical to exporting variables using the L<Exporter(3)>
-+This is almost identical to exporting variables using the L<Exporter>
- module.
- 
--Each NAME must be the B<name> of a variable, typically with the leading
--type identifier included. A bareword is treated as a function name.
-+Each NAME must be the B<name> of a non-lexical variable, typically
-+with the leading type identifier included. A bareword is treated as a
-+function name.
- 
- Examples of legal names are '$foo' for a scalar, '@foo' for an
- array, '%foo' for a hash, '&foo' or 'foo' for a subroutine and '*foo'
-@@ -425,7 +427,7 @@
- Any attempt by the code in STRING to use an operator which is not permitted
- by the compartment will cause an error (at run-time of the main program
- but at compile-time for the code in STRING).  The error is of the form
--"%s trapped by operation mask operation...".
-+"'%s' trapped by operation mask...".
- 
- If an operation is trapped in this way, then the code in STRING will
- not be executed. If such a trapped operation occurs or any other

diff --git a/perl-db3.patch b/perl-db3.patch
deleted file mode 100644 (file)
index 639559e..0000000
--- a/perl-db3.patch
+++ /dev/null
@@ -1,25 +0,0 @@
---- perl-5.6.1/ext/NDBM_File/NDBM_File.xs~     Sat Mar  3 20:53:20 2001
-+++ perl-5.6.1/ext/NDBM_File/NDBM_File.xs      Fri Apr 20 18:23:37 2001
-@@ -6,7 +6,8 @@
-  * See also INSTALL section on DB3.
-  * -- Stanislav Brabec <utx@penguin.cz> */
- #undef ENTER
--#include <ndbm.h>
-+#define DB_DBM_HSEARCH 1
-+#include <db.h>
- 
- typedef struct {
-       DBM *   dbp ;
---- perl-5.6.1/ext/NDBM_File/Makefile.PL~      Fri Apr 20 18:16:55 2001
-+++ perl-5.6.1/ext/NDBM_File/Makefile.PL       Fri Apr 20 18:33:48 2001
-@@ -1,8 +1,8 @@
- use ExtUtils::MakeMaker;
- WriteMakefile(
-     NAME      => 'NDBM_File',
--    LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"],
--    CCFLAGS => '-I/usr/include/db1 -Dbool=char -DHAS_BOOL',
-+    LIBS => ["-L/usr/local/lib -ldb"],
-+    CCFLAGS => '-Dbool=char -DHAS_BOOL',
-     MAN3PODS  => {},  # Pods will be built by installman.
-     XSPROTOARG => '-noprototypes',            # XXX remove later?
-     VERSION_FROM => 'NDBM_File.pm',

diff --git a/perl-db4.patch b/perl-db4.patch
deleted file mode 100644 (file)
index 8b3de13..0000000
--- a/perl-db4.patch
+++ /dev/null
@@ -1,44 +0,0 @@
---- perl-5.6.1/ext/NDBM_File/NDBM_File.xs~     Sat Mar  3 20:53:20 2001
-+++ perl-5.6.1/ext/NDBM_File/NDBM_File.xs      Fri Apr 20 18:23:37 2001
-@@ -6,7 +6,8 @@
-  * See also INSTALL section on DB3.
-  * -- Stanislav Brabec <utx@penguin.cz> */
- #undef ENTER
--#include <ndbm.h>
-+#define DB_DBM_HSEARCH 1
-+#include <db.h>
- 
- typedef struct {
-       DBM *   dbp ;
---- perl-5.6.1/ext/NDBM_File/Makefile.PL~      Fri Apr 20 18:16:55 2001
-+++ perl-5.6.1/ext/NDBM_File/Makefile.PL       Fri Apr 20 18:33:48 2001
-@@ -1,8 +1,8 @@
- use ExtUtils::MakeMaker;
- WriteMakefile(
-     NAME      => 'NDBM_File',
--    LIBS => ["-L/usr/local/lib -lndbm", "-ldbm -lucb"],
--    CCFLAGS => '-I/usr/include/db1 -Dbool=char -DHAS_BOOL',
-+    LIBS => ["-L/usr/local/lib -ldb-4.1"],
-+    CCFLAGS => '-Dbool=char -DHAS_BOOL',
-     MAN3PODS  => {},  # Pods will be built by installman.
-     XSPROTOARG => '-noprototypes',            # XXX remove later?
-     VERSION_FROM => 'NDBM_File.pm',
---- perl-5.6.1/ext/DB_File/DB_File.xs~ Fri Feb 23 02:57:54 2001
-+++ perl-5.6.1/ext/DB_File/DB_File.xs  Thu Oct 17 18:55:01 2002
-@@ -1318,6 +1318,7 @@
-     {
-         int           Flags = 0 ;
-         int           status ;
-+              DB_TXN * txnid = NULL;
- 
-         /* Map 1.x flags to 3.x flags */
-         if ((flags & O_CREAT) == O_CREAT)
-@@ -1335,7 +1336,7 @@
-             Flags |= DB_TRUNCATE ;
- #endif
- 
--        status = (RETVAL->dbp->open)(RETVAL->dbp, name, NULL, RETVAL->type, 
-+        status = (RETVAL->dbp->open)(RETVAL->dbp, txnid, name, NULL, RETVAL->type, 
-                               Flags, mode) ; 
-       /* printf("open returned %d %s\n", status, db_strerror(status)) ; */
- 

diff --git a/perl-errno_h-parsing.patch b/perl-errno_h-parsing.patch
deleted file mode 100644 (file)
index 7b490ba..0000000
--- a/perl-errno_h-parsing.patch
+++ /dev/null
@@ -1,17 +0,0 @@
-diff -urN perl-5.6.1.orig/ext/Errno/Errno_pm.PL perl-5.6.1/ext/Errno/Errno_pm.PL
---- perl-5.6.1.orig/ext/Errno/Errno_pm.PL      Sun Apr  8 08:09:16 2001
-+++ perl-5.6.1/ext/Errno/Errno_pm.PL   Thu Apr 12 20:58:53 2001
-@@ -37,6 +37,13 @@
-             warn "Cannot open '$file'";
-             return;
-       }     
-+    } elsif ($^O eq 'linux') {
-+      # With the -dM option option, gcc outputs every #define's it finds
-+      my $cpp = default_cpp();
-+      unless(open(FH, "$cpp -dM < $file |")) {
-+            warn "Cannot open '$file'";
-+            return;
-+      }
-     } else {
-       unless(open(FH,"< $file")) {
-           # This file could be a temporary file created by cppstdin

diff --git a/perl-find-provides.patch b/perl-find-provides.patch
deleted file mode 100644 (file)
index 759b20e..0000000
--- a/perl-find-provides.patch
+++ /dev/null
@@ -1,208 +0,0 @@
-diff -urN perl-5.6.1/find-perl-provides perl-5.6.1-grabba/find-perl-provides
---- perl-5.6.1/find-perl-provides      Thu Jan  1 00:00:00 1970
-+++ perl-5.6.1-grabba/find-perl-provides       Sun Mar  3 14:41:39 2002
-@@ -0,0 +1,23 @@
-+#!/bin/sh
-+ulimit -c 0
-+
-+export LD_LIBRARY_PATH="FPPATH"
-+
-+filelist=`sed "s/['\"]/\\\&/g"`
-+if [ -f __rpm_noautoprovfiles ] ; then
-+      for i in `cat __rpm_noautoprovfiles`; do
-+              filelist=`echo $filelist | sed "s![[:space:]]*$i[[:space:]]*!!g"`
-+      done
-+fi
-+
-+
-+echo $filelist|/usr/lib/rpm/find-provides
-+provides_perl=`FPPATH/find-perl.prov $filelist`
-+if [ -f __rpm_noautoprov ] ; then
-+      for i in `cat __rpm_noautoprov`; do
-+              provides_perl=`echo $provides_perl | sed "s!\<$i[[:space:]]*!!g"`
-+      done
-+fi
-+
-+echo "$provides_perl" | grep -v '^perl(DynaLoader)$'
-+
-diff -urN perl-5.6.1/find-perl.prov perl-5.6.1-grabba/find-perl.prov
---- perl-5.6.1/find-perl.prov  Thu Jan  1 00:00:00 1970
-+++ perl-5.6.1-grabba/find-perl.prov   Sun Mar  3 14:37:16 2002
-@@ -0,0 +1,177 @@
-+#!FPPATH/perl
-+
-+# RPM (and it's source code) is covered under two separate licenses.
-+
-+# The entire code base may be distributed under the terms of the GNU
-+# General Public License (GPL), which appears immediately below.
-+# Alternatively, all of the source code in the lib subdirectory of the
-+# RPM source code distribution as well as any code derived from that
-+# code may instead be distributed under the GNU Library General Public
-+# License (LGPL), at the choice of the distributor. The complete text
-+# of the LGPL appears at the bottom of this file.
-+
-+# This alternative is allowed to enable applications to be linked
-+# against the RPM library (commonly called librpm) without forcing
-+# such applications to be distributed under the GPL.
-+
-+# Any questions regarding the licensing of RPM should be addressed to
-+# Erik Troan <ewt@redhat.com>.
-+
-+# a simple script to print the proper name for perl libraries.
-+
-+# To save development time I do not parse the perl grammmar but
-+# instead just lex it looking for what I want.  I take special care to
-+# ignore comments and pod's.
-+
-+# it would be much better if perl could tell us the proper name of a
-+# given script.
-+
-+# The filenames to scan are either passed on the command line or if
-+# that is empty they are passed via stdin.
-+
-+# If there are lines in the file which match the pattern
-+#      (m/^\s*\$VERSION\s*=\s+/)
-+# then these are taken to be the version numbers of the modules.
-+# Special care is taken with a few known idioms for specifying version
-+# numbers of files under rcs/cvs control.
-+
-+# If there are strings in the file which match the pattern
-+#     m/^\s*\$RPM_Provides\s*=\s*["'](.*)['"]/i
-+# then these are treated as additional names which are provided by the
-+# file and are printed as well.
-+
-+# I plan to rewrite this in C so that perl is not required by RPM at
-+# build time.
-+
-+# by Ken Estes Mail.com kestes@staff.mail.com
-+
-+if ("@ARGV") {
-+  foreach (@ARGV) {
-+     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html|al|ix)$)=) {
-+      process_file($_) if -f "$_";
-+    }
-+  }
-+} else {
-+
-+  # notice we are passed a list of filenames NOT as common in unix the
-+  # contents of the file.
-+
-+  foreach (<>) {
-+     if (! m=(/(doc|usr/src)/|\.(so|gz|ph|pod|h|html|al|ix)$)=) {
-+      process_file($_) if -f "$_";
-+    }
-+  }
-+}
-+
-+
-+foreach $module (sort keys %require) {
-+  if (length($require{$module}) == 0) {
-+    print "perl($module)\n";
-+  } else {
-+
-+    # I am not using rpm3.0 so I do not want spaces arround my
-+    # operators. Also I will need to change the processing of the
-+    # $RPM_* vairable when I upgrade.
-+
-+    print "perl($module) = $require{$module}\n";
-+  }
-+}
-+
-+exit 0;
-+
-+
-+
-+sub process_file {
-+
-+  my ($file) = @_;
-+  chomp $file;
-+  
-+  open(FILE, "<$file")||
-+    die("$0: Could not open file: '$file' : $!\n");
-+
-+  my ($package, $version) = ();
-+
-+  while (<FILE>) {
-+    
-+    # skip the documentation
-+
-+    # we should not need to have item in this if statement (it
-+    # properly belongs in the over/back section) but people do not
-+    # read the perldoc.
-+
-+    if ( (m/^=(head1|head2|pod|item)/) .. (m/^=(cut)/ || eof) ) {
-+      next;
-+    }
-+    
-+    if ( (m/^=(over)/) .. (m/^=(back)/ || eof) ) {
-+      next;
-+    }
-+    
-+    # skip the data section
-+    if (m/^__(DATA|END)__$/) {
-+      last;
-+    }
-+
-+    # not everyone puts the package name of the file as the first
-+    # package name so we report all namespaces as if they were
-+    # provided packages (really ugly).
-+
-+    if (m/^\s*package\s+([_:a-zA-Z0-9]+)\s*;/ && !$require{$1}) {
-+      $package=$1;
-+      undef $version;
-+      $require{$package}=undef;
-+    }
-+
-+    # after we found the package name take the first assignment to
-+    # $VERSION as the version number. Exporter requires that the
-+    # variable be called VERSION so we are safe.
-+
-+    # here are examples of VERSION lines from the perl distribution
-+
-+    #FindBin.pm:$VERSION = $VERSION = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/);
-+    #ExtUtils/Install.pm:$VERSION = substr q$Revision$, 10;
-+    #CGI/Apache.pm:$VERSION = (qw$Revision$)[1];
-+    #DynaLoader.pm:$VERSION = $VERSION = "1.03";     # avoid typo warning
-+    #Cwd.pm:our $VERSION = '2.04';
-+
-+    # here is example of VERSION line from RPC::PlClient module
-+
-+    # RPC/PlClient.pm:$RPC::PlClient::VERSION = '0.2016';
-+
-+    if ( 
-+      ($package) && 
-+      (m/^\s*(our)?\s*\$(${package}::)?VERSION\s*=/)
-+       ) {
-+
-+      # first see if the version string contains the string
-+      # '$Revision' this often causes bizzare strings and is the most
-+      # common method of non static numbering.
-+
-+      if (m/(\$Revision: (\d+[.0-9]+))/) {
-+      $version= $2; 
-+      } elsif (m/[\'\"]?(\d+[.0-9]+)[\'\"]?/) {
-+      
-+      # look for a static number hard coded in the script
-+      
-+      $version= $1; 
-+      }
-+      $require{$package}=$version;
-+    }
-+    
-+    # Each keyword can appear multiple times.  Don't
-+    #  bother with datastructures to store these strings,
-+    #  if we need to print it print it now.
-+      
-+    if ( m/^\s*\$RPM_Provides\s*=\s*["'](.*)['"]/i) {
-+      foreach $_ (spit(/\s+/, $1)) {
-+      print "$_\n";
-+      }
-+    }
-+
-+  }
-+
-+  close(FILE)||
-+    die("$0: Could not close file: '$file' : $!\n");
-+
-+  return ;
-+}

diff --git a/perl-gcc3.patch b/perl-gcc3.patch
deleted file mode 100644 (file)
index ec0da74..0000000
--- a/perl-gcc3.patch
+++ /dev/null
@@ -1,22 +0,0 @@
---- perl-5.6.1/makedepend.SH.orig      Mon Mar 19 08:33:17 2001
-+++ perl-5.6.1/makedepend.SH   Tue Sep 10 20:35:55 2002
-@@ -155,6 +155,8 @@
-         $sed \
-           -e '1d' \
-           -e '/^#.*<stdin>/d' \
-+          -e '/^#.*<built-in>/d' \
-+          -e '/^#.*<command line>/d' \
-           -e '/^#.*"-"/d' \
-           -e 's#\.[0-9][0-9]*\.c#'"$file.c#" \
-           -e 's/^[     ]*#[    ]*line/#/' \
---- perl-5.6.1/Configure.orig  Tue Sep 10 20:37:00 2002
-+++ perl-5.6.1/Configure       Tue Sep 10 21:14:10 2002
-@@ -990,7 +990,7 @@
- archname=''
- : Possible local include directories to search.
- : Set locincpth to "" in a hint file to defeat local include searches.
--locincpth="/usr/local/include /opt/local/include /usr/gnu/include"
-+locincpth="/opt/local/include /usr/gnu/include"
- locincpth="$locincpth /opt/gnu/include /usr/GNU/include /opt/GNU/include"
- :
- : no include file wanted by default

diff --git a/perl-installman.patch b/perl-installman.patch
deleted file mode 100644 (file)
index 1114e12..0000000
--- a/perl-installman.patch
+++ /dev/null
@@ -1,15 +0,0 @@
---- perl-5.6.0/lib/ExtUtils/MM_Unix.pm.instman Thu Mar  2 18:52:52 2000
-+++ perl-5.6.0/lib/ExtUtils/MM_Unix.pm Thu Mar 23 17:32:54 2000
-@@ -1757,6 +1757,12 @@
-     # you to build directly into, say $Config::Config{privlibexp}.
-     unless ($self->{INST_LIB}){
- 
-+    for $install_variable (qw/
-+                         INSTALLMAN1DIR
-+                         INSTALLMAN3DIR
-+                         /) {
-+      $self->prefixify($install_variable,$configure_prefix,qq[\$\(PREFIX\)]);
-+    }
- 
-       ##### XXXXX We have to change this nonsense
- 

diff --git a/perl-link.patch b/perl-link.patch
deleted file mode 100644 (file)
index 202fc07..0000000
--- a/perl-link.patch
+++ /dev/null
@@ -1,16 +0,0 @@
---- perl-5.6.1/Configure.orig  Mon Mar 19 04:03:33 2001
-+++ perl-5.6.1/Configure       Tue Dec 24 20:12:56 2002
-@@ -1030,10 +1030,9 @@
- 
- : List of libraries we want.
- : If anyone needs -lnet, put it in a hint file.
--libswanted='sfio socket bind inet nsl nm ndbm gdbm dbm db malloc dl'
--libswanted="$libswanted dld ld sun m c cposix posix"
--libswanted="$libswanted ndir dir crypt sec"
--libswanted="$libswanted ucb bsd BSD PW x iconv util"
-+libswanted='ndbm gdbm db dl'
-+libswanted="$libswanted m c"
-+libswanted="$libswanted crypt"
- : We probably want to search /usr/shlib before most other libraries.
- : This is only used by the lib/ExtUtils/MakeMaker.pm routine extliblist.
- glibpth=`echo " $glibpth " | sed -e 's! /usr/shlib ! !'`

diff --git a/perl-nodb.patch b/perl-nodb.patch
deleted file mode 100644 (file)
index 08c0bba..0000000
--- a/perl-nodb.patch
+++ /dev/null
@@ -1,110 +0,0 @@
---- perl-5.6.0/ext/NDBM_File/Makefile.PL.nodb  Tue Jul 20 19:17:56 1999
-+++ perl-5.6.0/ext/NDBM_File/Makefile.PL       Thu Mar 23 17:54:21 2000
-@@ -2,6 +2,7 @@
- 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',
---- perl-5.6.0/hints/linux.sh.nodb     Sun Mar 19 08:37:24 2000
-+++ perl-5.6.0/hints/linux.sh  Thu Mar 23 17:54:21 2000
-@@ -70,7 +70,12 @@
- 
- # BSD compatability library no longer needed
- # 'kaffe' has a /usr/lib/libnet.so which is not at all relevent for perl.
--set `echo X "$libswanted "| sed -e 's/ bsd / /' -e 's/ net / /'`
-+set `echo X "$libswanted "| \
-+    sed -e 's/ bsd / /' \
-+      -e 's/ net / /' \
-+      -e 's/ db / /' \
-+      -e 's/ gdbm / /' \
-+      -e 's/ ndbm / /'`
- shift
- libswanted="$*"
- 
---- perl-5.6.0/t/lib/ndbm.t.nodb       Tue Jul 20 19:18:13 1999
-+++ perl-5.6.0/t/lib/ndbm.t    Thu Mar 23 17:54:21 2000
-@@ -103,7 +103,9 @@
- if ($#keys == 31) {print "ok 7\n";} else {print "not ok 7\n";}
- 
- $h{'foo'} = '';
--$h{''} = 'bar';
-+# stupid DB library does not support empty string as keys, so there
-+# is nothing for perl to test here...
-+$h{' '} = 'bar';
- 
- # check cache overflow and numeric keys and contents
- $ok = 1;
-@@ -120,7 +122,8 @@
- print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
- 
- print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
--print ($h{''} eq 'bar' ? "ok 12\n" : "not ok 12\n");
-+# same thing ... we used to test for $h{''}, but DB does not allow it
-+print ($h{' '} eq 'bar' ? "ok 12\n" : "not ok 12\n");
- 
- untie %h;
- unlink 'Op.dbmx.dir', $Dfile;
---- perl-5.6.0/t/lib/anydbm.t.nodb     Fri Mar  3 03:34:21 2000
-+++ perl-5.6.0/t/lib/anydbm.t  Thu Mar 23 17:58:01 2000
-@@ -101,7 +101,9 @@
- if ($#keys == 31) {print "ok 7\n";} else {print "not ok 7\n";}
- 
- $h{'foo'} = '';
--$h{''} = 'bar';
-+# stupid DB does not allow zero-length keys. Not perl's fault, really
-+# so we test for $h{' '} instead of $h{''}
-+$h{' '} = 'bar';
- 
- # check cache overflow and numeric keys and contents
- $ok = 1;
-@@ -118,7 +120,9 @@
- print join(':',200..400) eq join(':',@foo) ? "ok 10\n" : "not ok 10\n";
- 
- print ($h{'foo'} eq '' ? "ok 11\n" : "not ok 11\n");
--if ($h{''} eq 'bar') {
-+# stupid DB does not allow zero-length keys. Not perl's fault, really
-+# so we test for $h{' '} instead of $h{''}
-+if ($h{' '} eq 'bar') {
-    print "ok 12\n" ;
- }
- else {
---- perl-5.6.0/Configure.nodb  Thu Mar 23 17:54:21 2000
-+++ perl-5.6.0/Configure       Thu Mar 23 17:56:07 2000
-@@ -12053,10 +12053,16 @@
- }
- 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 && ./try; then
-               echo 'Looks OK.' >&4
-+              libs=$_old_libs
-       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 "*)
-@@ -12099,7 +12105,7 @@
- }
- #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
-@@ -12144,7 +12150,7 @@
- }
- #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

diff --git a/perl-noroot_install.patch b/perl-noroot_install.patch
deleted file mode 100644 (file)
index 231da6a..0000000
--- a/perl-noroot_install.patch
+++ /dev/null
@@ -1,20 +0,0 @@
---- perl-5.6.0/installperl.pius        Wed Mar  8 13:22:41 2000
-+++ perl-5.6.0/installperl     Sun Jul  2 13:36:20 2000
-@@ -143,8 +143,6 @@
- 
- # Do some quick sanity checks.
- 
--if ($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, 1, 0777);
- -d $installbin                || $nonono || die "$installbin is not a directory\n";
-@@ -224,7 +222,7 @@
- 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");
-+    chmod(0755, "$installbin/s$perl_verbase$ver$exe_ext");
- }
- 
- # Install library files.

diff --git a/perl-prereq.patch b/perl-prereq.patch
deleted file mode 100644 (file)
index a302e8d..0000000
--- a/perl-prereq.patch
+++ /dev/null
@@ -1,26 +0,0 @@
-diff -urN perl-5.6.1.orig/lib/ExtUtils/MakeMaker.pm perl-5.6.1/lib/ExtUtils/MakeMaker.pm
---- perl-5.6.1.orig/lib/ExtUtils/MakeMaker.pm  Fri Feb 23 03:57:55 2001
-+++ perl-5.6.1/lib/ExtUtils/MakeMaker.pm       Thu Apr 12 20:43:14 2001
-@@ -202,6 +202,7 @@
-     PERL_ARCHLIB PERL_LIB PERL_SRC PERM_RW PERM_RWX
-     PL_FILES PM PM_FILTER PMLIBDIRS POLLUTE PPM_INSTALL_EXEC
-       PPM_INSTALL_SCRIPT PREFIX
-+    PRINT_PREREQ
-     PREREQ_PM SKIP TYPEMAPS VERSION VERSION_FROM XS XSOPT XSPROTOARG
-     XS_VERSION clean depend dist dynamic_lib linkext macro realclean
-     tool_autosplit
-@@ -319,6 +320,14 @@
- sub ExtUtils::MakeMaker::new {
-     my($class,$self) = @_;
-     my($key);
-+
-+    if ("@ARGV" =~ "PRINT_PREREQ") { 
-+       foreach $prereq (sort keys %{$self->{PREREQ_PM}}) {
-+           print "perl($prereq)>=$self->{PREREQ_PM}->{$prereq} ";
-+       }
-+       print "\n";
-+       exit 0;
-+    }
- 
-     print STDOUT "MakeMaker (v$VERSION)\n" if $Verbose;
-     if (-f "MANIFEST" && ! -f "Makefile"){

diff --git a/perl-sitearch.patch b/perl-sitearch.patch
deleted file mode 100644 (file)
index 4a1b97a..0000000
--- a/perl-sitearch.patch
+++ /dev/null
@@ -1,11 +0,0 @@
---- perl-5.6.1/Configure~      Sat Apr 14 15:38:22 2001
-+++ perl-5.6.1/Configure       Sat Apr 14 15:52:43 2001
-@@ -6035,7 +6035,7 @@
- : sitelib may have an optional trailing /share.
- case "$sitearch" in
- '')   dflt=`echo $sitelib | $sed 's,/share$,,'`
--      dflt="$dflt/$archname"
-+      dflt="$dflt/$archname/$version"
-       ;;
- *)    dflt="$sitearch"
-       ;;

diff --git a/perl-soname.patch b/perl-soname.patch
deleted file mode 100644 (file)
index 6f9aee7..0000000
--- a/perl-soname.patch
+++ /dev/null
@@ -1,14 +0,0 @@
---- perl-5.6.1/Makefile.SH~    Sun Apr 15 18:20:15 2001
-+++ perl-5.6.1/Makefile.SH     Sun Apr 15 18:36:49 2001
-@@ -429,7 +429,8 @@
-       case "$useshrplib" in
-       true)
--              $spitshell >>Makefile <<'!NO!SUBS!'
--      $(LD) -o $@ $(SHRPLDFLAGS) perl$(OBJ_EXT) $(obj)
--!NO!SUBS!
-+              $spitshell >>Makefile <<!GROK!THIS!
-+      \$(LD) -o \$(LIBPERL).$version \$(SHRPLDFLAGS) -Wl,-soname,\$(LIBPERL).$version perl\$(OBJ_EXT) \$(obj)
-+      ln -sf \$(LIBPERL).$version \$@
-+!GROK!THIS!
-               case "$osname" in
-               aix)

diff --git a/perl-syslog.patch b/perl-syslog.patch
deleted file mode 100644 (file)
index 7378ac0..0000000
--- a/perl-syslog.patch
+++ /dev/null
@@ -1,30 +0,0 @@
-diff -urN perl-5.6.1.orig/perl.c perl-5.6.1/perl.c
---- perl-5.6.1.orig/perl.c     Thu Mar 22 06:05:02 2001
-+++ perl-5.6.1/perl.c  Thu Apr 12 20:52:12 2001
-@@ -21,6 +21,9 @@
- #include <unistd.h>
- #endif
- 
-+#include <syslog.h>
-+#define I_SYSLOG
-+
- #if !defined(STANDARD_C) && !defined(HAS_GETENV_PROTOTYPE)
- char *getenv (char *); /* Usually in <stdlib.h> */
- #endif
-@@ -2880,6 +2883,16 @@
-           if (tmpstatbuf.st_dev != PL_statbuf.st_dev ||
-               tmpstatbuf.st_ino != PL_statbuf.st_ino) {
-               (void)PerlIO_close(PL_rsfp);
-+#ifdef I_SYSLOG
-+              openlog("suidperl", LOG_CONS | LOG_PID | LOG_NDELAY, LOG_AUTHPRIV);
-+              syslog(LOG_ALERT, "User %ld tried to run dev %ld ino %ld in "
-+                     "place of dev %ld ino %ld!", PL_uid,
-+                     (long)tmpstatbuf.st_dev, (long)tmpstatbuf.st_ino,
-+                     (long)PL_statbuf.st_dev, (long)PL_statbuf.st_ino);
-+              syslog(LOG_ALERT, "Filename of setuid script was %s, uid %ld"
-+                     " gid %ld.", SvPVX(GvSV(CopFILEGV(PL_curcop))),
-+                     PL_statbuf.st_uid, PL_statbuf.st_gid);
-+#endif
-               Perl_croak(aTHX_ "Permission denied\n");
-           }
-           if (

diff --git a/perl-test-noproc.patch b/perl-test-noproc.patch
deleted file mode 100644 (file)
index 9f6337f..0000000
--- a/perl-test-noproc.patch
+++ /dev/null
@@ -1,21 +0,0 @@
---- perl-5.8.2/ext/threads/t/join.t.orig       Tue Sep 30 19:10:32 2003
-+++ perl-5.8.2/ext/threads/t/join.t    Mon Dec  8 14:49:12 2003
-@@ -93,6 +93,10 @@
- 
- # We parse ps output so this is OS-dependent.
- if ($^O eq 'linux') {
-+  if (! -d "/proc/$$") {
-+    # proc not mounted? skip.
-+    skip("\$0 check: /proc not mounted?");
-+  } else {
-   # First modify $0 in a subthread.
-   print "# mainthread: \$0 = $0\n";
-   threads->new( sub {
-@@ -123,6 +127,7 @@
-   } else {
-     skip("\$0 check: opening 'ps -f |' failed: $!");
-   }
-+  }
- } else {
-   skip("\$0 check: only on Linux");
- }

diff --git a/perl-typemap-float.patch b/perl-typemap-float.patch
deleted file mode 100644 (file)
index 2990e14..0000000
--- a/perl-typemap-float.patch
+++ /dev/null
@@ -1,10 +0,0 @@
---- perl-5.6.1/lib/ExtUtils/typemap.orig       Fri Apr  6 06:38:46 2001
-+++ perl-5.6.1/lib/ExtUtils/typemap    Wed Dec 25 01:37:07 2002
-@@ -38,6 +38,7 @@
- U8                    T_UV
- Result                        T_U_CHAR
- Boolean                       T_IV
-+float                 T_FLOAT
- double                        T_DOUBLE
- SysRet                        T_SYSRET
- SysRetLong            T_SYSRET

diff --git a/perl-use-LD_PRELOAD-for-libperl.so.patch b/perl-use-LD_PRELOAD-for-libperl.so.patch
deleted file mode 100644 (file)
index 105f911..0000000
--- a/perl-use-LD_PRELOAD-for-libperl.so.patch
+++ /dev/null
@@ -1,16 +0,0 @@
---- perl-5.6.0/Makefile.SH.pix Sat Mar 11 11:05:24 2000
-+++ perl-5.6.0/Makefile.SH     Fri Dec 15 07:29:42 2000
-@@ -30,12 +30,7 @@
- true)
-       # Prefix all runs of 'miniperl' and 'perl' with 
-       # $ldlibpth so that ./perl finds *this* shared libperl.
--      case "$LD_LIBRARY_PATH" in
--      '')
--              ldlibpth="LD_LIBRARY_PATH=`pwd`";;
--      *)
--              ldlibpth="LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}";;
--      esac
-+        ldlibpth="LD_PRELOAD=`pwd`/libperl.so"
- 
-       pldlflags="$cccdlflags"
-       case "${osname}${osvers}" in

diff --git a/perl.spec b/perl.spec
deleted file mode 100644 (file)
index f3fcaa9..0000000
--- a/perl.spec
+++ /dev/null
@@ -1,1423 +0,0 @@
-#
-# Conditional build:
-%bcond_without tests           # do not perform "make test"
-%bcond_without threads         # build without support for threads
-%bcond_without gdbm            # build without the GDBM_File module
-%bcond_without microperl       # don't build microperl
-#
-# TODO:
-# - fix "FIXME"s, review "XXX"s
-# - add the {O,N}DBM_File modules
-# - review the perldiag.pod issue
-# - consider disabling ithreads by default
-# - consider introducing perl-dirs
-# - what about "prove" (binary+manual)? (conflicts with standalone Test-Harness)
-#
-# TODO for perl-dependent packages:
-# - change all "R/BR: perl" to one of perl-{base,modules,devel}
-#
-
-%define _abi   5.8.0
-
-%define                perlthread      %{?with_threads:-thread-multi}
-
-%define                perl_privlib    %{_datadir}/perl5/%{version}
-%define                perl_archlib    %{_libdir}/perl5/%{version}/%{_target_platform}%{perlthread}
-%define                perl_sitelib    %{_usr}/local/share/perl5
-%define                perl_sitearch   %{_usr}/local/lib/perl5/%{_abi}/%{_target_platform}%{perlthread}
-%define                perl_vendorlib  %{_datadir}/perl5/vendor_perl
-%define                perl_vendorarch %{_libdir}/perl5/vendor_perl/%{_abi}/%{_target_platform}%{perlthread}
-
-Summary:       Practical Extraction and Report Language (Perl)
-Summary(cs):   Programovací jazyk Perl
-Summary(da):   Programmeringssproget Perl
-Summary(de):   Praktische Extraktions- und Berichtsprache
-Summary(es):   Lenguaje práctica de extracción y listado
-Summary(fr):   Langage de programmation Perl
-Summary(id):   Bahasa pemrograman Perl
-Summary(is):   Forritunarmálið Perl
-Summary(it):   Perl: linguaggio di programmazione
-Summary(ja):   Perl ¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì
-Summary(ko):   ÆÞ ÇÁ·Î±×·¡¹Ö ¾ð¾î
-Summary(nb):   Programmeringsspråket Perl
-Summary(pl):   Interpreter jêzyka Perl (Practical Extraction and Report Language)
-Summary(pt):   A linguagem de programação Perl
-Summary(pt_BR):        Linguagem prática de extração e relatório
-Summary(ru):   ñÚÙË ÐÒÏÇÒÁÍÍÉÒÏ×ÁÎÉÑ Perl
-Summary(sk):   Programovací jazyk Perl
-Summary(sl):   Programski jezik Perl
-Summary(sv):   Programmeringsspråket Perl
-Summary(tr):   Kabuk yorumlama dili
-Summary(zh_CN):        Perl ±à³ÌÓïÑÔ¡£
-Name:          perl
-Version:       5.8.4
-Release:       4%{!?with_threads:_nothr}
-Epoch:         1
-License:       GPL v1+ or Artistic
-Group:         Development/Languages/Perl
-Source0:       http://www.cpan.org/src/%{name}-%{version}.tar.bz2
-# Source0-md5: 3eb135afd0114f4e1acdd4ad6b8fd947
-Source1:       http://www.mif.pg.gda.pl/homepages/ankry/man-PLD/%{name}-non-english-man-pages.tar.bz2
-# Source1-md5: de47d7893f49ad7f41ba69c78511c0db
-Patch0:                %{name}_581-noroot_install.patch
-Patch1:                %{name}_581-INC.patch
-Patch3:                %{name}_580-errno_h-parsing.patch
-Patch4:                %{name}_580-use-LD_PRELOAD-for-libperl.so.patch
-Patch5:                %{name}_581-soname.patch
-Patch6:                %{name}-test-noproc.patch
-Patch8:                %{name}_584-microperl_uconfig.patch
-URL:           http://www.perl.com/
-# required for proper Provides generation (older are not supported by spec)
-BuildRequires: rpm-build >= 4.3-0.20040107.4
-%{?with_gdbm:BuildRequires:    gdbm-devel}
-Requires:      %{name}-base = %{epoch}:%{version}
-Requires:      %{name}-modules = %{epoch}:%{version}
-Requires:      perl-doc-reference
-Requires:      perldoc
-BuildRoot:     %{tmpdir}/%{name}-%{version}-root-%(id -u -n)
-
-%define                __perl          %{_builddir}/%{name}-%{version}/runperl
-%define                __perl_provides %{__perl} /usr/lib/rpm/perl.prov
-
-%description
-Perl is an interpreted language optimized for scanning arbitrary text
-files, extracting information from those text files, and printing
-reports based on that information. It's also a good language for many
-system management tasks. The language is intended to be practical
-(easy to use, efficient, complete) rather than beautiful (tiny,
-elegant, minimal).
-
-%description -l cs
-Perl je vy¹¹í programovací jazyk s koøeny v jazyce C, sed, awk a
-shellových skriptech. Perl je vhodný pro manipulace s procesy a
-soubory, ale obzvlá¹tì se hodí ke zpracovávání textù. Perl vyniká
-praktièností úèinností. I kdy¾ se pou¾ívá prakticky na cokoli, vìt¹ina
-Perlových programù slou¾í jako správcovské utility nebo programy pro
-WWW. V Perlu je napsáno velmi mnoho CGI skriptù pro WWW servery na
-celém svìtì.
-
-%description -l da
-Perl er et høgniveauprogramsprog med røtter i C, sed, awk og
-skalskript. Perl er godt på at behandle processer og filer, og er
-særskilt godt på at behandle text. Utmærkende for Perl er at det er
-praktisk og effektivt. Det bruges for at gøre en mængd forskellige
-saker, men de almindeligeste programmerne er systemadministration og
-webbprogrammering. En stor andel af CGI-skripten på webben er skrivna
-i Perl. Du behøver installere pakken perl på dit system så at ditt
-system kan behandle Perlskript.
-
-%description -l de
-Perl ist eine Interpreter-Sprache, die zum Durchsuchen beliebiger
-Text- dateien, Extrahieren von Informationen aus diesen Dateien und
-Drucken von auf diesen Informationen basierenden Berichten optimiert
-ist. Die Sprache eignet sich außerdem für viele
-Systemverwaltungsaufgaben. Sie ist eher praktisch (einfache
-Anwendung,effizient, vollständig) als schön (winzig, elegant,
-minimal).
-
-%description -l es
-Perl es un lenguaje interpretado, optimizado para manejar archivos
-texto, extrayendo información de estos archivos y mostrando listados
-basados en esta información. También es un buen lenguaje para varias
-tareas de administración de sistema. El lenguaje busca ser más
-práctico (fácil de usar, eficiente, completo) que bonito (minúsculo,
-elegante, mínimo).
-
-%description -l fr
-Perl est un langage interprété, optimisé pour filtrer des fichiers
-texte, extraire des informations de ces fichiers, et imprimer des
-rapports basés sur ces informations. C'est aussi un bon langage pour
-de nombreuses procédures de gestion système. Ce langage se veut
-pratique (simple à utiliser, efficace, complet) autant qu'agréable
-(conscrit, élégant, minimal).
-
-%description -l id
-Perl adalah sebuah bahasa pemrograman tingkat tinggi yang didasarkan
-pada C, sed, awk, dan bahasa shell. Perl memiliki kemampuan penanganan
-proses dan file yang bagus, tapi terutama kemampuan penanganan teksnya
-yang baik. Ciri khas Perl adalah kepraktisan dan efisiensi. Meski
-digunakan untuk berbagai hal, aplikasi Perl yang paling umum adalah
-utilitas sistem administrasi dan pemrograman web. Sebagian besar skrip
-CGI yang ada di web ditulis dalam Perl. Anda perlu memasang paket perl
-di sistem agar dapat menjalankan skrip-skrip Perl.
-
-%description -l is
-Perl er hás stigs forritunar tungumál sem á rætur sínar að rekja til
-C, sed, awk, og skeljar forritunar. Perl er góð í að meðhöndla
-processa og skrár og er sérstaklega góð í að meðhöndla texta. Perls
-kostir eru nytsamleiki og virkni. Á meðan það er notað til að gera
-marga mismunandi hluti, Perl mest notuðu forrit eru krefisstjórnunar
-tól og vef forritun Stór hluti af CGI forritum á vefnum eru skrifaðar
-í Perl. Þú þarft perl pakkann settan upp á þínu krefi svo þitt kerfi
-geti notað Perl scriptur.
-
-%description -l it
-Perl è un linguaggio di programmazione di alto livello derivato dal
-linguaggio C, da sed, da awk e dallo scripting delle shell. E' adatto
-per la gestione di processi, di file e in particolare di file di
-testo. Perl è un linguaggio semplice ed efficiente. Viene utilizzato
-per numerosi scopi, ma le sue applicazioni più diffuse sono le utility
-di amministrazione del sistema e la programmazione Web. Una grossa
-parte degli script CGI nel Web sono scritti in Perl. È consigliabile
-installare il pacchetto perl in modo che il sistema sia in grado di
-gestire gli script di Perl.
-
-%description -l ja
-Perl ¤Ï C¸À¸ì¡¢sed, awk¡¢µÚ¤Ó ¥·¥§¥ë¥¹¥¯¥ê¥×¥Æ¥£¥ó¥°¤Ëº¬¸»¤ò
-»ý¤Ä¥Ï¥¤¥ì¥Ù¥ë¤Ê ¥×¥í¥°¥é¥à¸À¸ì¤Ç¤¹¡£Perl ¤Ï¥×¥í¥»¥¹¤ä¥Õ¥¡¥¤¥ë¤Î½èÍý¤Ë
-ŬÀÚ¤Ç ¡¢ÆÃ¤Ë ¥Æ¥­¥¹¥È½èÍý¤Ë¤ÏºÇŬ¤Ç¤¹¡£¤µ¤Þ¤¶¤Þ¤Êºî¶È¤Ë
-»ÈÍѤµ¤ì¤Þ¤¹¤¬¡¢ Perl¤ÎºÇ¤âÉÑÈˤʳèÍѤϥ·¥¹¥Æ¥à¥¢¥É¥ß¥Ë¥¹¥È¥ì¡¼¥·¥ç¥ó
-¥æ¡¼¥Æ¥£¥ê¥Æ¥£¤È web¥×¥í¥°¥é¥ß¥ó¥°¤Ç¤¹¡£web¾å¤Î ÂçÉôʬ¤ÎCGI"
-¥¹¥¯¥ê¥×¥È¤¬Perl¤Ç½ñ¤«¤ì¤Æ¤¤¤Þ¤¹¡£ ¥·¥¹¥Æ¥à¤¬Perl¥¹¥¯¥ê¥×¥È¤ò
-½èÍý½ÐÍè¤ë¤è¤¦¤Ë¤¹¤ë¤¿¤á¤Ë¤Ï perl¥Ñ¥Ã¥±¡¼¥¸¤ò ¥¤¥ó¥¹¥È¡¼¥ë¤¹¤ë
-ɬÍפ¬¤¢¤ê¤Þ¤¹¡£
-
-%description -l pl
-Perl jest jêzykiem przeznaczonym do skanowania plików tekstowych,
-wyci±gania z nich informacji i drukowania raportu bazuj±cego na tych
-informacjach. Jest równie¿ doskona³ym jêzykiem do wielu prac
-zwi±zanych z nadzorem systemu. Jêzyk ten jest w zamierzeniu bardziej
-praktyczny (³atwy w u¿yciu, wydajny, kompletny) ni¿ piêkny (skromny,
-elegancki, minimalny).
-
-%description -l pt
-O perl é uma linguagem de programação de alto nível que tem como
-raizes o C, sed, awk, e 'shell scripting'. O perl é bom a manipular
-processos e ficheiros, e é especialmente bom para manipular texto.
-Características do Perl são a eficiência e o uso prático. As
-aplicações mais comuns do Perl são utilitários de administração de
-sistema e programação Web. Uma grande parte dos 'scripts' CGI na Web
-são escritos em Perl. Você precisa do pacote perl instalado no seu
-sistema de maneira a que este possa tratar de 'scripts' de Perl.
-
-%description -l pt_BR
-Perl é uma linguagem interpretada, otimizada para tratar arquivos
-texto, extraindo informação desses arquivos e mostrando relatórios
-baseados nessa informação. Também é uma boa linguagem para várias
-tarefas de administração de sistema. A linguagem procura ser mais
-prática (fácil de usar, eficiente, completa) do que bonita (minúscula,
-elegante, mínima).
-
-%description -l ru
-Perl - ÜÔÏ ÉÎÔÅÒÐÒÅÔÉÒÕÅÍÙÊ ÑÚÙË ÐÒÏÇÒÁÍÍÉÒÏ×ÁÎÉÑ, ÕÈÏÄÑÝÉÊ ËÏÒÎÑÍÉ ×
-C, sed, awk É ÑÚÙËÉ ËÏÍÁÎÄÎÙÈ ÏÂÏÌÏÞÅË (shell). Perl ÈÏÒÏÛ ÄÌÑ ÒÁÂÏÔÙ
-Ó ÐÒÏÃÅÓÓÁÍÉ É ÆÁÊÌÁÍÉ, Á ÏÓÏÂÅÎÎÏ ÈÏÒÏÛ ÄÌÑ ÚÁÄÁÞ ÏÂÒÁÂÏÔËÉ ÔÅËÓÔÏ×.
-ïÓÏÂÅÎÎÏÓÔÉ Perl - ÐÒÁËÔÉÞÎÏÓÔØ É ÜÆÆÅËÔÉ×ÎÏÓÔØ. èÏÔÑ ÏÎ É
-ÉÓÐÏÌØÚÕÅÔÓÑ ÄÌÑ ÒÅÛÅÎÉÑ ÓÁÍÙÈ ÒÁÚÎÙÈ ÚÁÄÁÞ, ÎÁÉÂÏÌÅÅ ÒÁÓÐÒÏÓÔÒÁÎÅÎÎÙÅ
-ÐÒÉÍÅÎÅÎÉÑ (É ÔÏ, × ÞÅÍ ÏÎ ÓÉÌÅÎ) ÜÔÏ, ×ÅÒÏÑÔÎÏ, ÕÔÉÌÉÔÙ ÓÉÓÔÅÍÎÏÇÏ
-ÁÄÍÉÎÉÓÔÒÉÒÏ×ÁÎÉÑ É web-ÐÒÏÇÒÁÍÍÉÒÏ×ÁÎÉÅ. âÏÌØÛÁÑ ÞÁÓÔØ CGI ÓËÒÉÐÔÏ×
-ÎÁÐÉÓÁÎÁ ÎÁ Perl.
-
-%description -l sk
-Perl je programovací jazyk vy¹¹ej úrovne s koreòmi v C, sed, awk, a
-shell skriptoch. Perl má vhodné vlastnosti pre spracovanie procesov a
-súborov a je zvlá¹» vhodný pre spracovanie textu. Jeho cieµmi sú
-praktiènos» a efektivita. Aj keï je pou¾ívaný pre mno¾stvo rozlièných
-èinností, jeho najèastej¹ím pou¾itím (a kde vyniká najviac) sú
-pravdepodobne nástroje pre správu systému a programovanie na Webe.
-Veµká èas» CGI skriptov na Webe je napísaná v Perle. Balík perl
-potrebujete ma» nain¹talovaný, aby bol vá¹ systém schopný spracova»
-Perl skripty.
-
-%description -l sv
-Perl är ett högnivåprogramspråk med rötter i C, sed, awk och
-skalskript. Perl är bra på att hantera processer och filer, och är
-särskilt bra på att hantera text. Utmärkande för Perl är att det är
-praktiskt och effektivt. Det används för att göra en mängd olika
-saker, men de vanligaste tillämpningarna är systemadministration och
-webbprogrammering. En stor andel av CGI-skripten på webben är skrivna
-i Perl. Du behöver installera paketet perl på ditt system så att ditt
-
-%description -l tr
-Perl, metin dosyalarýný taramak, bu metin dosyalarýndan bilgi çýkarmak
-ve bu bilgiye dayalý raporlar hazýrlamak icin geliþtirilmiþ bir
-yorumlamalý dildir. Ayrýca pek çok sistem yönetimi görevleri için de
-yararlý yetenekleri vardýr. Perl, güzel (ufak, zarif, minimum)
-olmaktan çok, pratik olmaya yönelik (kullanýmý kolay, verimli,
-eksiksiz) olarak tasarlanmýþtýr.
-
-%description -l uk
-Perl - ÃÅ ¦ÎÔÅÒÐÒÅÔÏ×ÁÎÁ ÍÏ×Á ÐÒÏÇÒÁÍÕ×ÁÎÎÑ, ÝÏ ÚÁÐÏÚÉÞÕ¤ ¦Äŧ × C,
-sed, awk ÔÁ ÍÏ×ÁÈ ËÏÍÁÎÄÎÉÈ ÏÂÏÌÏÎÏË (shell). Perl ÄÏÂÒŠЦÄÈÏÄÉÔØ ÄÌÑ
-ÒÏÂÏÔÉ Ú ÐÒÏÃÅÓÁÍÉ ÔÁ ÆÁÊÌÁÍÉ, Á ÎÁÊËÒÁÝÅ - ÄÌÑ ÏÂÒÏÂËÉ ÔÅËÓÔ¦×.
-ïÓÏÂÌÉ×ÏÓÔ¦ Perl - ÐÒÁËÔÉÞΦÓÔØ ÔÁ ÅÆÅËÔÉ×ΦÓÔØ. èÏÞÁ ÓÆÅÒÁ ÊÏÇÏ
-×ÉËÏÒÉÓÔÁÎÎÑ ÄÕÖÅ ÛÉÒÏËÁ, ÎÁʦÌØÛ ÐÏÛÉÒÅÎÅ ÊÏÇÏ ÚÁÓÔÏÓÕ×ÁÎÎÑ (ÔÁ
-ÎÁÊÓÉÌØΦÛÁ ÓÔÏÒÏÎÁ) ÃÅ, ¦ÍÏצÒÎÏ, ÕÔÉ̦ÔÉ ÓÉÓÔÅÍÎÏÇÏ ÁÄͦΦÓÔÒÕ×ÁÎÎÑ
-ÔÁ web-ÐÒÏÇÒÁÍÕ×ÁÎÎÑ. â¦ÌØÛÁ ÞÁÓÔÉÎÁ CGI ÓËÒÉÐÔ¦× ÎÁÐÉÓÁÎÁ ÎÁ Perl.
-
-%description -l zh_CN
-Perl ÊÇÒ»Öָ߼¶±à³ÌÓïÑÔ£¬ÆðÔ´ÓÚ C¡¢sed¡¢awk ºÍ shell ½Å±¾¡£
-ËüÉÆÓÚ´¦Àí½ø³ÌºÍÎļþ£¬ÓÈÆäÊÇ´¦ÀíÎı¾¡£Perl
-µÄÌصãÔÚÓÚÆäʵÓÃÐÔºÍÓÐЧÐÔ¡£
-¾¡¹ÜËü¿ÉÓÃÓÚÖ´ÐÐÐí¶à²»Í¬µÄÈÎÎñ£¬µ«ÊÇͨ³£¶àÓ¦ÓÃÓÚϵͳ¹ÜÀíʵÓóÌÐòºÍ Web
-±à³Ì¡£\n Web ÉÏµÄ´ó²¿·Ö CGI ½Å±¾¾ùʹÓà Perl
-ÓïÑÔ½øÐбàд¡£Äú±ØÐëÔÚϵͳÖа²×° perl Èí¼þ°ü£¬ ÒԱ㴦Àí Perl ½Å±¾¡£
-
-%package base
-Summary:       Base perl components for a minimal installation
-Summary(pl):   Podstawowe sk³adniki potrzebne do minimalnej instalacji perla
-Group:         Development/Languages/Perl
-Provides:      perl-File-Compare = 1.1003
-Provides:      perl-File-Spec = 0.87
-Provides:      perl-File-Temp = 0.14
-Provides:      perl-IO = 1.21
-Provides:      perl-Safe = 2.10
-Provides:      perl-Socket = 1.77
-Provides:      perl-Tie-File = 0.97
-Provides:      perl(largefiles)
-# broken, unsupported modules
-Obsoletes:     perl-SOAP
-Obsoletes:     perl-Sort-PolySort
-
-%description base
-Base components, files, core modules, etc. -- a minimal usable perl
-installation.  You are encouraged to install a full perl (the perl
-package) whenever possible.
-
-%description base -l pl
-Podstawowe sk³adniki, pliki, g³ówne modu³y itp. - minimalna instalacja
-perla, nadaj±ca siê do u¿ytku. Zaleca siê instalacjê pe³nego perla
-(pakietu perl), je¶li to tylko mo¿liwe.
-
-%package GDBM_File
-Summary:       GDBM_File - Perl5 access to the gdbm library
-Summary(pl):   GDBM_File - dostêp do biblioteki gdbm w Perlu
-Group:         Libraries
-Requires:      %{name}-base = %{epoch}:%{version}
-# FIXME: Set Version: 1.06 and Release: 1 instead of inheriting
-#        values from the main package.  Why this causes setting
-#        version and release macros up to the end of this spec?
-
-%description GDBM_File
-GDBM_File is a module which allows Perl programs to make use of the
-facilities provided by the GNU gdbm library.
-
-%description GDBM_File -l pl
-GDBM_File jest modu³em, który umo¿liwia programom w Perlu korzystanie
-z biblioteki GNU gdbm.
-
-%package devel
-Summary:       Perl development files
-Summary(pl):   Pliki potrzebne przy tworzeniu w³asnych aplikacji w perlu
-Summary(pt_BR):        Arquivos de desenvolvimento e cabeçalhos para o perl
-Group:         Development/Libraries
-Requires:      %{name}-base = %{epoch}:%{version}
-Requires:      %{name}-modules = %{epoch}:%{version}
-Requires:      %{name}-tools-pod
-Provides:      perl-CPAN = 1.76_01
-Provides:      perl-Devel-DProf = 20030813.00
-Provides:      perl-Devel-PPPort = 2.011
-Provides:      perl-Devel-Peek = 1.01
-Provides:      perl-ExtUtils-Embed = 1.2506_01
-Provides:      perl-ExtUtils-MakeMaker = 6.17
-Obsoletes:     perl-lib-devel
-
-%description devel
-Components required for developing applications which embed a Perl
-interpreter and compiling perl modules.
-
-%description devel -l pl
-Sk³adniki potrzebne do tworzenia aplikacji osadzaj±cych interpreter
-Perla oraz kompilowania modu³ów Perla.
-
-%package doc-pod
-Summary:       Perl documentation in POD format
-Summary(pl):   Dokumentacja Perla w formacie POD
-Group:         Documentation
-Requires:      perldoc
-Obsoletes:     perl-pod
-
-%description doc-pod
-Practical Extraction and Report Language - POD docs.
-
-%description doc-pod -l pl
-Practical Extraction and Report Language - dokumentacja w formacie
-POD.
-
-%package doc-reference
-Summary:       Perl reference documentation
-Summary(pl):   Dokumentacja Perla
-Group:         Documentation
-
-%description doc-reference
-Reference documentation for the Practical Extraction and Report Language
-and it's interpreter in the man(1) format.
-
-%description doc-reference -l pl
-Dokumentacja referencyjna w formacie man do jêzyka Perl (Practical
-Extraction and Report Language) i jego interpretera.
-
-%package modules
-Summary:       Modules from the core perl distribution
-Summary(pl):   Modu³y z podstawowej dystrybucji perla
-Group:         Libraries
-Requires:      %{name}-base = %{epoch}:%{version}
-Provides:      perl-Attribute-Handlers = 0.78_01
-Provides:      perl-CGI = 3.04
-Provides:      perl-Class-ISA = 0.32
-Provides:      perl-Digest = 1.06
-Provides:      perl-Digest-MD5 = 2.33
-Provides:      perl-Filter-Simple = 0.78
-Provides:      perl-FindBin = 1.44
-#Provides:     perl-Hash-Utils = 0.05  Data::Util is missing
-Provides:      perl-I18N-LangTags = 0.29
-Provides:      perl-IPC-SysV = 1.04
-Provides:      perl-Locale-Codes = 2.06
-Provides:      perl-Locale-Maketext = 1.08
-Provides:      perl-MIME-Base64 = 3.01
-Provides:      perl-Math-BigInt = 1.70
-Provides:      perl-Math-BigRat = 0.12
-Provides:      perl-Math-Trig = 1.02
-Provides:      perl-Memoize = 1.01
-Provides:      perl-NEXT = 0.60
-Provides:      perl-PerlIO-via-QuotedPrint = 0.06
-Provides:      perl-Pod-LaTeX = 0.55
-Provides:      perl-Pod-Parser = 1.14
-Provides:      perl-Scalar-List-Utils = 1.13
-Provides:      perl-Storable = 2.12
-Provides:      perl-Term-ANSIColor = 1.08
-Provides:      perl-Term-Cap = 1.08
-Provides:      perl-Test = 1.24
-Provides:      perl-Test-Harness = 2.40
-Provides:      perl-Test-Simple = 0.47
-Provides:      perl-Text-Balanced = 1.95
-Provides:      perl-Text-ParseWords = 3.21
-Provides:      perl-Text-Soundex = 1.01
-# XXX: I'm not sure what to do with this one...
-#Provides:     perl-Text-Tabs+Wrap = 2001.09291
-Provides:      perl-Time-HiRes = 1.59
-Provides:      perl-UNIVERSAL = 1.01
-Provides:      perl-Unicode-Collate = 0.33
-Provides:      perl-Unicode-Normalize = 0.28
-Provides:      perl-libnet = 1.1.1
-Obsoletes:     perl-Encode-compat
-Obsoletes:     perl-lib
-
-%description modules
-Practical Extraction and Report Language - modules from the core
-distribution.
-
-%description modules -l pl
-Practical Extraction and Report Language - modu³y z podstawowej
-dystrybucji.
-
-%package perldoc
-Summary:       perldoc - Look up Perl documentation in pod format
-Summary(pl):   perldoc - przeszukiwanie dokumentacji Perla w formacie pod
-Provides:      perldoc = 3.12@%{version}
-Requires:      %{name}-modules
-Requires:      %{name}-tools-pod
-Group:         Development/Tools
-
-%description perldoc
-perldoc looks up a piece of documentation in .pod format that is
-embedded in the perl installation tree or in a perl script, and
-displays it via "pod2man | nroff -man | $PAGER". This is primarily
-used for the documentation for the perl library modules.
-
-%description perldoc -l pl
-perldoc wyszukuje fragment dokumentacji w formacie .pod osadzony w
-drzewie instalacji perla lub w skypcie perlowym i wy¶wietla go przez
-"pod2man | nroff -man | $PAGER". Program ten u¿ywany jest g³ównie do
-dokumentacji modu³ów z bibliotek perla.
-
-%package -n sperl
-Summary:       Perl setuid root binaries for use with setuid Perl scripts
-Summary(de):   sperl zur Verwendung mit setuid Perl-Skripts
-Summary(es):   sperl, para uso con los scrips de Perl setuid
-Summary(fr):   sperl, à utiliser avec les scripts Perl setuid
-Summary(it):   sperl, da usare con gli script di Perl setuid
-Summary(ja):   Setuid Perl scripts ¤È°ì½ï¤Ë»ÈÍѤ¹¤ë¤¿¤á¤Î suidperl
-Summary(ko):   Setuid ÆÞ ½ºÅ©¸³Æ®¿Í ÇÔ²² »ç¿ëµÇ´Â suidperl
-Summary(pl):   Binaria setuid root perla dla setuid-owych skryptów perla
-Summary(pt):   O suidperl, para usar com os programas de Perl 'setuid'
-Summary(ru):   SUID ×ÅÒÓÉÑ ÑÚÙËÁ Perl
-Summary(sv):   sperl, att användas med setuid perlskript
-Summary(uk):   SUID-×ÅÒÓ¦Ñ ÍÏ×É Perl
-Summary(zh_CN):        sperl£¬ÓÃÀ´Óë setuid perl ½Å±¾Ò»ÆðʹÓÃ
-Group:         Development/Languages/Perl
-Requires:      %{name}-base = %{epoch}:%{version}
-Obsoletes:     perl-suidperl
-
-%description -n sperl
-sperl is a setuid root binary copy of perl that allows for (hopefully)
-more secure running of setuid Perl scripts.
-
-%description -n sperl -l de
-sperl ist eine binäre setuid Kopie von Perl, mit der (hoffentlich)
-setuid-Skripts sicherer ausgeführt werden können.
-
-%description -n sperl -l es
-sperl es una copia binaria de setuid para perl que le permite una
-ejecución más segura de los scripts de Perl setuid.
-
-%description -n sperl -l fr
-sperl est une copie binaire setuid de perl qui permet une exécution
-plus sûre de scripts Perl setuid.
-
-%description -n sperl -l it
-sperl è una copia binaria setuid di perl che consente un'esecuzione
-più sicura di script di Perl setuid.
-
-%description -n sperl -l ja
-sperl ¤Ï setuid Perl scripts.¤ò¤â¤Ã¤È°ÂÁ´¤ËÆ°ºî¤Ç¤­¤ë(´üÂԤΤ¢¤ë)°Ù¤Î
-perl ¤Îsetuid ¥Ð¥¤¥Ê¥ê ¥³¥Ô¡¼¤Ç¤¹¡£
-
-%description -n sperl -l pl
-sperl jest to kopia setuid root programu binarnego perl umo¿liwiaj±ca
-bezpieczniejsze (miejmy nadziejê) uruchamianie setuidowych skryptów
-perla.
-
-%description -n sperl -l pt
-O suidperl é uma cópia do perl com 'setuid' que permite uma execução
-mais segura dos 'scripts' de Perl 'setuid'.
-
-%description -n sperl -l ru
-Suid perl ÉÓÐÌØÚÕÅÔÓÑ ÄÌÑ ÔÏÇÏ, ÞÔÏÂÙ ÄÁÔØ ×ÏÚÍÏÖÎÏÓÔØ ÓÏÚÄÁ×ÁÔØ
-ÓËÒÉÐÔÙ Ó ÕÔÁÎÏ×ÌÅÎÎÙÍ ÂÉÔÏÍ SUID. èÏÔÑ × ÎÅÇÏ ×ÓÔÒÏÅÎÏ ÄÏÓÔÁÔÏÞÎÏ
-ÍÎÏÇÏ ÐÒÏ×ÅÒÏË, ÐÒÉÚ×ÁÎÙÈ ÏÂÅÓÐÅÞÉÔØ ÂÅÚÏÐÁÓÎÏÓÔØ ÅÇÏ ÉÓÐÏÌØÚÏ×ÁÎÉÑ
-suid perl ×ÓÅ ÒÁ×ÎÏ ÐÒÅÄÓÔÁ×ÌÑÅÔ ÓÏÂÏÊ ÚÎÁÞÉÔÅÌØÎÕÀ ÐÏÔÅÎÃÉÁÌØÎÕÀ
-ÏÐÁÓÎÏÓÔØ.
-
-%description -n sperl -l sv
-suidperl är en setuid binärkopia av pers som tillåter
-(förhoppningsvis) säkrare körning av setuid perlskript.
-
-%description -n sperl -l zh_CN
-suidperl ÊÇ perl µÄ setuid ¶þ½øÖƸ±±¾¡£ËüÔÊÐí£¨Ï£ÍûÈç´Ë£© ¸ü°²È«µØÔËÐÐ
-setuid perl ½Å±¾¡£
-
-%package tools
-Summary:       Various tools from the core perl distribution
-Summary(pl):   Ró¿ne narzêdzia z podstawowej dystrybucji perla
-Group:         Applications
-Requires:      %{name}-devel = %{epoch}:%{version}
-
-%description tools
-Various tools from the core perl distribution:
-
- a2p       - Awk to Perl translator
- cpan      - easily interact with CPAN from the command line
- find2perl - translate find command lines to Perl code
- piconv    - iconv(1), reinvented in perl
- psed, s2p - a stream editor
-
-%description tools -l pl
-Ró¿ne narzêdzia z podstawowej dystrybucji perla:
-
- a2p       - translator skryptów Awka do Perla
- cpan      - easily interact with CPAN from the command line
- find2perl - t³umaczenie linii poleceñ programu find na kod w Perlu
- piconv    - iconv(1) napisany w Perlu
- psed, s2p - edytor strumieniowy
-
-%package tools-devel
-Summary:       Developer's tools from the core perl distribution
-Summary(pl):   Narzêdzia z podstawowej dystrybucji perla, przeznaczone dla programistów
-Group:         Development/Tools
-Requires:      %{name}-base = %{epoch}:%{version}
-Requires:      %{name}-devel = %{epoch}:%{version}
-
-%description tools-devel
-Various tools from the core perl distribution:
-
- c2ph, pstruct - Dump C structures as generated from C<cc -g -S> stabs
- dprofpp       - display perl profile data
- enc2xs        - Perl Encode Module Generator
- h2ph          - convert .h C header files to .ph Perl header files
- h2xs          - convert .h C header files to Perl extensions
- perlcc        - generate executables from Perl programs
- perlivp       - Perl Installation Verification Procedure
- pl2pm         - Rough tool to translate Perl4 .pl files to Perl5 .pm modules.
- splain        - force verbose warning diagnostics
-
-%description tools-devel -l pl
-Ró¿ne narzêdzia z podstawowej dystrybucji perla:
-
- c2ph, pstruct - zrzucanie struktur C w postaci generowanej z tablic
-                 symboli z cc -g -S
- dprofpp       - wy¶wietlanie perlowych danych profiluj±cych
- enc2xs        - generator modu³ów koduj±cych w Perlu
- h2ph          - konwerter plików nag³ówkowych .h z C na perlowe pliki
-                 nag³ówkowe .ph
- h2xs          - konwerter plików nag³ówkowych .h z C na rozszerzenia
-                 Perla
- perlcc        - generator binarek z programów w Perlu
- perlivp       - procedura weryfikacji instalacji perla
- pl2pm         - zgrubne narzêdzie do t³umaczenia plików pl Perla 4 na
-                 modu³y .pm Perla 5
- splain        - wymuszenie obszernych ostrze¿eñ diagnostycznych
-
-%package tools-pod
-Summary:       Tools for manipulating files in the POD format
-Summary(pl):   Narzêdzia do przetwarzania plików w formacie POD
-Group:         Applications
-Requires:      %{name}-modules = %{epoch}:%{version}
-
-%description tools-pod
-Tools for manipulating files in the POD (Plain Old Documentation)
-format:
-
- pod2html   - convert .pod files to .html files
- pod2latex  - convert pod documentation to LaTeX format
- pod2man    - convert POD data to formatted *roff input
- pod2text   - convert POD data to formatted ASCII text
- pod2usage  - print usage messages from embedded pod docs in files
- podchecker - check the syntax of POD format documentation files
- podselect  - print selected sections of pod documentation
-
-%description tools-pod -l pl
-Narzêdzia do przetwarzania plików w formacie POD (Plain Old
-Documentation):
-
- pod2html   - konwerter plików .pod do plików .html
- pod2latex  - konwerter dokumentacji pod do formatu LaTeX
- pod2man    - konwerter danych POD na wej¶cie sformatowane dla *roffa
- pod2text   - konwerter danych POD na sformatowany tekst ASCII
- pod2usage  - wypisanie informacji o u¿ywaniu programu z dokumentacji
-              osadzonej w plikach
- podchecker - kontrola sk³adni dokumentacji w formacie POD
- podselect  - wypisanie wybranych sekcji z dokumentacji POD
-
-%package -n microperl
-Summary:       A really minimal perl, even more minimal than miniperl
-Summary(pl):   Naprawdê minimalny Perl, nawet bardziej minimalny ni¿ miniperl
-# XXX: is there a more appropiate group?
-Group:         Applications
-
-%description -n microperl
-microperl is supposed to be able a really minimal perl, even more
-minimal than miniperl.  No Configure is needed to build microperl, on
-the other hand this means that interfaces between Perl and your
-operating system are left very -- minimal.
-
-All this is experimental.  If you don't know what to do with microperl
-you probably shouldn't.  Do not report bugs in microperl; fix the bugs.
-
-%description -n microperl -l pl
-microperl ma byæ naprawdê minimalnym Perlem, nawet bardziej minimalnym
-od miniperla. Uruchamianie Configure nie jest potrzebne do zbudowania
-microperla, z drugiej strony oznacza to, ¿e interfejs miêdzy Perlem a
-systemem operacyjnym pozostaje bardzo minimalny.
-
-Ca³o¶æ jest eksperymentalna. Je¶li nie wiesz co zrobiæ z microperlem,
-prawdopodobnie nie powiniene¶ tego robiæ. Nie zg³aszaj b³êdów w
-microperlu - popraw je.
-
-%prep
-%setup -q
-%patch0 -p1
-%patch1 -p1
-%patch3 -p1
-%patch4 -p1
-%patch5 -p1
-%patch6 -p1
-%patch8 -p1
-
-%build
-sh Configure \
-       -des \
-       -Dcc=%{__cc} \
-       -Darchname=%{_target_platform} \
-       -Dcccdlflags='-fPIC' \
-       -Dccdlflags='-rdynamic' \
-       -Doptimize="%{rpmcflags}" \
-       -Duseshrplib \
-       -Dd_dosuid \
-       -Dman1dir=%{_mandir}/man1 -Dman1ext=1 \
-       -Dman3dir=%{_mandir}/man3 -Dman3ext=3perl \
-       -Dvendorman1=%{_mandir}/man1 -Dvendorman1ext=1p \
-       -Dvendorman3=%{_mandir}/man3 -Dvendorman3ext=3pm \
-       -Dsiteman1=%{_usr}/local/share/man/man1 -Dsiteman1ext=1p \
-       -Dsiteman3=%{_usr}/local/share/man/man3 -Dsiteman3ext=3pm \
-       -Dprefix=%{_prefix} -Dvendorprefix=%{_prefix} -Dsiteprefix=%{_usr}/local \
-       -Dlibpth="%{_libdir} /%{_lib}" \
-       -Dprivlib=%{perl_privlib}     -Darchlib=%{perl_archlib} \
-       -Dsitelib=%{perl_sitelib}     -Dsitearch=%{perl_sitearch} \
-       -Dvendorlib=%{perl_vendorlib} -Dvendorarch=%{perl_vendorarch} \
-       -Ui_db \
-       %{!?with_gdbm: -Ui_dbm -Ui_gdbm -Ui_ndbm} \
-       %{?with_gdbm:  -Ui_dbm -Di_gdbm -Ui_ndbm} \
-       -Dlibswanted="dl m c crypt %{?with_gdbm:gdbm}" \
-       -%{?with_threads:D}%{!?with_threads:U}usethreads \
-       -Duselargefiles
-
-## why were these three undefined?
-#      -Ud_setresgid \
-#      -Ud_setresuid \
-## what's the problem with this one?
-# %ifarch sparc sparc64
-#      -Ud_longdbl
-# %endif
-
-## {Scalar,List}::Util should be in perl_archlib (it's a bit tricky and should
-## probably be done in %%prep, but then Configure would complain (->MANIFEST))
-mv ext/List/Util/lib/List/Util.pm ext/List/Util
-rm -f ext/List/Util/Makefile.PL
-cat <<EOF > ext/List/Util/Makefile.PL
-use ExtUtils::MakeMaker;
-WriteMakefile(NAME=>"List::Util", VERSION_FROM=>"Util.pm", DEFINE=>"-DPERL_EXT");
-EOF
-
-%{__make} \
-       LIBPERL_SONAME=libperl.so.%{_abi}
-
-## microperl
-%if %{with microperl}
-rm -f uconfig.h
-#chmod u+w uconfig.sh
-#echo "usemallocwrap='define'" >> uconfig.sh
-%{__make} -f Makefile.micro \
-       archlib=%{perl_archlib} \
-       archlibexp=%{perl_archlib} \
-       privlib=%{perl_privlib} \
-       privlibexp=%{perl_privlib} \
-       archname=%{_target_platform}%{perlthread} \
-       osname=%{_host} \
-       bin=%{_bindir} \
-       scriptdir=%{_bindir} \
-       scriptdirexp=%{_bindir} \
-       usemallocwrap='define' \
-       OPTIMIZE="%{rpmcflags}"
-%endif
-
-%{?with_tests:%{__make} test}
-#%{?with_tests:%{__make} minitest}
-
-cat > runperl <<EOF
-#!/bin/sh
-LD_LIBRARY_PATH="%{_builddir}/%{name}-%{version}" \
-       PERL5LIB="%{buildroot}%{perl_privlib}:%{buildroot}%{perl_archlib}" \
-       exec %{buildroot}%{_bindir}/perl \$*
-EOF
-chmod a+x runperl
-
-%install
-rm -rf $RPM_BUILD_ROOT
-install -d $RPM_BUILD_ROOT%{_mandir}/{ja,ko,zh_CN,zh_TW}/man1
-
-%{__make} install \
-       DESTDIR=$RPM_BUILD_ROOT
-%{?with_microperl:install microperl $RPM_BUILD_ROOT%{_bindir}}
-
-## use symlinks instead of hardlinks
-%{__ln_s} -f perl%{version} $RPM_BUILD_ROOT%{_bindir}/perl
-%{__ln_s} -f perl%{version} $RPM_BUILD_ROOT%{_bindir}/suidperl
-%{__ln_s} -f c2ph           $RPM_BUILD_ROOT%{_bindir}/pstruct
-%{__ln_s} -f psed           $RPM_BUILD_ROOT%{_bindir}/s2p
-
-## Fix lib
-rm -f $RPM_BUILD_ROOT%{perl_archlib}/CORE/libperl.so
-%{__ln_s} `%{__perl} -e '$_="'%{perl_archlib}/CORE/libperl.so.%{_abi}'";s|^'%{_libdir}'/*||;print'` \
-       $RPM_BUILD_ROOT%{_libdir}/libperl.so.%{_abi}
-%{__ln_s} libperl.so.%{_abi} $RPM_BUILD_ROOT%{_libdir}/libperl.so
-
-## Fix Config.pm: remove buildroot path and change man pages extensions
-%{__perl} -pi -e 's,%{buildroot}/*,/,g'              $RPM_BUILD_ROOT%{perl_archlib}/Config.pm
-%{__perl} -pi -e "s,^man1ext='1',man1ext='1p',"      $RPM_BUILD_ROOT%{perl_archlib}/Config.pm
-%{__perl} -pi -e "s,^man3ext='3perl',man3ext='3pm'," $RPM_BUILD_ROOT%{perl_archlib}/Config.pm
-
-## Generate the *.ph files
-owd="`pwd`"
-cd /usr/include
-H2PH=$RPM_BUILD_ROOT%{_bindir}/h2ph
-PHDIR=$RPM_BUILD_ROOT%{perl_archlib}
-WANTED='
-       syscall.h
-       syslog.h
-       termios.h
-       wait.h
-       asm/termios.h
-       sys/ioctl.h
-       sys/socket.h
-       sys/syscall.h
-       sys/time.h
-       linux/posix_types.h
-       linux/stddef.h
-'
-# why it returns non-zero???
-%{__perl} $H2PH -a -d $PHDIR $WANTED || :
-cd "$owd"
-
-## remove man pages for other operating systems
-rm -f  $RPM_BUILD_ROOT%{_mandir}/man1/perl{aix,amiga,apollo,beos,bs2000,ce,cygwin,dgux,dos}* \
-       $RPM_BUILD_ROOT%{_mandir}/man1/perl{freebsd,hpux,machten,macos,mpeix,os2,os390}* \
-       $RPM_BUILD_ROOT%{_mandir}/man1/perl{qnx,solaris,vmesa,vms,vos,win32}*
-
-## These File::Spec submodules are for non-Unix systems
-rm -f $RPM_BUILD_ROOT%{perl_privlib}/File/Spec/[EMOVW]*.pm
-rm -f $RPM_BUILD_ROOT%{_mandir}/man3/File::Spec::{Epoc,Mac,OS2,VMS,Win32}.3pm*
-
-## We already have these *.pod files as man pages
-rm -f $RPM_BUILD_ROOT%{perl_privlib}/{Encode,Test,Net,Locale{,/Maketext}}/*.pod
-rm -f $RPM_BUILD_ROOT%{perl_privlib}/*.pod
-rm -f $RPM_BUILD_ROOT%{perl_archlib}/*.pod
-
-## this object file looks unused; why is it there?
-rm -f $RPM_BUILD_ROOT%{perl_archlib}/CORE/sperl.o
-
-install -d doc-base/{Getopt/Long,Switch} \
-       doc-devel/ExtUtils \
-       doc-modules/{Attribute/Handlers,Filter/Simple,I18N/LangTags,Locale/{Codes,Maketext},Memoize,NEXT,Net/Ping,Term/ANSIColor,Test/Simple,Text/{Balanced,TabsWrap},Unicode/Collate,unicore}
-
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Getopt/Long/{CHANGES,README} doc-base/Getopt/Long
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Switch/{Changes,README} doc-base/Switch
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/ExtUtils/{Changes,NOTES,PATCHING,README,TODO} \
-       doc-devel/ExtUtils
-
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Attribute/Handlers/{Changes,README} \
-       doc-modules/Attribute/Handlers
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Filter/Simple/{Changes,README} \
-       doc-modules/Filter/Simple
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/I18N/LangTags/{ChangeLog,README} \
-       doc-modules/I18N/LangTags
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Locale/Codes/{ChangeLog,README} \
-       doc-modules/Locale/Codes
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Locale/Maketext/{ChangeLog,README} \
-       doc-modules/Locale/Maketext
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Memoize/{README,TODO} \
-       doc-modules/Memoize
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/NEXT/{Changes,README} \
-       doc-modules/NEXT
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Net/{ChangeLog.libnet,README.libnet} \
-       doc-modules/Net
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Net/Ping/Changes \
-       doc-modules/Net/Ping
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Term/ANSIColor/{ChangeLog,README} \
-       doc-modules/Term/ANSIColor
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Test/Simple/{Changes,README} \
-       doc-modules/Test/Simple
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Text/Balanced/{Changes,README} \
-       doc-modules/Text/Balanced
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Text/TabsWrap/CHANGELOG \
-       doc-modules/Text/TabsWrap
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Unicode/README \
-       doc-modules/Unicode
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/Unicode/Collate/{Changes,README} \
-       doc-modules/Unicode/Collate
-# needed only for tests
-rm -f $RPM_BUILD_ROOT%{perl_privlib}/Unicode/Collate/keys.txt
-mv -f $RPM_BUILD_ROOT%{perl_privlib}/unicore/{README.perl,ReadMe.txt} \
-       doc-modules/unicore
-# source for *.pl
-rm -f $RPM_BUILD_ROOT%{perl_privlib}/unicore/{*.txt,mktables}
-
-## dir tree for other perl modules
-install -d $RPM_BUILD_ROOT{%{perl_vendorlib},%{perl_vendorarch},%{perl_vendorarch}/auto}
-owd="`pwd`"
-
-cd $RPM_BUILD_ROOT%{perl_vendorlib}
-install -d AI/NeuralNet Algorithm Apache Archive Array Astro Attribute \
-       Audio Authen B Bundle Business CGI Cache Chart Class Config \
-       Convert Crypt DBD Data Date Devel Device Digest Email Error \
-       Exporter ExtUtils File Filesys Font Games Getopt GnuPG Graph \
-       Graphics HTML HTTP I18N IO/Socket IPC Image Inline Language \
-       Lingua/{EN,Stem/Snowball} List Locale LockFile Log MIME Mail \
-       Math/{BigInt,Fractal} Modem Module Net/SMTP NetServer Netscape \
-       News Number Object OLE Parse Pod PostScript Proc RADIUS RPC \
-       RPM RTF Regexp SOAP/Transport SQL Schedule Set Sort Speech \
-       Spreadsheet Statistics String Sub Sys Template TeX Test \
-       Text/Query Tie Time Tree UNIVERSAL Unicode WWW \
-       XML/{Filter,Handler,Parser,XPath} \
-       auto/{AI,Array,Config,Crypt,Data,Mail,Net,Schedule,Statistics,Text,WWW}
-
-cd $RPM_BUILD_ROOT%{perl_vendorarch}
-install -d Algorithm Astro Audio Authen B BSD Bit Compress Convert \
-       Crypt/OpenSSL Data Devel Digest File IPC Inline Locale Math/BigInt \
-       Net Speech/Recognizer String Sys Term Text Unicode XML \
-       auto/{Astro,Audio,Authen,BSD,Bit,Compress,Convert,Crypt/OpenSSL,Data} \
-       auto/{Devel,Digest,File,IPC,Inline,Locale,Math/BigInt,Net,Regexp} \
-       auto/{Speech/Recognizer,String,Sys,Term,Text,Unicode,XML}
-
-cd "$owd"
-
-## non-english man pages
-%{__bzip2} -dc %{SOURCE1} | tar xf - -C $RPM_BUILD_ROOT%{_mandir}
-
-mv -f $RPM_BUILD_ROOT%{_mandir}/man1/perlcn.* $RPM_BUILD_ROOT%{_mandir}/zh_CN/man1
-mv -f $RPM_BUILD_ROOT%{_mandir}/man1/perljp.* $RPM_BUILD_ROOT%{_mandir}/ja/man1
-mv -f $RPM_BUILD_ROOT%{_mandir}/man1/perlko.* $RPM_BUILD_ROOT%{_mandir}/ko/man1
-mv -f $RPM_BUILD_ROOT%{_mandir}/man1/perltw.* $RPM_BUILD_ROOT%{_mandir}/zh_TW/man1
-
-## examples and demos
-install -d $RPM_BUILD_ROOT%{_examplesdir}/%{name}-modules-%{version}
-mv $RPM_BUILD_ROOT%{perl_privlib}/CGI/eg \
-       $RPM_BUILD_ROOT%{_examplesdir}/%{name}-modules-%{version}/CGI
-mv $RPM_BUILD_ROOT%{perl_privlib}/Attribute/Handlers/demo \
-       $RPM_BUILD_ROOT%{_examplesdir}/%{name}-modules-%{version}/Attribute-Handlers
-rm -f $RPM_BUILD_ROOT%{_mandir}/man3/Attribute::Handlers::demo*
-#rm -f $RPM_BUILD_ROOT%{perl_privlib}/Class/ISA/test.pl
-#rmdir $RPM_BUILD_ROOT%{perl_privlib}/Class/ISA
-mv $RPM_BUILD_ROOT%{perl_privlib}/Net/demos \
-       $RPM_BUILD_ROOT%{_examplesdir}/%{name}-modules-%{version}/Net
-# XXX: bug bug bug...
-mv $RPM_BUILD_ROOT%{perl_privlib}/auto/POSIX/SigAction \
-       $RPM_BUILD_ROOT%{perl_archlib}/auto/POSIX
-
-%clean
-rm -rf $RPM_BUILD_ROOT
-
-%post   base -p /sbin/ldconfig
-%postun base -p /sbin/ldconfig
-
-%files
-%defattr(644,root,root,755)
-%doc README AUTHORS
-
-%files base
-%defattr(644,root,root,755)
-%doc doc-base/*
-%attr(755,root,root) %{_bindir}/perl
-%attr(755,root,root) %{_bindir}/perl%{version}
-%{_mandir}/man1/perl.*
-%lang(fi) %{_mandir}/fi/man1/perl*
-%lang(pl) %{_mandir}/pl/man1/perl*
-
-%dir %{_datadir}/perl5
-%dir %{perl_privlib}
-%dir %{_libdir}/perl5
-%dir %{_libdir}/perl5/%{version}
-%dir %{perl_archlib}
-%dir %{perl_archlib}/auto
-
-%dir %{perl_archlib}/CORE
-%attr(755,root,root) %{perl_archlib}/CORE/libperl.so.%{_abi}
-%attr(755,root,root) %{_libdir}/libperl.so.*
-
-%dir %{_libdir}/perl5/vendor_perl
-%dir %{_libdir}/perl5/vendor_perl/%{_abi}
-%{perl_vendorarch}
-%{perl_vendorlib}
-
-## pragmas
-%{perl_privlib}/base.pm
-%{_mandir}/man3/base.*
-%{perl_privlib}/constant.pm
-%{_mandir}/man3/constant.*
-%{perl_privlib}/diagnostics.pm
-%{_mandir}/man3/diagnostics.*
-%{perl_privlib}/fields.pm
-%{_mandir}/man3/fields.*
-%{perl_privlib}/integer.pm
-%{_mandir}/man3/integer.*
-%{perl_privlib}/overload.pm
-%{_mandir}/man3/overload.*
-%{perl_privlib}/sort.pm
-%{_mandir}/man3/sort.*
-%{perl_privlib}/strict.pm
-%{_mandir}/man3/strict.*
-%{perl_privlib}/subs.pm
-%{_mandir}/man3/subs.*
-%{perl_privlib}/vars.pm
-%{_mandir}/man3/vars.*
-%{perl_privlib}/warnings*
-%{_mandir}/man3/warnings*
-
-%{perl_archlib}/lib.pm
-%{_mandir}/man3/lib.*
-
-## arch-_IN_dependent modules
-%{perl_privlib}/Auto*
-%{_mandir}/man3/Auto*
-%{perl_privlib}/Carp*
-%{_mandir}/man3/Carp*
-%dir %{perl_privlib}/Class
-%{perl_privlib}/Class/Struct*
-%{_mandir}/man3/Class::Struct*
-%{perl_privlib}/Exporter*
-%{_mandir}/man3/Exporter*
-%{perl_privlib}/English*
-%{_mandir}/man3/English*
-%{perl_privlib}/Getopt*
-%{_mandir}/man3/Getopt*
-%{perl_privlib}/IPC
-%{_mandir}/man3/IPC::Open*
-%{perl_privlib}/SelectSaver.pm
-%{_mandir}/man3/SelectSaver.*
-%{perl_privlib}/Symbol.pm
-%{_mandir}/man3/Symbol.*
-%{perl_privlib}/Tie
-%{_mandir}/man3/Tie::*
-
-## arch-dependent modules
-%{perl_archlib}/Config*
-%{_mandir}/man3/Config*
-%{perl_archlib}/DynaLoader*
-%{perl_archlib}/auto/DynaLoader
-%{_mandir}/man3/DynaLoader*
-%{perl_archlib}/Errno*
-%{_mandir}/man3/Errno*
-%{perl_archlib}/Safe*
-%{_mandir}/man3/Safe*
-%{perl_archlib}/XSLoader*
-%{_mandir}/man3/XSLoader*
-
-%{perl_archlib}/Cwd.*
-%dir %{perl_archlib}/auto/Cwd
-%attr(755,root,root) %{perl_archlib}/auto/Cwd/*.so
-%{perl_archlib}/auto/Cwd/*.bs
-%{_mandir}/man3/Cwd.*
-
-%{perl_archlib}/Fcntl.*
-%dir %{perl_archlib}/auto/Fcntl
-%attr(755,root,root) %{perl_archlib}/auto/Fcntl/*.so
-%{perl_archlib}/auto/Fcntl/*.bs
-%{_mandir}/man3/Fcntl.*
-
-%{perl_privlib}/File*
-%{perl_archlib}/File
-%dir %{perl_archlib}/auto/File
-%dir %{perl_archlib}/auto/File/*/
-%attr(755,root,root) %{perl_archlib}/auto/File/*/*.so
-%{perl_archlib}/auto/File/*/*.bs
-%{_mandir}/man3/File*
-
-%{perl_privlib}/IO
-%{perl_archlib}/IO*
-%dir %{perl_archlib}/auto/IO
-%attr(755,root,root) %{perl_archlib}/auto/IO/*.so
-%{perl_archlib}/auto/IO/*.bs
-%{_mandir}/man3/IO*
-
-%{perl_archlib}/Opcode.*
-%dir %{perl_archlib}/auto/Opcode
-%attr(755,root,root) %{perl_archlib}/auto/Opcode/*.so
-%{perl_archlib}/auto/Opcode/*.bs
-%{_mandir}/man3/Opcode.*
-
-%{perl_privlib}/PerlIO.*
-%{perl_archlib}/PerlIO
-%dir %{perl_archlib}/auto/PerlIO
-%dir %{perl_archlib}/auto/PerlIO/*/
-%attr(755,root,root) %{perl_archlib}/auto/PerlIO/*/*.so
-%{perl_archlib}/auto/PerlIO/*/*.bs
-%{_mandir}/man3/PerlIO.*
-%{_mandir}/man3/PerlIO::[es]*
-%{_mandir}/man3/PerlIO::via.*
-
-%{perl_archlib}/POSIX*
-%dir %{perl_archlib}/auto/POSIX
-%attr(755,root,root) %{perl_archlib}/auto/POSIX/*.so
-%{perl_archlib}/auto/POSIX/*.al
-%{perl_archlib}/auto/POSIX/*.bs
-%{perl_archlib}/auto/POSIX/*.ix
-%{perl_archlib}/auto/POSIX/SigAction
-%{_mandir}/man3/POSIX.*
-
-%{perl_archlib}/Socket.*
-%dir %{perl_archlib}/auto/Socket
-%attr(755,root,root) %{perl_archlib}/auto/Socket/*.so
-%{perl_archlib}/auto/Socket/*.bs
-%{_mandir}/man3/Socket.*
-
-
-%if %{with gdbm}
-%files GDBM_File
-%defattr(644,root,root,755)
-%{perl_archlib}/GDBM_File.*
-%dir %{perl_archlib}/auto/GDBM_File
-%attr(755,root,root) %{perl_archlib}/auto/GDBM_File/*.so
-%{perl_archlib}/auto/GDBM_File/*.bs
-%{_mandir}/man3/GDBM_File.*
-%endif
-
-
-%files devel
-%defattr(644,root,root,755)
-%doc doc-devel/*
-%attr(755,root,root) %{_libdir}/libperl.so
-%{perl_archlib}/CORE/*.h
-%{perl_archlib}/CORE/reentr.inc
-
-# FIXME: Changes file to _docdir (and rm MANIFEST.SKIP?)
-%{perl_privlib}/ExtUtils
-%{_mandir}/man3/ExtUtils*
-%{perl_privlib}/CPAN*
-%{_mandir}/man3/CPAN*
-%{perl_privlib}/DB.*
-%{_mandir}/man3/DB.*
-%{perl_archlib}/O.*
-%{_mandir}/man3/O.*
-
-%{perl_privlib}/B
-%{perl_archlib}/B
-%{perl_archlib}/B.pm
-%dir %{perl_archlib}/auto/B
-%dir %{perl_archlib}/auto/B/C
-%attr(755,root,root) %{perl_archlib}/auto/B/*.so
-%attr(755,root,root) %{perl_archlib}/auto/B/C/*.so
-%{perl_archlib}/auto/B/*.bs
-%{perl_archlib}/auto/B/C/*.bs
-%{_mandir}/man3/B[.:]*
-
-%{perl_archlib}/ByteLoader.*
-%dir %{perl_archlib}/auto/ByteLoader
-%attr(755,root,root) %{perl_archlib}/auto/ByteLoader/*.so
-%{perl_archlib}/auto/ByteLoader/*.bs
-%{_mandir}/man3/ByteLoader.*
-
-%{perl_privlib}/Devel
-%{perl_archlib}/Devel
-%dir %{perl_archlib}/auto/Devel
-%dir %{perl_archlib}/auto/Devel/*/
-%attr(755,root,root) %{perl_archlib}/auto/Devel/*/*.so
-%{perl_archlib}/auto/Devel/*/*.bs
-%{_mandir}/man3/Devel::*
-
-%{perl_archlib}/XS
-%dir %{perl_archlib}/auto/XS
-%dir %{perl_archlib}/auto/XS/*/
-%attr(755,root,root) %{perl_archlib}/auto/XS/*/*.so
-%{perl_archlib}/auto/XS/*/*.bs
-%{_mandir}/man3/XS::*
-
-
-%files doc-pod
-%defattr(644,root,root,755)
-%{perl_privlib}/pod/perl.pod
-%{perl_privlib}/pod/perl[5abceghijklmnopqrstuvwx]*.pod
-%{perl_privlib}/pod/perld[!i]*.pod
-%{perl_privlib}/pod/perlf[!au]*.pod
-
-
-%files doc-reference
-%defattr(644,root,root,755)
-%{_mandir}/man1/perl[5aefghlmnoprstuvwx]*
-%{_mandir}/man1/perlbo*
-%{_mandir}/man1/perlcall.*
-%{_mandir}/man1/perlcheat.*
-%{_mandir}/man1/perlclib.*
-%{_mandir}/man1/perlcompile.*
-%{_mandir}/man1/perld[!o]*
-%{_mandir}/man1/perli[!v]*
-
-%lang(zh_CN) %{_mandir}/zh_CN/man1/perlcn.*
-%lang(ja) %{_mandir}/ja/man1/perljp.*
-%lang(ko) %{_mandir}/ko/man1/perlko.*
-%lang(zh_TW) %{_mandir}/zh_TW/man1/perltw.*
-
-
-%files modules
-%defattr(644,root,root,755)
-%doc doc-modules/*
-%{_examplesdir}/%{name}-modules-%{version}
-
-%{perl_privlib}/unicore
-
-## pragmas
-%{perl_privlib}/attributes.pm
-%{_mandir}/man3/attributes.*
-%{perl_privlib}/autouse.pm
-%{_mandir}/man3/autouse.*
-%{perl_privlib}/big*.pm
-%{_mandir}/man3/big*
-%{perl_privlib}/blib.pm
-%{_mandir}/man3/blib.*
-%{perl_privlib}/bytes.pm
-%{_mandir}/man3/bytes.*
-%{perl_privlib}/charnames.pm
-%{_mandir}/man3/charnames.*
-%{perl_privlib}/filetest.pm
-%{_mandir}/man3/filetest.*
-%{perl_privlib}/if.pm
-%{_mandir}/man3/if.*
-%{perl_privlib}/less.pm
-%{_mandir}/man3/less.*
-%{perl_privlib}/locale.pm
-%{_mandir}/man3/locale.*
-%{perl_privlib}/open.pm
-%{_mandir}/man3/open.*
-%{perl_privlib}/sigtrap.pm
-%{_mandir}/man3/sigtrap.*
-%{perl_privlib}/utf8.pm
-%{_mandir}/man3/utf8.*
-
-%{perl_archlib}/attrs.pm
-%dir %{perl_archlib}/auto/attrs
-%{perl_archlib}/auto/attrs/*.bs
-%attr(755,root,root) %{perl_archlib}/auto/attrs/*.so
-%{_mandir}/man3/attrs.*
-%{perl_archlib}/re.pm
-%dir %{perl_archlib}/auto/re
-%{perl_archlib}/auto/re/*.bs
-%attr(755,root,root) %{perl_archlib}/auto/re/*.so
-%{_mandir}/man3/re.*
-%{perl_archlib}/encoding.pm
-%{_mandir}/man3/encoding.*
-%{perl_archlib}/ops.pm
-%{_mandir}/man3/ops.*
-
-%if %{with threads}
-%{perl_archlib}/threads*
-%dir %{perl_archlib}/auto/threads
-%dir %{perl_archlib}/auto/threads/shared
-%{perl_archlib}/auto/threads/*.bs
-%{perl_archlib}/auto/threads/shared/*.bs
-%attr(755,root,root) %{perl_archlib}/auto/threads/*.so
-%attr(755,root,root) %{perl_archlib}/auto/threads/shared/*.so
-%{_mandir}/man3/t*
-%endif
-
-## old *.pl files
-%{perl_privlib}/*.pl
-
-## *.ph files (could be made a separate package, but an autohelper's support is needed)
-%{perl_archlib}/*.ph
-%{perl_archlib}/asm
-%{perl_archlib}/bits
-%{perl_archlib}/gnu
-%{perl_archlib}/linux
-%{perl_archlib}/sys
-
-%{perl_archlib}/Data
-%dir %{perl_archlib}/auto/Data
-%dir %{perl_archlib}/auto/Data/Dumper
-%attr(755,root,root) %{perl_archlib}/auto/Data/Dumper/*.so
-%{perl_archlib}/auto/Data/Dumper/*.bs
-%{_mandir}/man3/Data*
-
-%{perl_privlib}/Digest.pm
-%{perl_privlib}/Digest
-%{perl_archlib}/Digest
-%dir %{perl_archlib}/auto/Digest
-%dir %{perl_archlib}/auto/Digest/MD5
-%attr(755,root,root) %{perl_archlib}/auto/Digest/MD5/*.so
-%{perl_archlib}/auto/Digest/MD5/*.bs
-%{_mandir}/man3/Digest*
-
-# FIXME: Changes file
-%{perl_privlib}/DBM_Filter*
-%{_mandir}/man3/DBM_Filter*
-
-# FIXME: *.h to devel(?), check out the use for *.e2x files
-%{perl_privlib}/Encode
-%{perl_archlib}/Encode*
-%dir %{perl_archlib}/auto/Encode
-%dir %{perl_archlib}/auto/Encode/*/
-%attr(755,root,root) %{perl_archlib}/auto/Encode/*/*.so
-%{perl_archlib}/auto/Encode/*/*.bs
-%{_mandir}/man3/Encode*
-
-# FIXME: README and Changes files
-%{perl_privlib}/Filter
-%{perl_archlib}/Filter
-%dir %{perl_archlib}/auto/Filter
-%dir %{perl_archlib}/auto/Filter/Util
-%dir %{perl_archlib}/auto/Filter/Util/Call
-%attr(755,root,root) %{perl_archlib}/auto/Filter/Util/Call/*.so
-%{perl_archlib}/auto/Filter/Util/Call/*.bs
-%{_mandir}/man3/Filter*
-
-%{perl_privlib}/I18N
-%{perl_archlib}/I18N
-%dir %{perl_archlib}/auto/I18N
-%dir %{perl_archlib}/auto/I18N/*/
-%attr(755,root,root) %{perl_archlib}/auto/I18N/*/*.so
-%{perl_archlib}/auto/I18N/*/*.bs
-%{perl_archlib}/auto/I18N/*/*.ix
-%{_mandir}/man3/I18N::*
-
-%{perl_archlib}/IPC
-%dir %{perl_archlib}/auto/IPC
-%dir %{perl_archlib}/auto/IPC/*/
-%attr(755,root,root) %{perl_archlib}/auto/IPC/*/*.so
-%{perl_archlib}/auto/IPC/*/*.bs
-%{_mandir}/man3/IPC::[MS]*
-
-%{perl_archlib}/List
-%dir %{perl_archlib}/auto/List
-%dir %{perl_archlib}/auto/List/*/
-%attr(755,root,root) %{perl_archlib}/auto/List/*/*.so
-%{perl_archlib}/auto/List/*/*.bs
-%{_mandir}/man3/List::*
-
-%{perl_archlib}/MIME
-%dir %{perl_archlib}/auto/MIME
-%dir %{perl_archlib}/auto/MIME/Base64
-%attr(755,root,root) %{perl_archlib}/auto/MIME/Base64/*.so
-%{perl_archlib}/auto/MIME/Base64/*.bs
-%{_mandir}/man3/MIME::*
-
-%{perl_archlib}/SDBM_File.*
-%dir %{perl_archlib}/auto/SDBM_File
-%attr(755,root,root) %{perl_archlib}/auto/SDBM_File/*.so
-%{perl_archlib}/auto/SDBM_File/*.bs
-%{_mandir}/man3/SDBM_File.*
-
-%{perl_archlib}/Storable.*
-%dir %{perl_archlib}/auto/Storable
-%attr(755,root,root) %{perl_archlib}/auto/Storable/*.so
-%{perl_archlib}/auto/Storable/*.al
-%{perl_archlib}/auto/Storable/*.bs
-%{perl_archlib}/auto/Storable/*.ix
-%{_mandir}/man3/Storable.*
-
-%{perl_archlib}/Sys
-%dir %{perl_archlib}/auto/Sys
-%dir %{perl_archlib}/auto/Sys/*/
-%attr(755,root,root) %{perl_archlib}/auto/Sys/*/*.so
-%{perl_archlib}/auto/Sys/*/*.bs
-%{perl_archlib}/auto/Sys/*/*.ix
-%{_mandir}/man3/Sys::*
-
-%{perl_archlib}/Time
-%dir %{perl_archlib}/auto/Time
-%dir %{perl_archlib}/auto/Time/HiRes
-%attr(755,root,root) %{perl_archlib}/auto/Time/HiRes/*.so
-%{perl_archlib}/auto/Time/HiRes/*.bs
-%{_mandir}/man3/Time::HiRes*
-
-%dir %{perl_privlib}/Unicode
-%{perl_privlib}/Unicode/*.pm
-%{perl_archlib}/Unicode
-%dir %{perl_archlib}/auto/Unicode
-%dir %{perl_archlib}/auto/Unicode/*
-%attr(755,root,root) %{perl_archlib}/auto/Unicode/*/*.so
-%{perl_archlib}/auto/Unicode/*/*.bs
-%{_mandir}/man3/Unicode::*
-
-%{perl_privlib}/AnyDBM*
-%{_mandir}/man3/AnyDBM*
-%{perl_privlib}/Attribute
-%{_mandir}/man3/Attribute*
-%{perl_privlib}/Benchmark*
-%{_mandir}/man3/Benchmark*
-%{perl_privlib}/CGI*
-%{_mandir}/man3/CGI*
-%{perl_privlib}/Class/ISA*
-%{_mandir}/man3/Class::ISA*
-%{perl_privlib}/DirHandle*
-%{_mandir}/man3/DirHandle*
-%{perl_privlib}/Dumpvalue.*
-%{_mandir}/man3/Dumpvalue.*
-%{perl_privlib}/Env.*
-%{_mandir}/man3/Env.*
-%{perl_privlib}/Fatal.*
-%{_mandir}/man3/Fatal.*
-%{perl_privlib}/FindBin.*
-%{_mandir}/man3/FindBin.*
-%{perl_privlib}/Hash
-%{_mandir}/man3/Hash::*
-# FIXME: README and Changes files
-%{perl_privlib}/Locale
-%{_mandir}/man3/Locale::*
-%{perl_privlib}/Math
-%{_mandir}/man3/Math::*
-%{perl_privlib}/Memoize*
-%{_mandir}/man3/Memoize*
-%{perl_privlib}/NEXT.pm
-%{_mandir}/man3/NEXT*
-# FIXME: README and Changes files
-%dir %{perl_privlib}/Net
-%{perl_privlib}/Net/*.eg
-%{perl_privlib}/Net/*.pm
-%{perl_privlib}/Net/FTP
-%{_mandir}/man3/Net::*
-%{perl_privlib}/PerlIO
-%{_mandir}/man3/PerlIO::via::*
-%{perl_privlib}/Pod
-%{_mandir}/man3/Pod::*
-%{perl_privlib}/Scalar
-%{_mandir}/man3/Scalar::*
-%{perl_privlib}/Search
-%{_mandir}/man3/Search::*
-%{perl_privlib}/SelfLoader.*
-%{_mandir}/man3/SelfLoader.*
-%{perl_privlib}/Shell.*
-%{_mandir}/man3/Shell.*
-# FIXME: README and Changes files
-%{perl_privlib}/Switch.*
-%{_mandir}/man3/Switch.*
-# FIXME: README and Changes files
-%{perl_privlib}/Term
-%{_mandir}/man3/Term::*
-# FIXME: README and Changes files
-%{perl_privlib}/Test*
-%{_mandir}/man3/Test*
-%{perl_privlib}/Text
-%{_mandir}/man3/Text::*
-%if %{with threads}
-%{perl_privlib}/Thread*
-%{_mandir}/man3/Thread*
-%endif
-%{perl_privlib}/Time
-%{_mandir}/man3/Time::[La-z]*
-# XXX: to perl-base?
-%{perl_privlib}/UNIVERSAL.*
-%{_mandir}/man3/UNIVERSAL.*
-# FIXME: README and Changes files
-%{perl_privlib}/User
-%{_mandir}/man3/User::*
-
-
-%files perldoc
-%defattr(644,root,root,755)
-%attr(755,root,root) %{_bindir}/perldoc
-%dir %{perl_privlib}/pod
-%{perl_privlib}/pod/perldiag.pod
-%{perl_privlib}/pod/perlfaq*.pod
-%{perl_privlib}/pod/perlfunc.pod
-%{_mandir}/man1/perldoc.*
-
-
-%files -n sperl
-%defattr(644,root,root,755)
-%attr(4755,root,root) %{_bindir}/sperl%{version}
-%attr(755,root,root)  %{_bindir}/suidperl
-
-%files tools
-%defattr(644,root,root,755)
-%attr(755,root,root) %{_bindir}/a2p
-%{_mandir}/man1/a2p.*
-%attr(755,root,root) %{_bindir}/cpan
-%{_mandir}/man1/cpan.*
-%attr(755,root,root) %{_bindir}/find2perl
-%{_mandir}/man1/find2perl.*
-%attr(755,root,root) %{_bindir}/instmodsh
-%attr(755,root,root) %{_bindir}/libnetcfg
-%{_mandir}/man1/libnetcfg.*
-%attr(755,root,root) %{_bindir}/piconv
-%{_mandir}/man1/piconv.*
-%attr(755,root,root) %{_bindir}/psed
-%attr(755,root,root) %{_bindir}/s2p
-%{_mandir}/man1/psed.*
-%{_mandir}/man1/s2p.*
-
-%files tools-devel
-%defattr(644,root,root,755)
-%attr(755,root,root) %{_bindir}/perlbug
-%{_mandir}/man1/perlbug.*
-%attr(755,root,root) %{_bindir}/c2ph
-%attr(755,root,root) %{_bindir}/pstruct
-%{_mandir}/man1/c2ph.*
-%{_mandir}/man1/pstruct.*
-%attr(755,root,root) %{_bindir}/dprofpp
-%{_mandir}/man1/dprofpp.*
-%attr(755,root,root) %{_bindir}/enc2xs
-%{_mandir}/man1/enc2xs.*
-%attr(755,root,root) %{_bindir}/h2ph
-%{_mandir}/man1/h2ph.*
-%attr(755,root,root) %{_bindir}/h2xs
-%{_mandir}/man1/h2xs.*
-%attr(755,root,root) %{_bindir}/perlcc
-%{_mandir}/man1/perlcc.*
-%attr(755,root,root) %{_bindir}/perlivp
-%{_mandir}/man1/perlivp.*
-%attr(755,root,root) %{_bindir}/pl2pm
-%{_mandir}/man1/pl2pm.*
-%attr(755,root,root) %{_bindir}/splain
-%{_mandir}/man1/splain.*
-%attr(755,root,root) %{_bindir}/xsubpp
-%{_mandir}/man1/xsubpp.*
-
-%files tools-pod
-%defattr(644,root,root,755)
-%attr(755,root,root) %{_bindir}/pod*
-%{_mandir}/man1/pod*
-
-%if %{with microperl}
-%files -n microperl
-%defattr(644,root,root,755)
-%doc README.micro Todo.micro
-%attr(755,root,root) %{_bindir}/microperl
-%endif

diff --git a/perl_580-INC.patch b/perl_580-INC.patch
deleted file mode 100644 (file)
index 466a02e..0000000
--- a/perl_580-INC.patch
+++ /dev/null
@@ -1,96 +0,0 @@
-#
-# WARNING:  this patch is devoted to a specific configuration
-#
---- perl.c~    Tue Jul  9 19:41:43 2002
-+++ perl.c     Fri Mar 14 22:54:52 2003
-@@ -3679,39 +3679,6 @@
-     incpush(APPLLIB_EXP, TRUE, TRUE);
- #endif
- 
--#ifdef ARCHLIB_EXP
--    incpush(ARCHLIB_EXP, FALSE, FALSE);
--#endif
--#ifdef MACOS_TRADITIONAL
--    {
--      Stat_t tmpstatbuf;
--      SV * privdir = NEWSV(55, 0);
--      char * macperl = PerlEnv_getenv("MACPERL");
--      
--      if (!macperl)
--          macperl = "";
--      
--      Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
--      if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
--          incpush(SvPVX(privdir), TRUE, FALSE);
--      Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
--      if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
--          incpush(SvPVX(privdir), TRUE, FALSE);
--      
--      SvREFCNT_dec(privdir);
--    }
--    if (!PL_tainting)
--      incpush(":", FALSE, FALSE);
--#else
--#ifndef PRIVLIB_EXP
--#  define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
--#endif
--#if defined(WIN32)
--    incpush(PRIVLIB_EXP, TRUE, FALSE);
--#else
--    incpush(PRIVLIB_EXP, FALSE, FALSE);
--#endif
--
- #ifdef SITEARCH_EXP
-     /* sitearch is always relative to sitelib on Windows for
-      * DLL-based path intuition to work correctly */
-@@ -3729,7 +3696,7 @@
- #endif
- 
- #ifdef SITELIB_STEM /* Search for version-specific dirs below here */
--    incpush(SITELIB_STEM, FALSE, TRUE);
-+/*    incpush(SITELIB_STEM, FALSE, TRUE); */
- #endif
- 
- #ifdef PERL_VENDORARCH_EXP
-@@ -3749,7 +3716,40 @@
- #endif
- 
- #ifdef PERL_VENDORLIB_STEM /* Search for version-specific dirs below here */
--    incpush(PERL_VENDORLIB_STEM, FALSE, TRUE);
-+/*    incpush(PERL_VENDORLIB_STEM, FALSE, TRUE); */
-+#endif
-+
-+#ifdef ARCHLIB_EXP
-+    incpush(ARCHLIB_EXP, FALSE, FALSE);
-+#endif
-+#ifdef MACOS_TRADITIONAL
-+    {
-+      Stat_t tmpstatbuf;
-+      SV * privdir = NEWSV(55, 0);
-+      char * macperl = PerlEnv_getenv("MACPERL");
-+      
-+      if (!macperl)
-+          macperl = "";
-+      
-+      Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
-+      if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
-+          incpush(SvPVX(privdir), TRUE, FALSE);
-+      Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
-+      if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
-+          incpush(SvPVX(privdir), TRUE, FALSE);
-+      
-+      SvREFCNT_dec(privdir);
-+    }
-+    if (!PL_tainting)
-+      incpush(":", FALSE, FALSE);
-+#else
-+#ifndef PRIVLIB_EXP
-+#  define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
-+#endif
-+#if defined(WIN32)
-+    incpush(PRIVLIB_EXP, TRUE, FALSE);
-+#else
-+    incpush(PRIVLIB_EXP, FALSE, FALSE);
- #endif
- 
- #ifdef PERL_OTHERLIBDIRS

diff --git a/perl_580-MakeMaker.patch b/perl_580-MakeMaker.patch
deleted file mode 100644 (file)
index 7fd8c9e..0000000
--- a/perl_580-MakeMaker.patch
+++ /dev/null
@@ -1,47 +0,0 @@
---- lib/ExtUtils/MM_Unix.pm.orig       Tue Feb 25 16:03:41 2003
-+++ lib/ExtUtils/MM_Unix.pm    Tue Feb 25 16:19:23 2003
-@@ -499,7 +499,7 @@
-         # pathnames can have sharp signs in them; escape them so
-         # make doesn't think it is a comment-start character.
-         $self->{$tmp} =~ s/#/\\#/g;
--      push @m, "$tmp = $self->{$tmp}\n";
-+      push @m, "$tmp = " . ($tmp =~ /^INSTALL(?!DIRS\b)/ ? '$(DESTDIR)' : '') . "$self->{$tmp}\n";
-     }
- 
-     push @m, qq{
-@@ -549,7 +549,7 @@
-             /) 
-     {
-       next unless defined $self->{$tmp};
--      push @m, "$tmp = $self->{$tmp}\n";
-+      push @m, "$tmp = " . ($tmp =~ /^INSTALL/ ? '$(DESTDIR)' : '') . "$self->{$tmp}\n";
-     }
- 
-     for $tmp (qw(
-@@ -1884,9 +1884,9 @@
- 
-     if( $Config{usevendorprefix} ) {
-         $Config_Override{installvendorman1dir} =
--          File::Spec->catdir($Config{vendorprefixexp}, 'man', 'man$(MAN1EXT)');
-+          File::Spec->catdir($Config{vendorprefixexp}, 'share', 'man', 'man1');
-         $Config_Override{installvendorman3dir} =
--          File::Spec->catdir($Config{vendorprefixexp}, 'man', 'man$(MAN3EXT)');
-+          File::Spec->catdir($Config{vendorprefixexp}, 'share', 'man', 'man3');
-     }
-     else {
-         $Config_Override{installvendorman1dir} = '';
-@@ -1905,12 +1905,12 @@
-     # it up.
-     unless( $Config{installsiteman1dir} ) {
-         $Config_Override{installsiteman1dir} = 
--          File::Spec->catdir($sprefix, 'man', 'man$(MAN1EXT)');
-+          File::Spec->catdir($sprefix, 'share', 'man', 'man1');
-     }
- 
-     unless( $Config{installsiteman3dir} ) {
-         $Config_Override{installsiteman3dir} = 
--          File::Spec->catdir($sprefix, 'man', 'man$(MAN3EXT)');
-+          File::Spec->catdir($sprefix, 'share', 'man', 'man3');
-     }
- 
-     unless( $Config{installsitebin} ) {

diff --git a/perl_580-Safe.patch b/perl_580-Safe.patch
deleted file mode 100644 (file)
index 5bc7dca..0000000
--- a/perl_580-Safe.patch
+++ /dev/null
@@ -1,83 +0,0 @@
---- perl-5.8.0/ext/Opcode/Safe.pm      Sat Jun  1 17:03:08 2002
-+++ Safe-2.09/Safe.pm  Sun Oct  6 12:09:03 2002
-@@ -3,7 +3,7 @@
- use 5.003_11;
- use strict;
- 
--our $VERSION = "2.07";
-+$Safe::VERSION = "2.09";
- 
- use Carp;
- 
-@@ -47,7 +47,7 @@
-     # the whole glob *_ rather than $_ and @_ separately, otherwise
-     # @_ in non default packages within the compartment don't work.
-     $obj->share_from('main', $default_share);
--    Opcode::_safe_pkg_prep($obj->{Root});
-+    Opcode::_safe_pkg_prep($obj->{Root}) if($Opcode::VERSION > 1.04);
-     return $obj;
- }
- 
-@@ -155,7 +155,7 @@
-     my $no_record = shift || 0;
-     my $root = $obj->root();
-     croak("vars not an array ref") unless ref $vars eq 'ARRAY';
--      no strict 'refs';
-+    no strict 'refs';
-     # Check that 'from' package actually exists
-     croak("Package \"$pkg\" does not exist")
-       unless keys %{"$pkg\::"};
-@@ -190,7 +190,7 @@
- sub share_redo {
-     my $obj = shift;
-     my $shares = \%{$obj->{Shares} ||= {}};
--      my($var, $pkg);
-+    my($var, $pkg);
-     while(($var, $pkg) = each %$shares) {
-       # warn "share_redo $pkg\:: $var";
-       $obj->share_from($pkg,  [ $var ], 1);
-@@ -214,11 +214,11 @@
-     # Create anon sub ref in root of compartment.
-     # Uses a closure (on $expr) to pass in the code to be executed.
-     # (eval on one line to keep line numbers as expected by caller)
--      my $evalcode = sprintf('package %s; sub { eval $expr; }', $root);
-+    my $evalcode = sprintf('package %s; sub { @_ = (); eval $expr; }', $root);
-     my $evalsub;
- 
--      if ($strict) { use strict; $evalsub = eval $evalcode; }
--      else         {  no strict; $evalsub = eval $evalcode; }
-+    if ($strict) { use strict; $evalsub = eval $evalcode; }
-+    else         {  no strict; $evalsub = eval $evalcode; }
- 
-     return Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
- }
-@@ -228,7 +228,7 @@
-     my $root = $obj->{Root};
- 
-     my $evalsub = eval
--          sprintf('package %s; sub { do $file }', $root);
-+          sprintf('package %s; sub { @_ = (); do $file }', $root);
-     return Opcode::_safe_call_sv($root, $obj->{Mask}, $evalsub);
- }
- 
-@@ -383,8 +383,9 @@
- This is almost identical to exporting variables using the L<Exporter>
- module.
- 
--Each NAME must be the B<name> of a variable, typically with the leading
--type identifier included. A bareword is treated as a function name.
-+Each NAME must be the B<name> of a non-lexical variable, typically
-+with the leading type identifier included. A bareword is treated as a
-+function name.
- 
- Examples of legal names are '$foo' for a scalar, '@foo' for an
- array, '%foo' for a hash, '&foo' or 'foo' for a subroutine and '*foo'
-@@ -426,7 +427,7 @@
- Any attempt by the code in STRING to use an operator which is not permitted
- by the compartment will cause an error (at run-time of the main program
- but at compile-time for the code in STRING).  The error is of the form
--"%s trapped by operation mask operation...".
-+"'%s' trapped by operation mask...".
- 
- If an operation is trapped in this way, then the code in STRING will
- not be executed. If such a trapped operation occurs or any other

diff --git a/perl_580-errno_h-parsing.patch b/perl_580-errno_h-parsing.patch
deleted file mode 100644 (file)
index 7b490ba..0000000
--- a/perl_580-errno_h-parsing.patch
+++ /dev/null
@@ -1,17 +0,0 @@
-diff -urN perl-5.6.1.orig/ext/Errno/Errno_pm.PL perl-5.6.1/ext/Errno/Errno_pm.PL
---- perl-5.6.1.orig/ext/Errno/Errno_pm.PL      Sun Apr  8 08:09:16 2001
-+++ perl-5.6.1/ext/Errno/Errno_pm.PL   Thu Apr 12 20:58:53 2001
-@@ -37,6 +37,13 @@
-             warn "Cannot open '$file'";
-             return;
-       }     
-+    } elsif ($^O eq 'linux') {
-+      # With the -dM option option, gcc outputs every #define's it finds
-+      my $cpp = default_cpp();
-+      unless(open(FH, "$cpp -dM < $file |")) {
-+            warn "Cannot open '$file'";
-+            return;
-+      }
-     } else {
-       unless(open(FH,"< $file")) {
-           # This file could be a temporary file created by cppstdin

diff --git a/perl_580-find_provides.patch b/perl_580-find_provides.patch
deleted file mode 100644 (file)
index 8b45315..0000000
--- a/perl_580-find_provides.patch
+++ /dev/null
@@ -1,27 +0,0 @@
-diff -urN perl-5.6.1/find-perl-provides perl-5.6.1-grabba/find-perl-provides
---- perl-5.6.1/find-perl-provides      Thu Jan  1 00:00:00 1970
-+++ perl-5.6.1-grabba/find-perl-provides       Sun Mar  3 14:41:39 2002
-@@ -0,0 +1,23 @@
-+#!/bin/sh
-+ulimit -c 0
-+
-+export LD_LIBRARY_PATH="FPPATH"
-+
-+filelist=`sed "s/['\"]/\\\&/g"`
-+if [ -f __rpm_noautoprovfiles ] ; then
-+      for i in `cat __rpm_noautoprovfiles`; do
-+              filelist=`echo $filelist | sed "s![[:space:]]*$i[[:space:]]*!!g"`
-+      done
-+fi
-+
-+
-+echo $filelist|/usr/lib/rpm/find-provides
-+provides_perl=`FPPATH/find-perl.prov $filelist`
-+if [ -f __rpm_noautoprov ] ; then
-+      for i in `cat __rpm_noautoprov`; do
-+              provides_perl=`echo $provides_perl | sed "s!\<$i[[:space:]]*!!g"`
-+      done
-+fi
-+
-+echo "$provides_perl"
-+

diff --git a/perl_580-microperl_uconfig.patch b/perl_580-microperl_uconfig.patch
deleted file mode 100644 (file)
index 93340bd..0000000
--- a/perl_580-microperl_uconfig.patch
+++ /dev/null
@@ -1,65 +0,0 @@
---- perl-5.8.0.orig/uconfig.sh Sat Jun  1 17:03:51 2002
-+++ perl-5.8.0/uconfig.sh      Fri Mar 14 23:54:47 2003
-@@ -5,11 +5,7 @@
- afsroot='/afs'
- alignbytes='4'
- apiversion='5.005'
--archlib='/usr/local/lib/perl5/5.7/unknown'
--archlibexp='/usr/local/lib/perl5/5.7/unknown'
--archname='unknown'
- asctime_r_proto='0'
--bin='/usr/local/bin'
- byteorder='1234'
- castflags='0'
- charsize='1'
-@@ -32,7 +32,7 @@
- d_access='undef'
- d_accessx='undef'
- d_alarm='undef'
--d_archlib='undef'
-+d_archlib='define'
- d_asctime_r='undef'
- d_atolf='undef'
- d_atoll='undef'
-@@ -588,12 +584,9 @@
- obj_ext='.o'
- optimize='-O2'
- orderlib='false'
--osname='unknown'
- phostname='hostname'
- pidtype=int
- pm_apiversion='5.005'
--privlib='/usr/local/lib/perl5/5.7'
--privlibexp='/usr/local/lib/perl5/5.7'
- procselfexe=''
- prototype='undef'
- ptrsize='4'
-@@ -620,8 +613,6 @@
- sPRIx64='"Lx"'
- sSCNfldbl='"llf"'
- sched_yield='sched_yield()'
--scriptdir='/usr/local/bin'
--scriptdirexp='/usr/local/bin'
- seedfunc='srand'
- selectminbits='32'
- selecttype=int
---- perl-5.8.0.orig/Makefile.micro     Sat Jun  1 17:02:47 2002
-+++ perl-5.8.0/Makefile.micro  Sat Mar 15 00:11:33 2003
-@@ -34,10 +34,16 @@
- distclean:    clean
-       -rm -f uconfig.h
- 
-+# not really autoconfigured variables (PLD hack, requires patched uconfig.sh)
-+NRACV = archlib=$(archlib) archlibexp=$(archlibexp) privlib=$(privlib) \
-+      privlibexp=$(privlibexp) archname=$(archname) osname=$(osname) \
-+      bin=$(bin) scriptdir=$(scriptdir) scriptdirexp=$(scriptdirexp)
-+
-+
- # The microconfiguration.
- 
- uconfig.h:    uconfig.sh config_h.SH
--      CONFIG_SH=uconfig.sh CONFIG_H=uconfig.h sh ./config_h.SH
-+      CONFIG_SH=uconfig.sh CONFIG_H=uconfig.h $(NRACV) sh ./config_h.SH
- 
- # Do not regenerate perly.c and perly.h.
- 

diff --git a/perl_580-noroot_install.patch b/perl_580-noroot_install.patch
deleted file mode 100644 (file)
index 231da6a..0000000
--- a/perl_580-noroot_install.patch
+++ /dev/null
@@ -1,20 +0,0 @@
---- perl-5.6.0/installperl.pius        Wed Mar  8 13:22:41 2000
-+++ perl-5.6.0/installperl     Sun Jul  2 13:36:20 2000
-@@ -143,8 +143,6 @@
- 
- # Do some quick sanity checks.
- 
--if ($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, 1, 0777);
- -d $installbin                || $nonono || die "$installbin is not a directory\n";
-@@ -224,7 +222,7 @@
- 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");
-+    chmod(0755, "$installbin/s$perl_verbase$ver$exe_ext");
- }
- 
- # Install library files.

diff --git a/perl_580-perluniintro.patch b/perl_580-perluniintro.patch
deleted file mode 100644 (file)
index 37676a9..0000000
--- a/perl_580-perluniintro.patch
+++ /dev/null
@@ -1,11 +0,0 @@
---- pod/perluniintro.pod.orig  Thu Feb  6 12:45:57 2003
-+++ pod/perluniintro.pod       Thu Feb  6 12:46:10 2003
-@@ -363,7 +363,7 @@
- 
- With the C<open> pragma you can use the C<:locale> layer
- 
--    $ENV{LC_ALL} = $ENV{LANG} = 'ru_RU.KOI8-R';
-+    BEGIN { $ENV{LC_ALL} = $ENV{LANG} = 'ru_RU.KOI8-R'; }
-     # the :locale will probe the locale environment variables like LC_ALL
-     use open OUT => ':locale'; # russki parusski
-     open(O, ">koi8");

diff --git a/perl_580-soname.patch b/perl_580-soname.patch
deleted file mode 100644 (file)
index 6f9aee7..0000000
--- a/perl_580-soname.patch
+++ /dev/null
@@ -1,14 +0,0 @@
---- perl-5.6.1/Makefile.SH~    Sun Apr 15 18:20:15 2001
-+++ perl-5.6.1/Makefile.SH     Sun Apr 15 18:36:49 2001
-@@ -429,7 +429,8 @@
-       case "$useshrplib" in
-       true)
--              $spitshell >>Makefile <<'!NO!SUBS!'
--      $(LD) -o $@ $(SHRPLDFLAGS) perl$(OBJ_EXT) $(obj)
--!NO!SUBS!
-+              $spitshell >>Makefile <<!GROK!THIS!
-+      \$(LD) -o \$(LIBPERL).$version \$(SHRPLDFLAGS) -Wl,-soname,\$(LIBPERL).$version perl\$(OBJ_EXT) \$(obj)
-+      ln -sf \$(LIBPERL).$version \$@
-+!GROK!THIS!
-               case "$osname" in
-               aix)

diff --git a/perl_580-use-LD_PRELOAD-for-libperl.so.patch b/perl_580-use-LD_PRELOAD-for-libperl.so.patch
deleted file mode 100644 (file)
index 105f911..0000000
--- a/perl_580-use-LD_PRELOAD-for-libperl.so.patch
+++ /dev/null
@@ -1,16 +0,0 @@
---- perl-5.6.0/Makefile.SH.pix Sat Mar 11 11:05:24 2000
-+++ perl-5.6.0/Makefile.SH     Fri Dec 15 07:29:42 2000
-@@ -30,12 +30,7 @@
- true)
-       # Prefix all runs of 'miniperl' and 'perl' with 
-       # $ldlibpth so that ./perl finds *this* shared libperl.
--      case "$LD_LIBRARY_PATH" in
--      '')
--              ldlibpth="LD_LIBRARY_PATH=`pwd`";;
--      *)
--              ldlibpth="LD_LIBRARY_PATH=`pwd`:${LD_LIBRARY_PATH}";;
--      esac
-+        ldlibpth="LD_PRELOAD=`pwd`/libperl.so"
- 
-       pldlflags="$cccdlflags"
-       case "${osname}${osvers}" in

diff --git a/perl_581-INC.patch b/perl_581-INC.patch
deleted file mode 100644 (file)
index 99e16c3..0000000
--- a/perl_581-INC.patch
+++ /dev/null
@@ -1,93 +0,0 @@
---- perl-5.8.1/perl.c.orig     Fri Aug 22 12:30:22 2003
-+++ perl-5.8.1/perl.c  Fri Aug 22 12:32:51 2003
-@@ -3937,39 +3937,6 @@
-     incpush(APPLLIB_EXP, TRUE, TRUE, TRUE);
- #endif
- 
--#ifdef ARCHLIB_EXP
--    incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
--#endif
--#ifdef MACOS_TRADITIONAL
--    {
--      Stat_t tmpstatbuf;
--      SV * privdir = NEWSV(55, 0);
--      char * macperl = PerlEnv_getenv("MACPERL");
--      
--      if (!macperl)
--          macperl = "";
--      
--      Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
--      if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
--          incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
--      Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
--      if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
--          incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
--      
--      SvREFCNT_dec(privdir);
--    }
--    if (!PL_tainting)
--      incpush(":", FALSE, FALSE, TRUE);
--#else
--#ifndef PRIVLIB_EXP
--#  define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
--#endif
--#if defined(WIN32)
--    incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE);
--#else
--    incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
--#endif
--
- #ifdef SITEARCH_EXP
-     /* sitearch is always relative to sitelib on Windows for
-      * DLL-based path intuition to work correctly */
-@@ -3988,7 +3955,7 @@
- #endif
- 
- #ifdef SITELIB_STEM /* Search for version-specific dirs below here */
--    incpush(SITELIB_STEM, FALSE, TRUE, TRUE);
-+/*  incpush(SITELIB_STEM, FALSE, TRUE, TRUE); */
- #endif
- 
- #ifdef PERL_VENDORARCH_EXP
-@@ -4008,7 +3975,40 @@
- #endif
- 
- #ifdef PERL_VENDORLIB_STEM /* Search for version-specific dirs below here */
--    incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE);
-+/*  incpush(PERL_VENDORLIB_STEM, FALSE, TRUE, TRUE); */
-+#endif
-+
-+#ifdef ARCHLIB_EXP
-+    incpush(ARCHLIB_EXP, FALSE, FALSE, TRUE);
-+#endif
-+#ifdef MACOS_TRADITIONAL
-+    {
-+      Stat_t tmpstatbuf;
-+      SV * privdir = NEWSV(55, 0);
-+      char * macperl = PerlEnv_getenv("MACPERL");
-+      
-+      if (!macperl)
-+          macperl = "";
-+      
-+      Perl_sv_setpvf(aTHX_ privdir, "%slib:", macperl);
-+      if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
-+          incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
-+      Perl_sv_setpvf(aTHX_ privdir, "%ssite_perl:", macperl);
-+      if (PerlLIO_stat(SvPVX(privdir), &tmpstatbuf) >= 0 && S_ISDIR(tmpstatbuf.st_mode))
-+          incpush(SvPVX(privdir), TRUE, FALSE, TRUE);
-+      
-+      SvREFCNT_dec(privdir);
-+    }
-+    if (!PL_tainting)
-+      incpush(":", FALSE, FALSE, TRUE);
-+#else
-+#ifndef PRIVLIB_EXP
-+#  define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
-+#endif
-+#if defined(WIN32)
-+    incpush(PRIVLIB_EXP, TRUE, FALSE, TRUE);
-+#else
-+    incpush(PRIVLIB_EXP, FALSE, FALSE, TRUE);
- #endif
- 
- #ifdef PERL_OTHERLIBDIRS

diff --git a/perl_581-noroot_install.patch b/perl_581-noroot_install.patch
deleted file mode 100644 (file)
index 47a5047..0000000
--- a/perl_581-noroot_install.patch
+++ /dev/null
@@ -1,20 +0,0 @@
---- perl-5.8.1/installperl.orig        Fri Aug 22 12:26:11 2003
-+++ perl-5.8.1/installperl     Fri Aug 22 12:26:28 2003
-@@ -226,7 +226,7 @@
- 
- # 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,7 @@
- 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");
-+    chmod(0755, "$installbin/s$perl_verbase$ver$exe_ext");
- }
- 
- # Install library files.

diff --git a/perl_581-soname.patch b/perl_581-soname.patch
deleted file mode 100644 (file)
index 5632c81..0000000
--- a/perl_581-soname.patch
+++ /dev/null
@@ -1,22 +0,0 @@
---- perl-5.8.1/Makefile.SH.orig        Tue Aug 19 18:42:51 2003
-+++ perl-5.8.1/Makefile.SH     Fri Aug 22 14:33:39 2003
-@@ -494,13 +489,15 @@
- Makefile: $Makefile_s
- !GROK!THIS!
- else
--      $spitshell >>Makefile <<'!NO!SUBS!'
--$(LIBPERL): $& perl$(OBJ_EXT) $(obj) $(LIBPERLEXPORT)
-+      $spitshell >>Makefile <<!NO!SUBS!
-+LIBPERL_SONAME=\$(LIBPERL).$version
-+\$(LIBPERL): \$& perl\$(OBJ_EXT) \$(obj) \$(LIBPERLEXPORT)
- !NO!SUBS!
-       case "$useshrplib" in
-       true)
--              $spitshell >>Makefile <<'!NO!SUBS!'
--      $(LD) -o $@ $(SHRPLDFLAGS) perl$(OBJ_EXT) $(obj) $(libs)
-+              $spitshell >>Makefile <<!NO!SUBS!
-+      \$(LD) -o \$(LIBPERL_SONAME) \$(SHRPLDFLAGS) -Wl,-soname,\$(LIBPERL_SONAME) perl\$(OBJ_EXT) \$(obj) \$(libs)
-+      ln -sf \$(LIBPERL_SONAME) \$@
- !NO!SUBS!
-               case "$osname" in
-               aix)

diff --git a/perl_584-microperl_uconfig.patch b/perl_584-microperl_uconfig.patch
deleted file mode 100644 (file)
index 766079e..0000000
--- a/perl_584-microperl_uconfig.patch
+++ /dev/null
@@ -1,64 +0,0 @@
---- perl-5.8.4/uconfig.sh.orig 2004-04-26 17:55:48.615159968 +0200
-+++ perl-5.8.4/uconfig.sh      2004-04-26 18:17:25.435013384 +0200
-@@ -5,11 +5,7 @@
- afsroot='/afs'
- alignbytes='4'
- apiversion='5.005'
--archlib='/usr/local/lib/perl5/5.7/unknown'
--archlibexp='/usr/local/lib/perl5/5.7/unknown'
--archname='unknown'
- asctime_r_proto='0'
--bin='/usr/local/bin'
- byteorder='1234'
- castflags='0'
- charsize='1'
-@@ -37,7 +33,7 @@
- d_accessx='undef'
- d_aintl='undef'
- d_alarm='undef'
--d_archlib='undef'
-+d_archlib='define'
- d_asctime_r='undef'
- d_atolf='undef'
- d_atoll='undef'
-@@ -595,11 +591,8 @@
- obj_ext='.o'
- optimize='-O2'
- orderlib='false'
--osname='unknown'
- phostname='hostname'
- pidtype=int
--privlib='/usr/local/lib/perl5/5.7'
--privlibexp='/usr/local/lib/perl5/5.7'
- procselfexe=''
- prototype='undef'
- ptrsize='4'
-@@ -626,8 +619,6 @@
- sPRIx64='"Lx"'
- sSCNfldbl='"llf"'
- sched_yield='sched_yield()'
--scriptdir='/usr/local/bin'
--scriptdirexp='/usr/local/bin'
- seedfunc='srand'
- selectminbits='32'
- selecttype=int
---- perl-5.8.4/Makefile.micro.orig     2003-08-12 14:58:29.000000000 +0200
-+++ perl-5.8.4/Makefile.micro  2004-04-26 18:03:04.242934480 +0200
-@@ -35,10 +35,16 @@
- distclean:    clean
-       -rm -f uconfig.h
- 
-+# not really autoconfigured variables (PLD hack, requires patched uconfig.sh)
-+NRACV = archlib=$(archlib) archlibexp=$(archlibexp) privlib=$(privlib) \
-+      privlibexp=$(privlibexp) archname=$(archname) osname=$(osname) \
-+      bin=$(bin) scriptdir=$(scriptdir) scriptdirexp=$(scriptdirexp) \
-+      usemallocwrap=$(usemallocwrap)
-+
- # The microconfiguration.
- 
- uconfig.h:    uconfig.sh config_h.SH
--      $(ENV) CONFIG_SH=uconfig.sh CONFIG_H=uconfig.h sh ./config_h.SH
-+      $(ENV) CONFIG_SH=uconfig.sh CONFIG_H=uconfig.h $(NRACV) sh ./config_h.SH
- 
- # Do not regenerate perly.c and perly.h.
-