branch master updated: Use use warnings instead of $^W

[Patrice Dumas]

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new 7607672ab3 Use use warnings instead of $^W
7607672ab3 is described below

commit 7607672ab3e5562ecb79d9d9a8580b4cedaef863
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Mon May 6 00:56:28 2024 +0200

    Use use warnings instead of $^W
    
    * Pod-Simple-Texinfo/pod2texi.pl, tp/texi2any.pl, util/txixml2texi.pl:
    use use warnings instead of setting $^W.
---
 ChangeLog                      | 7 +++++++
 Pod-Simple-Texinfo/pod2texi.pl | 5 +++--
 tp/texi2any.pl                 | 4 ++--
 util/txixml2texi.pl            | 4 ++--
 4 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 18d59d59ab..ecbb3443c3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2024-05-05  Patrice Dumas  <pertusus@free.fr>
+
+       Use use warnings instead of $^W
+
+       * Pod-Simple-Texinfo/pod2texi.pl, tp/texi2any.pl, util/txixml2texi.pl:
+       use use warnings instead of setting $^W.
+
 2024-05-05  Patrice Dumas  <pertusus@free.fr>
 
        Update use use.
diff --git a/Pod-Simple-Texinfo/pod2texi.pl b/Pod-Simple-Texinfo/pod2texi.pl
index 1d739db18c..26594f7d7f 100755
--- a/Pod-Simple-Texinfo/pod2texi.pl
+++ b/Pod-Simple-Texinfo/pod2texi.pl
@@ -20,6 +20,9 @@
 use 5.006;
 
 use strict;
+
+use warnings;
+
 use Getopt::Long qw(GetOptions);
 # for fileparse.
 use File::Basename;
@@ -33,8 +36,6 @@ Getopt::Long::Configure("gnu_getopt");
 
 BEGIN
 {
-  # emulate -w
-  $^W = 1;
   my ($real_command_name, $command_directory, $command_suffix)
      = fileparse($0, '.pl');
   my $updir = File::Spec->updir();
diff --git a/tp/texi2any.pl b/tp/texi2any.pl
index 4b87497aa0..37ea3e0706 100755
--- a/tp/texi2any.pl
+++ b/tp/texi2any.pl
@@ -24,6 +24,8 @@ use 5.006;
 
 use strict;
 
+use warnings;
+
 # Through rules in Makefile.am, directory paths set through configure are
 # substituted directly in strings in the code, for example
 #   my $datadir = '@datadir@';
@@ -58,8 +60,6 @@ my ($real_command_name, $command_directory, $command_suffix);
 # * installed relative to the script
 BEGIN
 {
-  # emulate -w
-  $^W = 1;
   ($real_command_name, $command_directory, $command_suffix)
      = fileparse($0, '.pl');
   my $updir = File::Spec->updir();
diff --git a/util/txixml2texi.pl b/util/txixml2texi.pl
index 745dfecdaa..e86916c709 100755
--- a/util/txixml2texi.pl
+++ b/util/txixml2texi.pl
@@ -20,6 +20,8 @@
 # Original author: Patrice Dumas <pertusus@free.fr>
 
 use strict;
+use warnings;
+
 use Getopt::Long qw(GetOptions);
 # for dirname.
 use File::Basename;
@@ -30,8 +32,6 @@ Getopt::Long::Configure("gnu_getopt");
 
 BEGIN
 {
-  # emulate -w
-  $^W = 1;
   my ($real_command_name, $command_directory, $command_suffix)
      = fileparse($0, '.pl');