From: Alexandre Duret-Lutz <adl@gnu.org>
Date: Fri, 23 May 2003 21:10:38 +0000 (+0000)
Subject: * automake.in: Use plain strict, including refs.
X-Git-Tag: Release-1-7b~176
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cd3b3948bf60b4afa291fd820f2b63dd82a1baaf;p=thirdparty%2Fautomake.git

* 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 214b9e079..cf7b31528 100644
--- 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 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;
 }