X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fstat%2Fmsg.pl;h=715c866701a5af64c075426df20ebc9b858d02c2;hb=36bd2cf34476999d513a1ca60f6ee6c5204c3132;hp=dfacd062602fcbd69c0c321ea0661ca9682b0403;hpb=1283d7c748715a1bf85a781fe4b66f427d949ae9;p=spider.git

diff --git a/cmd/stat/msg.pl b/cmd/stat/msg.pl
index dfacd062..715c8667 100644
--- a/cmd/stat/msg.pl
+++ b/cmd/stat/msg.pl
@@ -13,9 +13,9 @@ return (1, $self->msg('e5')) if $self->priv < 1;
 if (@list == 0) {
 	my $ref;
 	push @out, "Work Queue Keys";
-	push @out, map { " $_" } sort DXMsg::get_all_fwq();
+	push @out, map { " $_" } sort (DXMsg::get_all_fwq());
 	push @out, "Busy Queue Data";
-	foreach my $key (sort DXMsg::get_all_busy()) {
+	foreach my $key (sort (DXMsg::get_all_busy())) {
 		$ref = DXMsg::get_busy($key);
 		if ($ref) {
 			my $msgno = $ref->msgno;