removed extranous , in qw

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 11d37f259f473f1c3a01f7568bd1698a68f7012f..caa01789bab372380a05bdee908c6ce1f0a7e3fa 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -31,7 +31,7 @@ use strict;
 use vars qw($me $pc11_max_age $pc23_max_age $pc11_dup_age $pc23_dup_age
                        %spotdup %wwvdup $last_hour %pings %rcmds
                        %nodehops @baddx $baddxfn $pc12_dup_age
-                       %anndup $allowzero, $pc12_dup_lth);
+                       %anndup $allowzero $pc12_dup_lth);
 
 $me = undef;                                   # the channel id for this cluster
 $pc11_max_age = 1*3600;                        # the maximum age for an incoming 'real-time' pc11