[no subject]

[Gavin D. Smith]

branch: master
commit 9766704002f2b1efd8cee68492e3ec36fd081e64
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Sat Feb 24 17:06:38 2024 +0000

    * tp/Texinfo/XSLoader.pm (init): Remove $warning_message and
    $fatal_message arguments.
---
 ChangeLog              |  5 +++++
 tp/Texinfo/XSLoader.pm | 12 ------------
 2 files changed, 5 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 18e49919c2..ffb5c17440 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-02-24  Gavin Smith <gavinsmith0123@gmail.com>
+
+       * tp/Texinfo/XSLoader.pm (init): Remove $warning_message and
+       $fatal_message arguments.
+
 2024-02-24  Gavin Smith <gavinsmith0123@gmail.com>
 
        * tp/Texinfo/Parser.pm: Always call Texinfo::XSLoader::init with
diff --git a/tp/Texinfo/XSLoader.pm b/tp/Texinfo/XSLoader.pm
index e04ddd6db7..2d8cf6e5de 100644
--- a/tp/Texinfo/XSLoader.pm
+++ b/tp/Texinfo/XSLoader.pm
@@ -77,15 +77,12 @@ sub _find_file($) {
 # interface changes.
 # The package loaded is returned or undef if there is no fallback and the
 # XS package was not loaded.
-# TODO remove $warning_message and $fatal_message?
 sub init {
   my ($module,
      $fallback_module,
      $module_name,
      $perl_extra_file,
      $interface_version,
-     $warning_message,
-     $fatal_message
    ) = @_;
 
   # Possible values for TEXINFO_XS environment variable:
@@ -113,15 +110,6 @@ sub init {
     goto FALLBACK;
   }
 
-  if ($warning_message) {
-    _debug $warning_message;
-  }
-
-  if ($fatal_message) {
-    _fatal $fatal_message;
-    goto FALLBACK;
-  }
-
   if (!$module_name) {
     goto FALLBACK;
   }