diff options
| author | Stefano Lattarini <stefano.lattarini@gmail.com> | 2013-05-27 12:24:02 +0200 |
|---|---|---|
| committer | Stefano Lattarini <stefano.lattarini@gmail.com> | 2013-05-28 11:17:02 +0200 |
| commit | 71e0af477d86153658433d24adfffcf7952f2892 (patch) | |
| tree | 3fca124abefb94e4522e9dc929d0eaec37407bc5 | |
| parent | 6d4ffd8329ce1cd52d93406be25ff77367e23178 (diff) | |
| download | automake-71e0af477d86153658433d24adfffcf7952f2892.tar.gz | |
Automake::Rule: make private variables lexically scoped
* lib/Automake/Rule.pm (@_known_extensions_list): This one.
(@_suffixes): And this one.
(%_rule_dict): And this one.
Signed-off-by: Stefano Lattarini <stefano.lattarini@gmail.com>
| -rw-r--r-- | lib/Automake/Rule.pm | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lib/Automake/Rule.pm b/lib/Automake/Rule.pm index ed1fa24e6..a6492caec 100644 --- a/lib/Automake/Rule.pm +++ b/lib/Automake/Rule.pm @@ -98,8 +98,9 @@ non-object). my $_SUFFIX_RULE_PATTERN = '^(\.[a-zA-Z0-9_(){}$+@\-]+)(\.[a-zA-Z0-9_(){}$+@\-]+)' . "\$"; -# Suffixes found during a run. -use vars '@_suffixes'; +my @_suffixes = (); +my @_known_extensions_list = (); +my %_rule_dict = (); =item C<%dependencies> @@ -167,9 +168,8 @@ New extensions should be registered with C<accept_extensions>. =cut -use vars qw ($KNOWN_EXTENSIONS_PATTERN @_known_extensions_list); +use vars qw ($KNOWN_EXTENSIONS_PATTERN); $KNOWN_EXTENSIONS_PATTERN = ""; -@_known_extensions_list = (); =back @@ -278,7 +278,6 @@ rules defined so far.) =cut -use vars '%_rule_dict'; sub rules () { return values %_rule_dict; |