Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 2a220e5609
Fetching contributors…

Cannot retrieve contributors at this time

executable file 22 lines (18 sloc) 0.364 kB
#!/usr/bin/perl
# Copyright: see COPYING
# Authors: see git-blame(1)
$, = "\t";
$\ = "\n";
while(<>)
{
chomp;
@F = split;
my $variant_name = $F[8];
if ($variant_name =~ /^None$/i) {
$variant_name = $F[7];
}
if ($variant_name =~ /^none$/i) {
next;
}
print ("unknown", $variant_name, $F[0], $F[1], $F[1], $F[2], $F[4], $F[5]);
}
Jump to Line
Something went wrong with that request. Please try again.