[no subject]

[Patrice Dumas]

branch: master
commit a3e0e5d89a7a35fd4aaff31fa687365fdf1b7adf
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Fri Jan 14 23:01:34 2022 +0100

    Minor changes: add missing uses, change use order, pod, comments
---
 tp/Texinfo/Config.pm                        |  2 +-
 tp/Texinfo/Convert/Line.pm                  |  2 ++
 tp/Texinfo/Convert/NodeNameNormalization.pm |  7 ++++---
 tp/Texinfo/Convert/UnFilled.pm              |  2 ++
 tp/Texinfo/Convert/Utils.pm                 |  6 +++---
 tp/Texinfo/Encoding.pm                      | 16 ++++++++--------
 tp/Texinfo/Report.pm                        |  2 +-
 tp/Texinfo/XSLoader.pm                      |  6 ++++--
 8 files changed, 25 insertions(+), 18 deletions(-)

diff --git a/tp/Texinfo/Config.pm b/tp/Texinfo/Config.pm
index 332dcc690b..ae91c45a82 100644
--- a/tp/Texinfo/Config.pm
+++ b/tp/Texinfo/Config.pm
@@ -31,7 +31,7 @@ use strict;
 # for carp
 use Carp;
 
-# for __( and p__(
+# for __( and p__( and some functions
 use Texinfo::Common;
 
 # for error messages, passed from main program through initialization
diff --git a/tp/Texinfo/Convert/Line.pm b/tp/Texinfo/Convert/Line.pm
index 61f2f9a843..66008117dc 100644
--- a/tp/Texinfo/Convert/Line.pm
+++ b/tp/Texinfo/Convert/Line.pm
@@ -21,6 +21,8 @@ package Texinfo::Convert::Line;
 use 5.006;
 use strict;
 
