chomp $line;
my @fields = split "[\t]+" , $line;
- $XSA[$i] = "$fields[0]";
- $XSA_PATCH[$i] = "$fields[1]";
- $XSA_ID[$i] = "$fields[2]";
+
+ # Ignore entries, which we don't understand
+ if ($fields[1] =~ /patch/ ) {
+
+ $XSA[$i] = "$fields[0]";
+ $XSA_PATCH[$i] = "$fields[1]";
+ $XSA_ID[$i] = "$fields[2]";
- $XSA[$i] =~ s/\r$//g;
- $XSA_PATCH[$i] =~ s/\r$//g;
- $XSA_ID[$i] =~ s/\r$//g;
+ $XSA[$i] =~ s/\r$//g;
+ $XSA_PATCH[$i] =~ s/\r$//g;
+ $XSA_ID[$i] =~ s/\r$//g;
- $i++;
+ $i++;
+ }
}
close($data);
$XSAs = $i-1;