[l2h] graphicx.perl
Bruce Miller
bruce.miller@nist.gov
Tue, 23 Jan 2001 23:25:41 -0500
Whoops!
To whoever is interested ..... Apply this patch first!
Sorry :<
*** graphicx.perl.sent Tue Jan 23 23:18:47 2001
--- graphicx.perl Tue Jan 23 23:19:57 2001
***************
*** 116,123 ****
$dirs = [map("$_$dd$pre",@$dirs)]; }
# file name may already have an extension. If so, we're stuck with
it (?)
! if($name =~ /^(.*)\.([^\.])$/){
! return '' if grep($2 eq $_, @$exts);
$name = $1; $exts = [$2]; }
# Now start searching.
--- 116,123 ----
$dirs = [map("$_$dd$pre",@$dirs)]; }
# file name may already have an extension. If so, we're stuck with
it (?)
! if($name =~ /^(.*)\.([^\.]*)$/){
! return '' unless grep($2 eq $_, @$exts);
$name = $1; $exts = [$2]; }
# Now start searching.
----------------
Bruce Miller
<bruce.miller@nist.gov> http://math.nist.gov/~BMiller/