From cd651c730ce8a5078bf36d24a9d679dac8fc4a3b Mon Sep 17 00:00:00 2001 From: minima Date: Thu, 9 Dec 2004 10:41:44 +0000 Subject: [PATCH] fix default in sh/qrz --- Changes | 3 +++ cmd/show/qrz.pl | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/Changes b/Changes index 5d95a999..66f31cd4 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,6 @@ +09Dec04======================================================================= +1. fix show/mydx properly this time (and test the fix!) +2. fix the default in show/qrz 06Dec04======================================================================= 1. fix show/mydx if there is no defined spotfilter 07Oct04======================================================================= diff --git a/cmd/show/qrz.pl b/cmd/show/qrz.pl index ca1935a4..fdcdc59d 100644 --- a/cmd/show/qrz.pl +++ b/cmd/show/qrz.pl @@ -22,7 +22,7 @@ return (1, "SHOW/QRZ , e.g. SH/QRZ g1tlh") unless @list; my $target = $Internet::http_proxy || $Internet::qrz_url || 'www.qrz.com'; my $port = $Internet::http_proxy_port || 80; my $url = ''; -$url = 'http://' . ($Internet::qrz_url || '$www.qrz.com') if $Internet::http_proxy; +$url = 'http://' . ($Internet::qrz_url | 'www.qrz.com') if $Internet::http_proxy; use Net::Telnet; -- 2.43.0