X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=debian%2Flist-deps;h=d5f6ba3262d36a6225b600e95b3fc6f4889f5458;hb=c9441f48955360829ef7f8e97a54afa7aa31fc5b;hp=e30c54aeb57a3848267e0a52667fdea614a2d3d1;hpb=2fcc4fe94e87f08baf6bad8b4578895f29fb5a99;p=koha_gimpoz

diff --git a/debian/list-deps b/debian/list-deps
index e30c54aeb5..d5f6ba3262 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,18 @@ 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.)
+        # RM note: suspicious?  me?  always!
     } else {
         print "EEEK: unknown package for $module\n";
     }