From 9f9b055b09056dd000478aa90eb9e384bb59c489 Mon Sep 17 00:00:00 2001
From: rjray <devnull@localhost>
Date: Wed, 16 Aug 2000 09:31:04 +0000
Subject: [PATCH] rpmprune is no longer managed as a *.PL file.

CVS patchset: 4066
CVS date: 2000/08/16 09:31:04
---
 Perl-RPM/MANIFEST    | 2 +-
 Perl-RPM/Makefile.PL | 7 ++-----
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/Perl-RPM/MANIFEST b/Perl-RPM/MANIFEST
index f4a83fa..c12a984 100644
--- a/Perl-RPM/MANIFEST
+++ b/Perl-RPM/MANIFEST
@@ -20,4 +20,4 @@ t/01_database.t
 t/02_headers.t
 t/03_errors.t
 t/04_utils.t
-utils/rpmprune.PL	Sample script
+utils/rpmprune		Sample script
diff --git a/Perl-RPM/Makefile.PL b/Perl-RPM/Makefile.PL
index a49ac30..ac94185 100644
--- a/Perl-RPM/Makefile.PL
+++ b/Perl-RPM/Makefile.PL
@@ -17,18 +17,16 @@ for (@OBJECT)
 $OBJECT = join(' ', @OBJECT);
 
 %PM = map { ($from = $_) =~ s/xs$/pm/;
-            ($from, "\$(INST_LIBDIR)/$from"); } (sort keys %XS);
-$PM{q(RPM/Error.pm)} = '$(INST_LIBDIR)/RPM/Error.pm';
+            ($from, "\$(INST_LIBDIR)/$from"); } (keys %XS);
 
 @SAMPLES = qw(utils/rpmprune);
-%PL_SCRIPTS = map { sprintf("%s.PL", $_) => "$_" } @SAMPLES;
 
 # This shouldn't be necessary, I don't think, but for now it is
 unlink 'RPM/typemap';
 symlink '../typemap', 'RPM/typemap';
 
 # Cruft that MakeMaker wouldn't inherently know about
-$CLEAN = join(' ', values %XS) . " $OBJECT @SAMPLES";
+$CLEAN = join(' ', values %XS) . " $OBJECT";
 $CLEAN .= ' pod2html-* */pod2html-* *.html */*.html RPM/typemap';
 
 #
@@ -73,7 +71,6 @@ WriteMakefile(
               DEFINE       => '',
               PM           => \%PM,
               XS           => \%XS,
-              PL_FILES     => \%PL_SCRIPTS,
               EXE_FILES    => [ @SAMPLES ],
               OBJECT       => $OBJECT,
               INC          => "-I$rpm_libdir",
-- 
2.7.4