remove $Id$ strings from everywhere that I can find

[spider.git] / cmd / stat / msg.pl

diff --git a/cmd/stat/msg.pl b/cmd/stat/msg.pl
index dfacd062602fcbd69c0c321ea0661ca9682b0403..6dd9760fd3cf3eb4102b9a4c4041e610408b5e93 100644 (file)
--- a/cmd/stat/msg.pl
+++ b/cmd/stat/msg.pl
@@ -1,7 +1,7 @@
 #
 # show all the values on a message header
 #
-# $Id$
+#
 #
 
 my ($self, $line) = @_;
@@ -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;