X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=blobdiff_plain;f=bin%2Ffixhtml;h=d01a8eb4e2e4255fc0eee63ba92e57497f3934d4;hp=3d8acbaa647ff4299dbddaecd2e33b2940821226;hb=271bd12bf3ce2bbf0e03fa5fe2bec93840d2c247;hpb=a48c0fc6077a2d7cd968804a6409d40c86449ca5

diff --git a/bin/fixhtml b/bin/fixhtml
index 3d8acba..d01a8eb 100755
--- 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);