r8911 - /scripts/qa/qareport
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Tue Nov 6 10:31:47 UTC 2007
Author: tincho-guest
Date: Tue Nov 6 10:31:47 2007
New Revision: 8911
URL: http://svn.debian.org/wsvn/?sc=1&rev=8911
Log:
Skip version info when updated
Modified:
scripts/qa/qareport
Modified: scripts/qa/qareport
URL: http://svn.debian.org/wsvn/scripts/qa/qareport?rev=8911&op=diff
==============================================================================
--- scripts/qa/qareport (original)
+++ scripts/qa/qareport Tue Nov 6 10:31:47 2007
@@ -68,12 +68,14 @@
}
next unless($status or @bugs);
print "$pkg:", ( $pkg ne $svnpath ? " (SVN: $svnpath)" : '' ), "\n";
- print " - Version status: ", $status || "OK!", "\n";
- print " + Watch status: ", $werr || "OK", "\n";
- print " + SVN: ", $dver || "none";
- print " (unreleased: $undver)" if($undver);
- print " Archive: ", $archver || "Not uploaded";
- print " Upstream: ", $uver || "Unknown", "\n";
+ unless($status) {
+ print " - Version status: $status\n";
+ print " + Watch status: ", $werr || "OK", "\n";
+ print " + SVN: ", $dver || "none";
+ print " (unreleased: $undver)" if($undver);
+ print " Archive: ", $archver || "Not uploaded";
+ print " Upstream: ", $uver || "Unknown", "\n";
+ }
print " + Bugs: ", join(", ", @bugs), "\n" if(@bugs);
}
#use Data::Dumper; print Dumper $data;
More information about the Pkg-perl-cvs-commits
mailing list