[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;