Annotation of /trunk/automake/patches/automake-1.8-perl-5.11.patch
Parent Directory | Revision Log
Revision 2978 -
(hide annotations)
(download)
Wed Aug 23 11:32:54 2017 UTC (7 years, 1 month ago) by niro
File size: 784 byte(s)
Wed Aug 23 11:32:54 2017 UTC (7 years, 1 month ago) by niro
File size: 784 byte(s)
-added perl fixes
1 | niro | 2978 | From 375912c466b28a6121d351b9ff5513133a1c7227 Mon Sep 17 00:00:00 2001 |
2 | From: Jim Meyering <meyering@redhat.com> | ||
3 | Date: Sun, 29 Nov 2009 20:35:03 +0100 | ||
4 | Subject: [PATCH] avoid a warning from perl-5.11 | ||
5 | |||
6 | * lib/Automake/Wrap.pm (_tab_length): Remove useless use of tr's | ||
7 | "/d" modifier. | ||
8 | |||
9 | Signed-off-by: Ralf Wildenhues <Ralf.Wildenhues@gmx.de> | ||
10 | --- | ||
11 | ChangeLog | 6 ++++++ | ||
12 | lib/Automake/Wrap.pm | 2 +- | ||
13 | 2 files changed, 7 insertions(+), 1 deletion(-) | ||
14 | |||
15 | diff --git a/lib/Automake/Wrap.pm b/lib/Automake/Wrap.pm | ||
16 | index 09a135a..66213d1 100644 | ||
17 | --- a/lib/Automake/Wrap.pm | ||
18 | +++ b/lib/Automake/Wrap.pm | ||
19 | @@ -55,7 +55,7 @@ sub tab_length($) | ||
20 | { | ||
21 | my ($txt) = @_; | ||
22 | my $len = length ($txt); | ||
23 | - $len += 7 * ($txt =~ tr/\t/\t/d); | ||
24 | + $len += 7 * ($txt =~ tr/\t/\t/); | ||
25 | return $len; | ||
26 | } | ||
27 | |||
28 | -- | ||
29 | 2.1.3 | ||
30 |