[l2h] verbatim.perl: foreach $dir ("$texfilepath", split(/:/, $ENV{'TEXINPUTS'})) {

[Ross Moore]

Hi Erling,

On 26/04/2004, at 7:56 PM, Erling D. Andersen wrote:

> Hi
>
> In
>
> verbatim.perl
>
> I found the the following code
>
>  foreach $dir ("$texfilepath", split(/:/,$ENV{'TEXINPUTS'})) {
>         if (-f ($_ = "$dir/$file") || -f ($_ = "$dir/$file2")) {
>             $found=1;
>             #overread $_ with file contents
>             &slurp_input($_);
>             last;
>         }
>
> a. I think
>
> $ENV{'TEXINPUTS'}
>
> should be replaced by
>
> $TEXINPUTS?
>
> I thought $ENV{'TEXINPUTS'} is the OS env variable that latex2html  
> does not use it but rather
> defines $TEXINPUTS.

Yes, I think you are right.

This verbatim.perl wasn't written by me.
It would have been contributed by someone else,
and looks as though it hasn't been integrated to
become platform-independent.

It might be best to search in all the possible places:

foreach $dir ("$texfilepath", split(/$envkey/,$TEXINPUTS)
     , split(/$envkey/,$ENV{'TEXINPUTS'})) {


where  $envkey  is the PATH separator delimiter.

and the  $dir/$file  should be   $dir$dd$file  etc.



>
> b. /:/ should be replaced by /;/ on Windows?  Texinputs may have  
> c:\mydir dir so splitting on :
> seems a bad idea.

Yep; this would happen automatically using  $envkey .


>
> I know nothing about PERL so I might have misunderstood it.
>
> Erling
>
> PS: My fix seems to solve a problem for me.

Thanks for reporting this.


Cheers

	Ross


>
>
> *********************************************************************** 
> **
> MOSEK ApS
> C/O Symbion Science Park
> Fruebjergvej 3, Boks 16
> DK-2100 Copenhagen O
> Denmark
>
> Phone (work): +45 3917 9907
> Mobile-phone: +45 2362 9520
> Fax:               +45 3917 9823
> Email to phone: 23629520 at gsm1800.telia.dk
> Email: e.d.andersen at mosek.com
> Homepage: http://erling.andersen.name
>                   http://www.mosek.com/homepages/e.d.andersen/
>
> *********************************************************************** 
> **
>
>
> *********************************************************************** 
> *****
> Denne mail er blevet scannet af http://www.virus112.com
> *********************************************************************** 
> *****
> _______________________________________________
> latex2html mailing list
> latex2html at tug.org
> http://tug.org/mailman/listinfo/latex2html
>
------------------------------------------------------------------------
Ross Moore                                         ross at maths.mq.edu.au
Mathematics Department                             office: E7A-419
Macquarie University                               tel: +61 +2 9850 8955
Sydney, Australia                                  fax: +61 +2 9850 8114
------------------------------------------------------------------------