Fix substitution of the non-last attributes.

Fix the `perl' interpreter path.

diff --git a/bin/fixhtml b/bin/fixhtml
index 3d8acba..d01a8eb 100755 (executable)
--- a/bin/fixhtml
+++ b/bin/fixhtml
@@ -1,4 +1,4 @@
-#!/bin/perl -- # -*- perl -*-
+#! /usr/bin/perl -- # -*- perl -*-
 eval 'exec /bin/perl -S $0 "$*"'
     if undef;
 #
@@ -110,7 +110,7 @@ FLSKIP: while (<FEED>) {
        &split_url($x):("localhost",$port,$zb,$zc,$zd));
 #print "par=\"$x\", h=\"$h\", n=\"$n\", p=\"$p\", f=\"$f\", e=\"$e\",
 #       host=\"$host\", port=\"$port\"\n";
-     $minone=($e=~s/\?/%3F/g);
+     $minone||=($e=~s/\?/%3F/g);
      if (($h eq "localhost" || $h eq $host) && $n eq $port) {
       @new=split('/',$pth);
       @nwa=split('/',$p);