r8916 - /scripts/qa/qareport
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Tue Nov 6 11:19:32 UTC 2007
Author: tincho-guest
Date: Tue Nov 6 11:19:32 2007
New Revision: 8916
URL: http://svn.debian.org/wsvn/?sc=1&rev=8916
Log:
more modifications about versions
Modified:
scripts/qa/qareport
Modified: scripts/qa/qareport
URL: http://svn.debian.org/wsvn/scripts/qa/qareport?rev=8916&op=diff
==============================================================================
--- scripts/qa/qareport (original)
+++ scripts/qa/qareport Tue Nov 6 11:19:32 2007
@@ -54,18 +54,18 @@
my $status;
if(! $dver) {
$status = "Needs finishing";
- } elsif($werr or $dwerr or not $m_dver) {
- $status = "Watchfile problem";
} elsif(deb_compare($archver, $dver) > 0) {
$status = "Ancient version in SVN";
} elsif(deb_compare($archver, $dver) != 0) {
$status = "Needs uploading";
- } elsif(! $uver) {
+ } elsif($dwerr or not $m_dver or not $m_uver or not $uver) {
$status = "Watchfile problem";
- } elsif(deb_compare($m_dver, $uver) > 0) {
+ } elsif(deb_compare($m_dver, $m_uver) > 0) {
$status = "Ancient version in upstream?";
- } elsif(deb_compare($m_dver, $uver) != 0) {
+ } elsif(deb_compare($m_dver, $m_uver) != 0) {
$status = "Needs upgrading to newer upstream";
+ } elsif($werr) {
+ $status = "Watchfile problem";
}
next unless($status or @bugs);
print "$pkg:", ( $pkg ne $svnpath ? " (SVN: $svnpath)" : '' ), "\n";
More information about the Pkg-perl-cvs-commits
mailing list