preparing for 1.23 release

[spider.git] / perl / DXMsg.pm

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 45f3afb9b6d9bd408198879277421f9d94e33ba9..8dcb09924630aab7de7c3a3547b6988f54dd75fc 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -626,7 +626,8 @@ sub init
        opendir($dir, $msgdir) or confess "can't open $msgdir $!";
        @dir = readdir($dir);
        closedir($dir);
-       
+
+       @msg = ();
        for (sort @dir) {
                next if /^\./o;
                next if ! /^m\d+/o;