[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
texinfo/tp texi2any.pl
From: |
Patrice Dumas |
Subject: |
texinfo/tp texi2any.pl |
Date: |
Fri, 30 Sep 2011 16:53:45 +0000 |
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));