Annotation of /trunk/automake/patches/automake-1.4-perl-dyn-call.patch
Parent Directory | Revision Log
Revision 2976 -
(hide annotations)
(download)
Wed Aug 23 11:20:30 2017 UTC (7 years, 1 month ago) by niro
File size: 738 byte(s)
Wed Aug 23 11:20:30 2017 UTC (7 years, 1 month ago) by niro
File size: 738 byte(s)
-perl fixes
1 | niro | 2976 | at some point, a perl update broke this syntax. use a newer style that works |
2 | with at least perl-5.16. | ||
3 | |||
4 | --- a/automake.in | ||
5 | +++ b/automake.in | ||
6 | @@ -983,7 +983,7 @@ sub finish_languages | ||
7 | |||
8 | # Compute the function name of the finisher and then call it. | ||
9 | $name = 'lang_' . $lang . '_finish'; | ||
10 | - do $name (); | ||
11 | + &$name (); | ||
12 | } | ||
13 | |||
14 | # If the project is entirely C++ or entirely Fortran 77, don't | ||
15 | @@ -1144,7 +1144,7 @@ sub handle_single_transform_list | ||
16 | # Found the language, so see what it says. | ||
17 | local ($subr) = 'lang_' . $lang . '_rewrite'; | ||
18 | # Note: computed subr call. | ||
19 | - local ($r) = do $subr ($base, $extension); | ||
20 | + local ($r) = &$subr ($base, $extension); | ||
21 | # Skip this entry if we were asked not to process it. | ||
22 | next if ! $r; | ||
23 |