print/html2ps-letter/files/patch-ab


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

--- html2ps.orig    Sat Aug  9 20:59:05 1997
+++ html2ps Mon Jul 19 21:55:04 1999
@@ -1,5 +1,5 @@
 : # Use perl
-eval 'exec perl -S $0 "$@"'
+eval 'exec /usr/bin/perl5 -S $0 "$@"'
   if $running_under_some_shell;
 
 # This is html2ps version 1.0 beta1, an HTML-to-PostScript converter.
@@ -4072,6 +4072,7 @@
       $URL=$url;
       unless($url=~m|://|) {
         if($url=~m|^http:(.*)|) {$url=$1}
+   if($url=~m|^file:(.*)|) {$url=$1}
         if($url=~m|^/|) {$URL=$b1.$url} else {$URL=$b2.$url}
       }
       while($URL!~m|^\.\./| && $URL=~m|[^/]*/\.\./|) {$URL=$`.$'};