r6691 - /scripts/qa/versioncheck2.pl

[tincho-guest at users.alioth.debian.org]

Author: tincho-guest
Date: Thu Aug 16 01:41:05 2007
New Revision: 6691

URL: http://svn.debian.org/wsvn/?sc=1&rev=6691
Log:
When invoked with names of packages, it shows the status even if they aren't out of date.

Modified:
    scripts/qa/versioncheck2.pl

Modified: scripts/qa/versioncheck2.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck2.pl?rev=6691&op=diff
==============================================================================
--- scripts/qa/versioncheck2.pl (original)
+++ scripts/qa/versioncheck2.pl Thu Aug 16 01:41:05 2007
@@ -764,9 +764,11 @@
 to_cache(\%maindata, "maindata");
 
 my @pkgs_to_check;
+my $showalways;
 if( @ARGV )
 {
     @pkgs_to_check = @ARGV;
+    $showalways = 1;
 }
 else
 {
@@ -800,7 +802,7 @@
     debugmsg(sprintf(" - SVN has %s (upstream version=%s)\n",
             $pkg->{chl_ver} || 'none', $pkg->{watch_unmangled_ver} || 'none'));
 
-    next unless(
+    next unless($showalways or
         $pkg->{watch_unmangled_ver} ne $pkg->{watch_ver}
             or
         (! $packages{$_} or $pkg->{chl_ver} ne $packages{$_})