X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=ec395d207b174459118d637179ed402cd8c481a8;hb=5851dcf9c9c37e30a01cbb4d94b3681e6e542b57;hp=d8dad2c3280ad54b6716dedf6e57aa968515ba59;hpb=86c5d79248c5e263a20e39c85610d531bbb3b37d;p=spider.git diff --git a/perl/DXProt.pm b/perl/DXProt.pm index d8dad2c3..ec395d20 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 {