X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProt.pm;h=16c91803950701bfccd329de119a87208aa66dc7;hb=a472851a7e290dac262131fd7f73b567332df6e4;hp=d8dad2c3280ad54b6716dedf6e57aa968515ba59;hpb=86c5d79248c5e263a20e39c85610d531bbb3b37d;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d8dad2c3..16c91803 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -972,6 +972,12 @@ sub handle_19
 				} else {
 					next;
 				}
+			} else {
+				if ($r->version != $ver || $r->flags != $flags) {
+					$r->version($ver);
+					$r->flags($flags);
+					push @rout, $r;
+				}
 			}
 		} else {
 
@@ -2409,7 +2415,6 @@ sub import_chat
 	my $name;
 	foreach $name (@names) {
 		next if $name =~ /^\./;
-		my $splitit = $name =~ /^split/;
 		my $fn = "$chatimportfn/$name";
 		next unless -f $fn;
 		unless (open(MSG, $fn)) {