avoid a warning from perl-5.11

* lib/Automake/Wrap.pm (_tab_length): Remove useless use of tr's
"/d" modifier.

Signed-off-by: Ralf Wildenhues <Ralf.Wildenhues@gmx.de>

diff --git a/ChangeLog b/ChangeLog
index d45eb7fa7bc406b04877bbf32a52625d1f796c8c..560e30458edd502fdf40a4545b9db36bf21ff730 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2009-11-28  Jim Meyering  <meyering@redhat.com>
+
+       avoid a warning from perl-5.11
+       * lib/Automake/Wrap.pm (_tab_length): Remove useless use of tr's
+       "/d" modifier.
+
 2009-11-14  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 
        Distribute the Automake bootstrap script.

diff --git a/lib/Automake/Wrap.pm b/lib/Automake/Wrap.pm
index 09a135af83256821dc51c8eff3bb058ffeb85dd5..66213d1ee4e16d3d6de9bacedb275d5e4a5ca1c5 100644 (file)
--- a/lib/Automake/Wrap.pm
+++ b/lib/Automake/Wrap.pm
@@ -55,7 +55,7 @@ sub tab_length($)
 {
   my ($txt) = @_;
   my $len = length ($txt);
-  $len += 7 * ($txt =~ tr/\t/\t/d);
+  $len += 7 * ($txt =~ tr/\t/\t/);
   return $len;
 }