[Po4a-commits] po4a/lib/Locale/Po4a TeX.pm,1.32,1.33

Nicolas FRAN??OIS po4a-devel@lists.alioth.debian.org
Sun, 20 Feb 2005 21:24:14 +0000


Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv9414/lib/Locale/Po4a

Modified Files:
	TeX.pm 
Log Message:
Fix an issue when the TEXINPUTS environment variable is not set.


Index: TeX.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/TeX.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- TeX.pm	20 Feb 2005 21:20:22 -0000	1.32
+++ TeX.pm	20 Feb 2005 21:24:12 -0000	1.33
@@ -744,7 +744,10 @@
             }
             if ($include) {
                 # search the file
-                foreach (($my_dirname, split(/:/, $ENV{"TEXINPUTS"}))) {
+                foreach (($my_dirname,
+                          defined($ENV{"TEXINPUTS"})?
+                              split(/:/, $ENV{"TEXINPUTS"}):
+                              ".")) {
                     if (-r "$_/$newfilename.tex") {
                         $newfilename = "$_/$newfilename.tex";
                         last;
@@ -798,7 +801,10 @@
 sub parse_definition_file {
     my ($self,$filename)=@_;
 
-    foreach (($my_dirname, split(/:/, $ENV{"TEXINPUTS"}))) {
+    foreach (($my_dirname,
+              defined($ENV{"TEXINPUTS"})?
+                  split(/:/, $ENV{"TEXINPUTS"}):
+                  ".")) {
         if (-r $_."/".$filename) {
             $filename = $_."/".$filename;
             last;