Revert usage of English perl non-essential module from install-info.

Closes: #369928

diff --git a/ChangeLog b/ChangeLog
index cf39c4d8f3ff028810e433db6c998e5b7eaf5b41..7b93defb7d640624b11bcb24b443d1c15e0883da 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2006-06-02  Guillem Jover  <guillem@debian.org>
+
+       * scripts/install-info.pl: Do not use English non-essential module.
+
 2006-06-02  Guillem Jover  <guillem@debian.org>
 
        * scripts/dpkg-shlibdeps.pl (@librarypaths): Add '/lib32' and

diff --git a/debian/changelog b/debian/changelog
index 4c4dc3d0897d10685fed67515b4da7ac10140c43..67348b935e33998ae5925a57e115324d77c229e0 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -6,6 +6,8 @@ dpkg (1.13.21~) UNRELEASED; urgency=low
     Josip Rodin. Closes: #45575
   * Add '/lib32' and '/usr/lib32' to the dpkg-shlibdeps library path search
     list. Closes: #367892
+  * Revert usage of English perl non-essential module from install-info.
+    Closes: #369928
 
  -- Guillem Jover <guillem@debian.org>  Wed, 31 May 2006 08:03:11 +0300
 

diff --git a/scripts/install-info.pl b/scripts/install-info.pl
index e37be86c49d415c213f1f48a1a19e5b9c36bcfc4..9cd7641332b8cfb97b72257d2cc16c5b30c802b0 100755 (executable)
--- a/scripts/install-info.pl
+++ b/scripts/install-info.pl
@@ -1,7 +1,6 @@
 #!/usr/bin/perl --
 
 use Text::Wrap;
-use English;
 
 my $dpkglibdir = "."; # This line modified by Makefile
 push (@INC, $dpkglibdir);
@@ -107,15 +106,15 @@ while ($ARGV[0] =~ m/^--/) {
     } elsif (m/^--(c?align|maxwidth)=([0-9]+)$/) {
        warn( sprintf(_g("%s: %s deprecated(ignored)"), $name, $1)."\n" );
     } elsif (m/^--info-?dir=/) {
-       $dirfile = $POSTMATCH . '/dir';
+       $dirfile = $' . '/dir';
     } elsif (m/^--info-file=/) {
-        $filename=$POSTMATCH;
+       $filename = $';
     } elsif (m/^--menuentry=/) {
-        $menuentry=$POSTMATCH;
+       $menuentry = $';
     } elsif (m/^--description=/) {
-        $description=$POSTMATCH;
+       $description = $';
     } elsif (m/^--dir-file=/) { # for compatibility with GNU install-info
-       $dirfile = $POSTMATCH;
+       $dirfile = $';
     } else {
         printf STDERR _g("%s: unknown option \`%s'")."\n", $name, $_;
         &usage(STDERR); exit 1;
@@ -185,7 +184,7 @@ if (!$remove) {
             &dprint("multiline '$asread'");
         } elsif ($asread =~ m/^\*\s*([^:]+):(\s*\(([^\)]+)\)\.|:)\s*/) {
             $menuentry= $1;
-            $description= $POSTMATCH;
+            $description = $';
             $fileinentry = $3;
             &dprint("infile menuentry '$menuentry' description '$description'");
         } elsif (length($asread)) {
@@ -209,7 +208,7 @@ if (!$remove) {
             $asread='';
             while(<IF>) {
                 if (m/^\s*[Tt]his file documents/) {
-                    $asread=$POSTMATCH;
+                    $asread = $';
                     last;
                 }
             }