[7745] XSLoader.pm add more debugging messages

[gavinsmith0123]

Revision: 7745
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7745
Author:   gavin
Date:     2017-04-18 13:50:34 -0400 (Tue, 18 Apr 2017)
Log Message:
-----------
XSLoader.pm add more debugging messages

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/Texinfo/XSLoader.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2017-04-17 10:25:53 UTC (rev 7744)
+++ trunk/ChangeLog     2017-04-18 17:50:34 UTC (rev 7745)
@@ -1,3 +1,7 @@
+2017-04-18  Gavin Smith  <address@hidden>
+
+       * tp/Texinfo/XSLoader.pm: Add more debugging messages.
+
 2017-04-17  Gavin Smith  <address@hidden>
 
        * doc/texinfo.texi (Inserting Quotation Marks): Include sort 

Modified: trunk/tp/Texinfo/XSLoader.pm
===================================================================
--- trunk/tp/Texinfo/XSLoader.pm        2017-04-17 10:25:53 UTC (rev 7744)
+++ trunk/tp/Texinfo/XSLoader.pm        2017-04-18 17:50:34 UTC (rev 7745)
@@ -200,6 +200,7 @@
     _fatal "$module_name: couldn't find $bootname symbol";
     goto FALLBACK;
   }
+  _debug "trying to call $bootname...";
   my $boot_fn = DynaLoader::dl_install_xsub("${module}::bootstrap",
                                                   $symref, $dlname);
   
@@ -207,6 +208,7 @@
     _fatal "$module_name: couldn't bootstrap";
     goto FALLBACK;
   }
+  _debug "  ...succeeded";
   
   push @DynaLoader::dl_shared_objects, $dlpath; # record files loaded
   
@@ -233,7 +235,7 @@
     die "unset the TEXINFO_XS environment variable to use the "
        ."pure Perl modules\n";
   } elsif ($TEXINFO_XS eq 'warn' or $TEXINFO_XS eq 'debug') {
-    warn "falling back to pure Perl modules\n";
+    warn "falling back to pure Perl module\n";
   }
   if (!defined $fallback_module) {
     die "no fallback module for $full_module_name";
@@ -252,11 +254,16 @@
 sub override {
   my ($target, $source) = @_;
 
+  _debug "attempting to override $target with $source...";
+
   no strict 'refs'; # access modules and symbols by name.
   no warnings 'redefine'; # do not warn about redefining a function.
 
   if (defined &{"${source}"}) {
     *{"${target}"} = \&{"${source}"};
+    _debug "  ...succeeded";
+  } else {
+    _debug "  ...failed";
   }
 }