Get epochs on debian where available

This commit is contained in:
Jamie Cameron
2007-10-19 17:22:40 +00:00
parent 5b0f300144
commit d7a5ae5cfe
2 changed files with 8 additions and 1 deletions

View File

@@ -96,7 +96,10 @@ while(<DUMP>) {
}
elsif (/^\s*Version:\s*(\S+)/ && $pkg && !$pkg->{'version'}) {
$pkg->{'version'} = $1;
$pkg->{'version'} =~ s/^\d://;
if ($pkg->{'version'} =~ /^(\d+):(.*)$/) {
$pkg->{'epoch'} = $1;
$pkg->{'version'} = $2;
}
}
}
close(DUMP);

View File

@@ -15,6 +15,10 @@ while(<PKGINFO>) {
$packages{$i,'class'} = &alphabet_name($1);
$packages{$i,'version'} = $2;
$packages{$i,'desc'} = $3;
if ($packages{$i,'version'} =~ /^(\d+):(.*)$/) {
$packages{$i,'epoch'} = $1;
$packages{$i,'version'} = $2;
}
$i++;
}
}