From b796107bcaae58d13e3d20ccb586bb50e6afeff0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Fri, 27 Jun 2014 08:23:54 +0200
Subject: [PATCH] Remove bundled perl-App-a2p, perl-App-find2perl,
 perl-App-s2p, and perl-Package-Constants

---
 perl.spec | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/perl.spec b/perl.spec
index d932a0c..48040c6 100644
--- a/perl.spec
+++ b/perl.spec
@@ -30,7 +30,7 @@
 Name:           perl
 Version:        %{perl_version}
 # release number must be even higher, because dual-lived modules will be broken otherwise
-Release:        300%{?dist}
+Release:        301%{?dist}
 Epoch:          %{perl_epoch}
 Summary:        Practical Extraction and Report Language
 Group:          Development/Languages
@@ -284,6 +284,7 @@ Install this if you want to test your Perl installation (binary and core
 modules).
 
 
+%if %{dual_life} || %{rebuild_from_scratch}
 %package App-a2p
 Summary:        Awk to Perl translator
 Group:          Development/Tools
@@ -295,8 +296,10 @@ Conflicts:      perl < 4:5.18.2-300
 %description App-a2p
 This package delivers a2p tool which takes an awk script specified on the
 command line and produces a comparable Perl script.
+%endif
 
 
+%if %{dual_life} || %{rebuild_from_scratch}
 %package App-find2perl
 Summary:        Translate find command lines to Perl code
 Group:          Development/Tools
@@ -310,8 +313,10 @@ Conflicts:      perl < 4:5.18.2-300
 %description App-find2perl
 This package delivers find2perl tool which is a little translator to convert
 find command lines to equivalent Perl code.
+%endif
 
 
+%if %{dual_life} || %{rebuild_from_scratch}
 %package App-s2p
 Summary:        Convert sed script to Perl program
 Group:          Development/Tools
@@ -323,6 +328,7 @@ Conflicts:      perl < 4:5.18.2-300
 
 %description App-s2p
 This package delivers s2p tool which converts sed scripts to Perl programs.
+%endif
 
 
 %if %{dual_life} || %{rebuild_from_scratch}
@@ -1351,6 +1357,7 @@ Object::Accessor provides an interface to create per object accessors (as
 opposed to per Class accessors, as, for example, Class::Accessor provides).
 %endif
 
+%if %{dual_life} || %{rebuild_from_scratch}
 %package Package-Constants
 Summary:        List all constants declared in a package
 Group:          Development/Libraries
@@ -1365,6 +1372,7 @@ BuildArch:      noarch
 Package::Constants lists all the constants defined in a certain package.  This
 can be useful for, among others, setting up an autogenerated @EXPORT/@EXPORT_OK
 for a Constants.pm file.
+%endif
 
 %if %{dual_life} || %{rebuild_from_scratch}
 %package PathTools
@@ -2905,20 +2913,26 @@ sed \
 %files tests
 %{perl5_testdir}/
 
+%if %{dual_life} || %{rebuild_from_scratch}
 %files App-a2p
 %{_bindir}/a2p
 %{privlib}/pod/a2p.pod
 %{_mandir}/man1/a2p.1*
+%endif
 
+%if %{dual_life} || %{rebuild_from_scratch}
 %files App-find2perl
 %{_bindir}/find2perl
 %{_mandir}/man1/find2perl.1*
+%endif
 
+%if %{dual_life} || %{rebuild_from_scratch}
 %files App-s2p
 %{_bindir}/psed
 %{_bindir}/s2p
 %{_mandir}/man1/psed.1*
 %{_mandir}/man1/s2p.1*
+%endif
 
 %if %{dual_life} || %{rebuild_from_scratch}
 %files Archive-Extract
@@ -3429,9 +3443,11 @@ sed \
 %{_mandir}/man3/Object::Accessor*
 %endif
 
+%if %{dual_life} || %{rebuild_from_scratch}
 %files Package-Constants
 %{privlib}/Package/
 %{_mandir}/man3/Package::Constants*
+%endif
 
 %if %{dual_life} || %{rebuild_from_scratch}
 %files PathTools
@@ -3688,6 +3704,10 @@ sed \
 
 # Old changelog entries are preserved in CVS.
 %changelog
+* Fri Jun 27 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-301
+- Remove bundled perl-App-a2p, perl-App-find2perl, perl-App-s2p, and
+  perl-Package-Constants
+
 * Thu Jun 19 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-300
 - Sub-package perl-App-find2perl (bug #1111196)
 - Sub-package perl-App-a2p (bug #1111232)