|
Lines 983-989
sub finish_languages
Link Here
|
| 983 |
|
983 |
|
| 984 |
# Compute the function name of the finisher and then call it. |
984 |
# Compute the function name of the finisher and then call it. |
| 985 |
$name = 'lang_' . $lang . '_finish'; |
985 |
$name = 'lang_' . $lang . '_finish'; |
| 986 |
do $name (); |
986 |
& $name (); |
| 987 |
} |
987 |
} |
| 988 |
|
988 |
|
| 989 |
# If the project is entirely C++ or entirely Fortran 77, don't |
989 |
# If the project is entirely C++ or entirely Fortran 77, don't |
|
Lines 1144-1150
sub handle_single_transform_list
Link Here
|
| 1144 |
# Found the language, so see what it says. |
1144 |
# Found the language, so see what it says. |
| 1145 |
local ($subr) = 'lang_' . $lang . '_rewrite'; |
1145 |
local ($subr) = 'lang_' . $lang . '_rewrite'; |
| 1146 |
# Note: computed subr call. |
1146 |
# Note: computed subr call. |
| 1147 |
local ($r) = do $subr ($base, $extension); |
1147 |
local ($r) = & $subr ($base, $extension); |
| 1148 |
# Skip this entry if we were asked not to process it. |
1148 |
# Skip this entry if we were asked not to process it. |
| 1149 |
next if ! $r; |
1149 |
next if ! $r; |
