[l2h] problem with dots in paths

[Jeffery Collins]

To avoid problems with paths like:

/install/Python-2.0/stuff.tex

I replaced:

sub check_for_dots {
    local($file) = @_;
    if ($file =~ /\.[^.]*\./) {
        die "\n\n\n *** Fatal Error --- but easy to fix ***\n"
            . "\nCannot have '.' in file-name prefix, else dvips fails on
images"
            . "\nChange the name from  $file  and try again.\n\n";
    }
}

with:

sub check_for_dots {
    local($file) = @_;
    $file = `basename $file`;
    if ($file =~ /\.[^.]*\./) {
        die "\n\n\n *** Fatal Error --- but easy to fix ***\n"
            . "\nCannot have '.' in file-name prefix, else dvips fails on
images"
            . "\nChange the name from  $file  and try again.\n\n";
    }
}


Note that this fix should probably go in the caller of check_for_dots.

Jeff