* automake.in: Use plain strict, including refs.

(macro_define, handle_single_transform_list): Use &{'name'} to
build references to named subroutines.

diff --git a/ChangeLog b/ChangeLog
index 214b9e079b8637258ae83445ab2c054406c3f0a8..cf7b31528145147c6422a013c4799961bab85ce6 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-05-23  Alexandre Duret-Lutz  <adl@gnu.org>
+
+       * 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  <karl@gnu.org>
 
        * automake.texi: Update @dircategory to match the Free Software

diff --git a/automake.in b/automake.in
index 751391c1bcc8d2e358a58f4dfbaf32a3db5f6e74..204b3ea346d54fb6787c24508e067ff471b912dc 100755 (executable)
--- 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;
 }