From: minima <minima>
Date: Mon, 5 Mar 2001 22:29:05 +0000 (+0000)
Subject: uppercase it
X-Git-Tag: R_1_47~138
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4c359e47990e8dae13161e92b373aa4b16b76513;p=spider.git

uppercase it
---

diff --git a/cmd/show/qrz.pl b/cmd/show/qrz.pl
index 4468e131..910b1997 100644
--- a/cmd/show/qrz.pl
+++ b/cmd/show/qrz.pl
@@ -39,7 +39,7 @@ foreach $l (@list) {
 			}
 		}
 		$t->close;
-		push @out, $self->msg('e3', 'qrz.com', $l) unless @out;
+		push @out, $self->msg('e3', 'qrz.com', uc $l) unless @out;
 	} else {
 		push @out, $self->msg('e18', 'QRZ.com');
 	}