+use Texinfo::Convert::Paragraph;
+
 # initialize a line object.
 sub new($;$)
 {
diff --git a/tp/Texinfo/Convert/NodeNameNormalization.pm 
b/tp/Texinfo/Convert/NodeNameNormalization.pm
index 39d139adbe..f2ee0da1b4 100644
--- a/tp/Texinfo/Convert/NodeNameNormalization.pm
+++ b/tp/Texinfo/Convert/NodeNameNormalization.pm
@@ -27,12 +27,13 @@ use strict;
 
 use Unicode::Normalize;
 use Text::Unidecode;
-# for the accents definition
+
+# commands classes
 use Texinfo::Common;
-# reuse some conversion hashes
-use Texinfo::Convert::Text;
 # use the hashes and functions
 use Texinfo::Convert::Unicode;
+# reuse some conversion hashes and ascii_accent function
+use Texinfo::Convert::Text;
 
 require Exporter;
 use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
diff --git a/tp/Texinfo/Convert/UnFilled.pm b/tp/Texinfo/Convert/UnFilled.pm
index 01574452e5..23c2ed06da 100644
--- a/tp/Texinfo/Convert/UnFilled.pm
+++ b/tp/Texinfo/Convert/UnFilled.pm
@@ -20,6 +20,8 @@ package Texinfo::Convert::UnFilled;
 use 5.006;
 use strict;
 
+use Texinfo::Convert::Paragraph;
+
 # initialize a paragraph object.
 sub new($;$)
 {
diff --git a/tp/Texinfo/Convert/Utils.pm b/tp/Texinfo/Convert/Utils.pm
index 7632653c2f..25841c8b4a 100644
--- a/tp/Texinfo/Convert/Utils.pm
+++ b/tp/Texinfo/Convert/Utils.pm
@@ -30,13 +30,13 @@ package Texinfo::Convert::Utils;
 
 use strict;
 
+# debugging
+use Carp qw(cluck);
+
 use Texinfo::Common;
 # only needed in debugging comments.  Ok to keep it here anyway.
 use Texinfo::Convert::Texinfo;
 
-# debugging
-use Carp qw(cluck);
-
 require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT_OK %EXPORT_TAGS);
diff --git a/tp/Texinfo/Encoding.pm b/tp/Texinfo/Encoding.pm
index 0c074b7433..e338e63db1 100644
--- a/tp/Texinfo/Encoding.pm
+++ b/tp/Texinfo/Encoding.pm
@@ -70,7 +70,7 @@ foreach my $canonical_encoding('us-ascii', 'utf-8', 
'iso-8859-1',
   $canonical_texinfo_encodings{$canonical_encoding} = 1;
 }
 
-sub encoding_alias ($)
+sub encoding_alias($)
 {
   my $encoding = shift;
   my $canonical_texinfo_encoding;
@@ -81,7 +81,7 @@ sub encoding_alias ($)
   if ($perl_encoding) {
     $canonical_output_encoding = $encoding_aliases{$perl_encoding};
   }
-  foreach my $possible_encoding ($encoding, $canonical_output_encoding, 
+  foreach my $possible_encoding($encoding, $canonical_output_encoding,
                                             $perl_encoding) {
     if (defined($possible_encoding)
         and $canonical_texinfo_encodings{lc($possible_encoding)}) {
@@ -103,7 +103,7 @@ Texinfo::Encoding - Encodings and encoding aliases
 
   use Texinfo::Encoding qw(encoding_alias);
 
-  my ($canonical_texinfo_encoding, $perl_encoding, 
+  my ($canonical_texinfo_encoding, $perl_encoding,
       $canonical_output_encoding) = encoding_alias($encoding);
 
 =head1 DESCRIPTION
@@ -116,11 +116,11 @@ Texinfo::Encoding takes care of encoding definition and 
aliasing.
 
 =item ($canonical_texinfo_encoding, $perl_encoding, 
$canonical_output_encoding) = encoding_alias($encoding)
 
-Taking an encoding name as argument, the function returns the 
-corresponding canonical Texinfo encoding I<$canonical_texinfo_encoding> 
-as described in the Texinfo manual (or undef), an encoding name suitable 
-for perl I<$perl_encoding>, and an encoding name suitable for most 
-output formaats, especially HTML, I<$canonical_output_encoding>. 
+Taking an encoding name as argument, the function returns the
+corresponding canonical Texinfo encoding I<$canonical_texinfo_encoding>
+as described in the Texinfo manual (or undef), an encoding name suitable
+for perl I<$perl_encoding>, and an encoding name suitable for most
+output formats, especially HTML, I<$canonical_output_encoding>.
 
 =back
 
diff --git a/tp/Texinfo/Report.pm b/tp/Texinfo/Report.pm
index 422b9ba0cc..5384d2b2b2 100644
--- a/tp/Texinfo/Report.pm
+++ b/tp/Texinfo/Report.pm
@@ -318,7 +318,7 @@ The optional I<$line_nr> holds the information on the error 
or
 warning location.  It is associated with the I<line_nr> key of
 Texinfo tree elements as described in L<Texinfo::Parser/line_nr>
 for the @-commands.  The I<$line_nr> structure is described
-in L<errors|($error_warnings_list, $error_count) = errors ($registrar)>
+in L<errors|/($error_warnings_list, $error_count) = errors ($registrar)>
 above.
 
 =item $registrar->document_warn($configuration_informations, $text)
diff --git a/tp/Texinfo/XSLoader.pm b/tp/Texinfo/XSLoader.pm
index 247254f49b..4654f09144 100644
--- a/tp/Texinfo/XSLoader.pm
+++ b/tp/Texinfo/XSLoader.pm
@@ -15,12 +15,14 @@
 
 package Texinfo::XSLoader;
 
-use DynaLoader;
-
 use 5.00405;
 use strict;
 use warnings;
 
+use DynaLoader;
+
+use Texinfo::ModulePath;
+
 our $TEXINFO_XS;
 
 our $VERSION = '6.8dev';