# Attempt to guess a canonical system name.
# Copyright 1992-2020 Free Software Foundation, Inc.
-timestamp='2020-08-17'
+timestamp='2020-09-19'
# This file is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
#elif defined(__dietlibc__)
LIBC=dietlibc
#else
+ #include <stdarg.h>
+ #ifdef __DEFINED_va_list
+ LIBC=musl
+ #else
LIBC=gnu
#endif
+ #endif
EOF
eval "`$CC_FOR_BUILD -E "$dummy.c" 2>/dev/null | grep '^LIBC' | sed 's, ,,g'`"
-
- # If ldd exists, use it to detect musl libc.
- if command -v ldd >/dev/null && \
- ldd --version 2>&1 | grep -q ^musl
- then
- LIBC=musl
- fi
;;
esac
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 Autom4te::Channels;
use Autom4te::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