X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=0ef242352a28cb1e4c8532e584396600418df09b;hb=bdea2174f3035fb9b75858dc1d6e2be47b1e8fc1;hp=ee2e7e5ec67c52798041a9cd92e67b6be228be6e;hpb=685da1fc8aebf1b363b16e2664c90dc6eb9ac7a1;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index ee2e7e5e..0ef24235 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -761,7 +761,7 @@ sub init
 
 	@msg = ();
 	for (sort @dir) {
-		next unless /^m\d+$/o;
+		next unless /^m\d\d\d\d\d\d$/;
 		
 		$ref = read_msg_header("$msgdir/$_");
 		unless ($ref) {