[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
FYI: 3/ use plain strict
From: |
Alexandre Duret-Lutz |
Subject: |
FYI: 3/ use plain strict |
Date: |
Fri, 23 May 2003 23:09:13 +0200 |
User-agent: |
Gnus/5.090016 (Oort Gnus v0.16) Emacs/21.3 (gnu/linux) |
I'm checking this in.
2003-05-23 Alexandre Duret-Lutz <address@hidden>
* automake.in: Use plain strict, including refs.
(macro_define, handle_single_transform_list): Use \&{'name'} to
build references to named subroutines.
Index: automake.in
===================================================================
RCS file: /cvs/automake/automake/automake.in,v
retrieving revision 1.1458
diff -u -r1.1458 automake.in
--- automake.in 22 May 2003 17:50:10 -0000 1.1458
+++ automake.in 23 May 2003 21:06:39 -0000
@@ -120,7 +120,7 @@
package Automake;
-use strict 'vars', 'subs';
+use strict;
use Automake::General;
use Automake::XFile;
use Automake::Channels;
@@ -2089,9 +2089,9 @@
# 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 @@
# 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;
}
--
Alexandre Duret-Lutz
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- FYI: 3/ use plain strict,
Alexandre Duret-Lutz <=