From 73152b7ac45881fb7fa3f15fc3e19d16b746f058 Mon Sep 17 00:00:00 2001
From: Lars Wirzenius <lars@catalyst.net.nz>
Date: Fri, 4 Jun 2010 14:52:44 +1200
Subject: [PATCH] Remove dependencies on perl-base.

perl-base is a required package, so it is always installed on a Debian
system, and Debian packages should not depend on it, unless they need
it a specific version, and I don't think we do.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---
 debian/control   |  3 +--
 debian/list-deps | 22 +++++++++++++++++++++-
 2 files changed, 22 insertions(+), 3 deletions(-)

diff --git a/debian/control b/debian/control
index a808675b07..5f107bae5f 100644
--- a/debian/control
+++ b/debian/control
@@ -53,7 +53,7 @@ Build-Depends: libalgorithm-checkdigits-perl,
  libpdf-reuse-perl,
  libpdf-table-perl,
  libpoe-perl,
- libscalar-list-utils-perl | perl-base,
+ libscalar-list-utils-perl,
  libschedule-at-perl,
  libsms-send-perl,
  libtest-harness-perl | perl-modules,
@@ -74,7 +74,6 @@ Build-Depends: libalgorithm-checkdigits-perl,
  libyaml-perl,
  libyaml-syck-perl,
  perl,
- perl-base,
  perl-modules, 
  debhelper (>= 7.0.50), gettext, python, python-debian
 
diff --git a/debian/list-deps b/debian/list-deps
index e30c54aeb5..41003b8b13 100755
--- a/debian/list-deps
+++ b/debian/list-deps
@@ -33,7 +33,16 @@ foreach my $module (keys %$deps) {
     $subpath =~ s,::,/,g;
     my $output = 
         qx(apt-file -l -x search "$prefix/$subpath.pm\$");
-    my @lines = split(/\n/, $output);
+    my @temp = split(/\n/, $output);
+    my @lines = ();
+    # Remove packages that are required/essential and always installed on
+    # a Debian system. Debian packages should not have unversioned 
+    # dependencies on such packages.
+    foreach my $line (@temp) {
+        if ($line ne "perl-base") {
+            @lines = (@lines, $line);
+        }
+    }
     if (scalar(@lines) == 1 && $lines[0] ne "") {
         my $pkg = $lines[0];
         print "$pkg\n";
@@ -43,6 +52,17 @@ foreach my $module (keys %$deps) {
             print "$pkg";
         }
         print "\n";
+    } elsif (scalar(@temp) != 0) {
+        # I'm an Essential and I'm OK,
+        # I install all night, and work all day.
+        # I chomp up strings. I eat my bugs.
+        # I go to the base install.
+        # On Fridays I go drinking,
+        # and have buttered commits for git.
+        # (Beer O'Clock is more than two hours
+        # away. I don't even drink beer. There
+        # is no reason to be suspicious of this
+        # commit.)
     } else {
         print "EEEK: unknown package for $module\n";
     }
-- 
2.39.5