From: 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'); }