[7570] override check if defined

[gavinsmith0123]

Revision: 7570
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=7570
Author:   gavin
Date:     2016-12-24 16:26:42 +0000 (Sat, 24 Dec 2016)
Log Message:
-----------
override check if defined

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

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2016-12-24 15:18:07 UTC (rev 7569)
+++ trunk/ChangeLog     2016-12-24 16:26:42 UTC (rev 7570)
@@ -1,5 +1,10 @@
 2016-12-24  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/XSLoader (override): Check if source subroutine is
+       defined.
+
+2016-12-24  Gavin Smith  <address@hidden>
+
        * tp/Texinfo/MiscXS.pm: New file.
        * tp/Texinfo/MiscXS/,
        tp/Texinfo/MiscXS/configure.ac,

Modified: trunk/tp/Texinfo/XSLoader.pm
===================================================================
--- trunk/tp/Texinfo/XSLoader.pm        2016-12-24 15:18:07 UTC (rev 7569)
+++ trunk/tp/Texinfo/XSLoader.pm        2016-12-24 16:26:42 UTC (rev 7570)
@@ -248,7 +248,9 @@
   no strict 'refs'; # access modules and symbols by name.
   no warnings 'redefine'; # do not warn about redefining a function.
 
-  *{"${target}"} = \&{"${source}"};
+  if (defined &{"${source}"}) {
+    *{"${target}"} = \&{"${source}"};
+  }
 }