}
}
-use vars qw (@EXPORT @ISA);
-@ISA = qw (Exporter);
-@EXPORT = qw (&prog_error &error &fatal &verb
- &switch_warning &parse_WARNINGS &parse_warnings);
+our @ISA = qw (Exporter);
+our @EXPORT = qw (&prog_error &error &fatal &verb
+ &switch_warning &parse_WARNINGS &parse_warnings);
=head2 CHANNELS
use Exporter;
use File::Basename;
-use vars qw (@EXPORT @ISA %channels $me);
-@ISA = qw (Exporter);
-@EXPORT = qw ($exit_code $warnings_are_errors
- &reset_local_duplicates &reset_global_duplicates
- ®ister_channel &msg &exists_channel &channel_type
- &setup_channel &setup_channel_type
- &dup_channel_setup &drop_channel_setup
- &buffer_messages &flush_messages
- &setup_channel_queue &pop_channel_queue
- US_GLOBAL US_LOCAL
- UP_NONE UP_TEXT UP_LOC_TEXT);
-
-$me = basename $0;
+our @ISA = qw (Exporter);
+our @EXPORT = qw ($exit_code $warnings_are_errors
+ &reset_local_duplicates &reset_global_duplicates
+ ®ister_channel &msg &exists_channel &channel_type
+ &setup_channel &setup_channel_type
+ &dup_channel_setup &drop_channel_setup
+ &buffer_messages &flush_messages
+ &setup_channel_queue &pop_channel_queue
+ US_GLOBAL US_LOCAL
+ UP_NONE UP_TEXT UP_LOC_TEXT);
+
+our %channels;
+our $me = basename $0;
=head2 Global Variables
=cut
-use vars qw ($exit_code);
-$exit_code = 0;
+our $exit_code = 0;
=item C<$warnings_are_errors>
=cut
-use vars qw ($warnings_are_errors);
-$warnings_are_errors = 0;
+our $warnings_are_errors = 0;
=back
=cut
-use vars qw (%_default_options %_global_duplicate_messages
- %_local_duplicate_messages);
-
# Default options for a channel.
-%_default_options =
+our %_default_options =
(
type => 'warning',
exit_code => 1,
# Filled with output messages as keys, to detect duplicates.
# The value associated with each key is the number of occurrences
# filtered out.
-%_local_duplicate_messages = ();
-%_global_duplicate_messages = ();
+our %_local_duplicate_messages = ();
+our %_global_duplicate_messages = ();
sub _reset_duplicates (\%)
{
}
# Store partial messages here. (See the 'partial' option.)
-use vars qw ($partial);
-$partial = '';
+our $partial = '';
# _format_message ($LOCATION, $MESSAGE, %OPTIONS)
# -----------------------------------------------
=cut
-use vars qw (@backlog %buffering);
-
# See buffer_messages() and flush_messages() below.
-%buffering = (); # The map of channel types to buffer.
-@backlog = (); # The buffer of messages.
+our %buffering = (); # The map of channel types to buffer.
+our @backlog = (); # The buffer of messages.
sub msg ($$;$%)
{
=cut
-use vars qw (@_saved_channels @_saved_werrors);
-@_saved_channels = ();
-@_saved_werrors = ();
+our @_saved_channels = ();
+our @_saved_werrors = ();
sub dup_channel_setup ()
{
use Carp;
use Exporter;
-use vars qw (@EXPORT_OK @ISA);
-@ISA = qw (Exporter);
-@EXPORT_OK = qw (TRUE FALSE reduce_and reduce_or);
+our @ISA = qw (Exporter);
+our @EXPORT_OK = qw (TRUE FALSE reduce_and reduce_or);
=head1 NAME
# Keys in this hash are conditional strings. Values are the
# associated object conditions. This is used by 'new' to reuse
# Condition objects with identical conditionals.
-use vars '%_condition_singletons';
+our %_condition_singletons;
# Do NOT reset this hash here. It's already empty by default,
# and any setting would otherwise occur AFTER the 'TRUE' and 'FALSE'
# constants definitions.
use Automake::ChannelDefs;
use Automake::Channels;
-use vars qw (@EXPORT @ISA);
-@ISA = qw (Exporter);
-@EXPORT = qw (&find_configure_ac &require_configure_ac);
+our @ISA = qw (Exporter);
+our @EXPORT = qw (&find_configure_ac &require_configure_ac);
=head1 NAME
# Keys in this hash are DisjConditions strings. Values are the
# associated object DisjConditions. This is used by 'new' to reuse
# DisjConditions objects with identical conditions.
-use vars '%_disjcondition_singletons';
+our %_disjcondition_singletons;
sub new ($;@)
{
use Automake::Channels;
use Automake::ChannelDefs;
-use vars qw (@EXPORT @ISA);
-@ISA = qw (Exporter);
-@EXPORT = qw (&contents
- &find_file &mtime
- &update_file
- &xsystem &xsystem_hint &xqx
- &dir_has_case_matching_file &reset_dir_cache
- &set_dir_cache_file);
+our @ISA = qw (Exporter);
+our @EXPORT = qw (&contents
+ &find_file &mtime
+ &update_file
+ &xsystem &xsystem_hint &xqx
+ &dir_has_case_matching_file &reset_dir_cache
+ &set_dir_cache_file);
=over 4
=cut
-use vars '%_directory_cache';
+our %_directory_cache;
sub dir_has_case_matching_file ($$)
{
# Note that print File::Spec->case_tolerant returns 0 even on MacOS
=back
+=cut
+
1; # for require
use Exporter;
use File::Basename;
-use vars qw (@EXPORT @ISA);
-
-@ISA = qw (Exporter);
-@EXPORT = qw (&uniq &none $me);
+our @ISA = qw (Exporter);
+our @EXPORT = qw (&uniq &none $me);
# Variable we share with the main package. Be sure to have a single
# copy of them: using 'my' together with multiple inclusion of this
# package would introduce several copies.
-use vars qw ($me);
-$me = basename ($0);
+our $me = basename ($0);
# END
# ---
use Automake::ChannelDefs qw (fatal);
-use vars qw (@EXPORT @ISA);
-@ISA = qw (Exporter);
-@EXPORT = qw (getopt);
+our @ISA = qw (Exporter);
+our @EXPORT = qw (getopt);
=item C<parse_options (%option)>
use Automake::Channels;
use Automake::Version;
-use vars qw (@EXPORT @ISA);
-@ISA = qw (Exporter);
-@EXPORT = qw (option global_option
- set_option set_global_option
- unset_option unset_global_option
- process_option_list process_global_option_list
- set_strictness $strictness $strictness_name
- &FOREIGN &GNU &GNITS);
+our @ISA = qw (Exporter);
+our @EXPORT = qw (option global_option
+ set_option set_global_option
+ unset_option unset_global_option
+ process_option_list process_global_option_list
+ set_strictness $strictness $strictness_name
+ &FOREIGN &GNU &GNITS);
=head1 NAME
=cut
# Values are the Automake::Location of the definition.
-use vars '%_options'; # From AUTOMAKE_OPTIONS
-use vars '%_global_options'; # From AM_INIT_AUTOMAKE or the command line.
+our %_options; # From AUTOMAKE_OPTIONS
+our %_global_options; # From AM_INIT_AUTOMAKE or the command line.
# Whether process_option_list has already been called for the current
# Makefile.am.
-use vars '$_options_processed';
+our $_options_processed;
# Whether process_global_option_list has already been called.
-use vars '$_global_options_processed';
+our $_global_options_processed;
=head2 Constants
=cut
# Strictness levels.
-use vars qw ($strictness $strictness_name);
+our ($strictness, $strictness_name);
# Strictness level as set on command line.
-use vars qw ($_default_strictness $_default_strictness_name);
+our ($_default_strictness, $_default_strictness_name);
=head2 Functions
use Automake::Condition qw (TRUE FALSE);
use Automake::DisjConditions;
-use vars qw (@EXPORT @EXPORT_OK @ISA);
-@ISA = qw (Automake::Item Exporter);
-@EXPORT = qw (reset register_suffix_rule next_in_suffix_chain
- suffixes rules $KNOWN_EXTENSIONS_PATTERN
- depend %dependencies %actions register_action
- accept_extensions
- reject_rule msg_rule msg_cond_rule err_rule err_cond_rule
- rule rrule ruledef rruledef);
+our @ISA = qw (Automake::Item Exporter);
+our @EXPORT = qw (reset register_suffix_rule next_in_suffix_chain
+ suffixes rules $KNOWN_EXTENSIONS_PATTERN
+ depend %dependencies %actions register_action
+ accept_extensions
+ reject_rule msg_rule msg_cond_rule err_rule err_cond_rule
+ rule rrule ruledef rruledef);
=head1 NAME
=cut
-use vars '%dependencies';
+our %dependencies;
=item <%actions>
=cut
-use vars '%actions';
+our %actions;
=item C<$KNOWN_EXTENSIONS_PATTERN>
=cut
-use vars qw ($KNOWN_EXTENSIONS_PATTERN);
-$KNOWN_EXTENSIONS_PATTERN = "";
+our $KNOWN_EXTENSIONS_PATTERN = "";
=back
use Automake::ChannelDefs;
use Automake::ItemDef;
-use vars qw (@EXPORT @ISA);
-@ISA = qw (Automake::ItemDef Exporter);
-@EXPORT = qw (&RULE_AUTOMAKE &RULE_USER);
+our @ISA = qw (Automake::ItemDef Exporter);
+our @EXPORT = qw (&RULE_AUTOMAKE &RULE_USER);
=head1 NAME
use Automake::ChannelDefs;
use Automake::ItemDef;
-use vars qw (@ISA @EXPORT);
-@ISA = qw (Automake::ItemDef Exporter);
-@EXPORT = qw (&VAR_AUTOMAKE &VAR_CONFIGURE &VAR_MAKEFILE
- &VAR_ASIS &VAR_PRETTY &VAR_SILENT &VAR_SORTED);
+our @ISA = qw (Automake::ItemDef Exporter);
+our @EXPORT = qw (&VAR_AUTOMAKE &VAR_CONFIGURE &VAR_MAKEFILE
+ &VAR_ASIS &VAR_PRETTY &VAR_SILENT &VAR_SORTED);
=head1 NAME
use Automake::General 'uniq';
use Automake::Wrap 'makefile_wrap';
-use vars qw (@EXPORT @EXPORT_OK @ISA);
-@ISA = qw (Automake::Item Exporter);
-@EXPORT = qw (err_var msg_var msg_cond_var reject_var
- var rvar vardef rvardef
- variables
- scan_variable_expansions check_variable_expansions
- variable_delete
- variables_dump
- set_seen
- require_variables
- variable_value
- output_variables
- transform_variable_recursively);
+our @ISA = qw (Automake::Item Exporter);
+our @EXPORT = qw (err_var msg_var msg_cond_var reject_var
+ var rvar vardef rvardef
+ variables
+ scan_variable_expansions check_variable_expansions
+ variable_delete
+ variables_dump
+ set_seen
+ require_variables
+ variable_value
+ output_variables
+ transform_variable_recursively);
=head1 NAME
=cut
-use vars '%_hooks';
+our %_hooks;
sub hook ($$)
{
my ($var, $fun) = @_;
=cut
-use vars '%_variable_dict', '%_primary_dict';
+our (%_variable_dict, %_primary_dict);
sub variables (;$)
{
my ($suffix) = @_;
use Exporter;
-use vars qw (@EXPORT_OK @ISA);
-@ISA = qw (Exporter);
-@EXPORT_OK = qw (wrap makefile_wrap);
+our @ISA = qw (Exporter);
+our @EXPORT_OK = qw (wrap makefile_wrap);
=head1 NAME
use Automake::Channels qw (msg);
use Automake::FileUtils;
-use vars qw ($AUTOLOAD @EXPORT @EXPORT_OK @ISA $VERSION);
-@ISA = qw(Exporter IO::File);
-@EXPORT = @IO::File::EXPORT;
-$VERSION = "1.2";
+our @ISA = qw(Exporter IO::File);
+our @EXPORT = @IO::File::EXPORT;
+our $VERSION = "1.2";
eval {
# Make all Fcntl O_XXX and LOCK_XXX constants available for importing
projects / thirdparty / automake.git / commitdiff
