fix the nasty feature in perl 5.6 with my $ref = $foo if $bar for

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d8dad2c3280ad54b6716dedf6e57aa968515ba59..ec395d207b174459118d637179ed402cd8c481a8 100644 (file)
--- 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 {