texinfo/tp texi2any.pl

[Patrice Dumas]

CVSROOT:        /sources/texinfo
Module name:    texinfo
Changes by:     Patrice Dumas <pertusus>        12/02/04 23:39:27

Modified files:
        tp             : texi2any.pl 

Log message:
        Use File::Spec->file_name_is_absolute to determine if a filename is 
        absolute in a more portable way.

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

Patches:
Index: texi2any.pl
===================================================================
RCS file: /sources/texinfo/texinfo/tp/texi2any.pl,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -b -r1.108 -r1.109
--- texi2any.pl 28 Jan 2012 17:51:34 -0000      1.108
+++ texi2any.pl 4 Feb 2012 23:39:27 -0000       1.109
@@ -25,6 +25,8 @@
 
 use strict;
 
+# for file_name_is_absolute
+use File::Spec;
 # to determine the path separator and null file
 use Config;
 # for dirname.
@@ -331,7 +333,7 @@
   my $directories = shift;
   my $all_files = shift;
 
-  if ($file =~ /^\//) {
+  if (File::Spec->file_name_is_absolute($file)) {
     return $file if (-e $file and -r $file);
   } else {
     my @files;