-#!/bin/perl -- # -*- perl -*-
+#! /usr/bin/perl -- # -*- perl -*-
eval 'exec /bin/perl -S $0 "$*"'
if undef;
#
&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);