[l2h] graphicx.perl

[Bruce Miller]

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/