[l2h] dvips version detection + perl warning

[Erling D. Andersen]

Hi,

I am not perl hacker at all but in 

config.pl

after the code

  foreach $veropt (@tryopts) {
      my ($stat,$msg,$err) = &get_out_err("$dvips $veropt");

      $msg .= $err || '';

      if(!$stat && $msg =~ /(?:^| )dvips(?:\(k\)|k|)\s*(\d+[.]?\d*[A-Z]?)/is) {
        $version = $1;
        last;
      }
    }

I added the line

    $version = '5.94a';

which make things work. Of course this is not general hack but it works 
in this case and may work for others as well.

Properly the regular expression above should be modified. But who knows how to do that.

Regards

Erling




**************************************************************************** 
Denne mail er blevet scannet af http://www.virus112.com 
****************************************************************************