Contents of /trunk/automake/patches/automake-1.4-perl-5.11.patch
Parent Directory | Revision Log
Revision 2976 -
(show annotations)
(download)
Wed Aug 23 11:20:30 2017 UTC (7 years, 1 month ago) by niro
File size: 839 byte(s)
Wed Aug 23 11:20:30 2017 UTC (7 years, 1 month ago) by niro
File size: 839 byte(s)
-perl fixes
1 | 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 | --- a/automake.in |
16 | +++ b/automake.in |
17 | @@ -5126,7 +5126,7 @@ sub pretty_print_internal |
18 | # character counts for eight. So we count the number of Tabs and |
19 | # multiply by 7. |
20 | local ($fill_length) = length ($fill); |
21 | - $fill_length += 7 * ($fill =~ tr/\t/\t/d); |
22 | + $fill_length += 7 * ($fill =~ tr/\t/\t/); |
23 | |
24 | local ($bol) = ($head eq ''); |
25 | foreach (@values) |
26 | -- |
27 | 2.1.3 |
28 |