texinfo/tp texi2any.pl

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        11/09/30 16:53:45

Modified files:
        tp             : texi2any.pl 

Log message:
        Use the file with the first suffix in input_file_suffixes prepended, 
not the
        last.  Report from Karl.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/texinfo/tp/texi2any.pl?cvsroot=texinfo&r1=1.63&r2=1.64

Patches:
Index: texi2any.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/texi2any.pl,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -b -r1.63 -r1.64
--- texi2any.pl 27 Sep 2011 22:46:40 -0000      1.63
+++ texi2any.pl 30 Sep 2011 16:53:45 -0000      1.64
@@ -878,7 +878,10 @@
   # try to concatenate with different suffixes. The last suffix is ''
   # such that the plain file name is checked.
   foreach my $suffix (@input_file_suffixes) {
-    $input_file_name = $input_file_arg.$suffix if (-e $input_file_arg.$suffix);
+    if (-e $input_file_arg.$suffix) {
+      $input_file_name = $input_file_arg.$suffix;
+      last;
+    }
   }
   # in case no file was found, still set the file name
   $input_file_name = $input_file_arg if (!defined($input_file_name));