[6763] TestXS.pm

[Gavin D. Smith]

Revision: 6763
          http://svn.sv.gnu.org/viewvc/?view=rev&root=texinfo&revision=6763
Author:   gavin
Date:     2015-11-07 18:07:55 +0000 (Sat, 07 Nov 2015)
Log Message:
-----------
TestXS.pm

Modified Paths:
--------------
    trunk/ChangeLog
    trunk/tp/MANIFEST
    trunk/tp/Texinfo/Convert/XSParagraph/TestXS.pm

Modified: trunk/ChangeLog
===================================================================
--- trunk/ChangeLog     2015-11-07 16:39:46 UTC (rev 6762)
+++ trunk/ChangeLog     2015-11-07 18:07:55 UTC (rev 6763)
@@ -1,5 +1,11 @@
 2015-11-07  Gavin Smith  <address@hidden>
 
+       * tp/Texinfo/Convert/XSParagraph/TestXS.pm: Always print 
+       debugging output, and remove fallback code copied from 
+       XSParagraph.pm.
+
+2015-11-07  Gavin Smith  <address@hidden>
+
        * tp/Makefile.am (test_files): Add east_asian_in_w.texi.
        * tp/t/README: Mention listing test input files in Makefile.am.  
        Mention another way of running a single test.

Modified: trunk/tp/MANIFEST
===================================================================
--- trunk/tp/MANIFEST   2015-11-07 16:39:46 UTC (rev 6762)
+++ trunk/tp/MANIFEST   2015-11-07 18:07:55 UTC (rev 6763)
@@ -254,6 +254,7 @@
 t/input_files/contents_no_section.texi
 t/input_files/cpp_lines.texi
 t/input_files/delcomment.texi
+t/input_files/east_asian_in_w.texi
 t/input_files/empty_lines_at_beginning_no_setfilename.texi
 t/input_files/empty_lines_at_beginning_no_setfilename_no_element.texi
 t/input_files/japanese_shift_jis.texi

Modified: trunk/tp/Texinfo/Convert/XSParagraph/TestXS.pm
===================================================================
--- trunk/tp/Texinfo/Convert/XSParagraph/TestXS.pm      2015-11-07 16:39:46 UTC 
(rev 6762)
+++ trunk/tp/Texinfo/Convert/XSParagraph/TestXS.pm      2015-11-07 18:07:55 UTC 
(rev 6763)
@@ -53,7 +53,7 @@
 #
 # Other values are treated at the moment as 'default'.
 
-my $TEXINFO_XS = $ENV{'TEXINFO_XS'};
+my $TEXINFO_XS = 'debug';
 if (!defined($TEXINFO_XS)) {
   $TEXINFO_XS = '';
 }
@@ -187,17 +187,7 @@
 }
 goto DONTFALLBACK;
 
-FALLBACK:
-  if ($TEXINFO_XS eq 'required') {
-    die "unset the TEXINFO_XS environmental 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";
-  }
-  # Fall back to using the Perl code.
-  require Texinfo::Convert::Paragraph;
-  *Texinfo::Convert::XSParagraph::XSParagraph::
-                                          = *Texinfo::Convert::Paragraph::;
+FALLBACK: ;
 DONTFALLBACK: ;
 } # end BEGIN