From cd3b3948bf60b4afa291fd820f2b63dd82a1baaf Mon Sep 17 00:00:00 2001 From: Alexandre Duret-Lutz Date: Fri, 23 May 2003 21:10:38 +0000 Subject: [PATCH] * automake.in: Use plain strict, including refs. (macro_define, handle_single_transform_list): Use &{'name'} to build references to named subroutines. --- ChangeLog | 6 ++++++ automake.in | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 214b9e079..cf7b31528 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2003-05-23 Alexandre Duret-Lutz + + * automake.in: Use plain strict, including refs. + (macro_define, handle_single_transform_list): Use \&{'name'} to + build references to named subroutines. + 2003-05-22 Karl Berry * automake.texi: Update @dircategory to match the Free Software diff --git a/automake.in b/automake.in index 751391c1b..204b3ea34 100755 --- a/automake.in +++ b/automake.in @@ -120,7 +120,7 @@ sub target_hook ($$$$) package Automake; -use strict 'vars', 'subs'; +use strict; use Automake::General; use Automake::XFile; use Automake::Channels; @@ -2089,9 +2089,9 @@ sub handle_single_transform_list ($$$$@) # should be applied. This means this particular language # generates another source file which we must then process # further. - my $subr = 'lang_' . $lang->name . '_rewrite'; + my $subr = \&{'lang_' . $lang->name . '_rewrite'}; my ($r, $source_extension) - = & $subr ($directory, $base, $extension); + = &$subr ($directory, $base, $extension); # Skip this entry if we were asked not to process it. next if $r == LANG_IGNORE; @@ -6245,7 +6245,7 @@ sub macro_define ($$$$$$$$) # This hook helps to update some internal state *while* # parsing the file. For instance the handling of SUFFIXES # requires this (see var_SUFFIXES_trigger). - my $var_trigger = "var_${var}_trigger"; + my $var_trigger = \&{"var_${var}_trigger"}; &$var_trigger($type, $value) if defined &$var_trigger; } -- 2.47.2