r8915 - /scripts/qa/qareport
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Tue Nov 6 11:11:49 UTC 2007
Author: tincho-guest
Date: Tue Nov 6 11:11:49 2007
New Revision: 8915
URL: http://svn.debian.org/wsvn/?sc=1&rev=8915
Log:
handle mangled vers
Modified:
scripts/qa/qareport
Modified: scripts/qa/qareport
URL: http://svn.debian.org/wsvn/scripts/qa/qareport?rev=8915&op=diff
==============================================================================
--- scripts/qa/qareport (original)
+++ scripts/qa/qareport Tue Nov 6 11:11:49 2007
@@ -37,7 +37,7 @@
my @pkglist = @dirs;
@pkglist = get_pkglist() unless(@pkglist);
-foreach my $pkg (sort @pkglist) {
+foreach my $pkg (@pkglist) {
next if($pkg =~ /^\//);
my $svnpath = $data->{svn}{$pkg}{dir};
my $werr = $data->{watch}{$pkg}{error};
@@ -47,13 +47,14 @@
my $undver = $data->{svn}{$pkg}{un_version};
my $archver = $data->{archive}{$pkg}{most_recent} || 0;
my $uver = $data->{watch}{$pkg}{upstream_ver};
+ my $m_uver = $data->{watch}{$pkg}{upstream_mangled};
my @bugs = @{$data->{bts}{$pkg}};
@bugs = map({ "#$_" } @bugs);
my $status;
if(! $dver) {
$status = "Needs finishing";
- } elsif($dwerr or not $m_dver) {
+ } elsif($werr or $dwerr or not $m_dver) {
$status = "Watchfile problem";
} elsif(deb_compare($archver, $dver) > 0) {
$status = "Ancient version in SVN";
@@ -72,9 +73,11 @@
print " - Version status: $status\n";
print " + Watch status: ", $werr || "OK", "\n";
print " + SVN: ", $dver || "none";
+ print " (mangled: ", $m_dver || "none", ")";
print " (unreleased: $undver)" if($undver);
print " Archive: ", $archver || "Not uploaded";
- print " Upstream: ", $uver || "Unknown", "\n";
+ print " Upstream: ", $uver || "Unknown";
+ print " (mangled: ", $m_uver || "Unknown", ")\n";
}
print " + Bugs: ", join(", ", @bugs), "\n" if(@bugs);
}
More information about the Pkg-perl-cvs-commits
mailing list