r8533 - /scripts/qa/versioncheck2.pl

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

Author: tincho-guest
Date: Tue Oct 23 21:38:47 2007
New Revision: 8533

URL: http://svn.debian.org/wsvn/?sc=1&rev=8533
Log:
New commandline option: --rescan <pkg>, forces rescan of just one package. Can be repeated

Modified:
    scripts/qa/versioncheck2.pl

Modified: scripts/qa/versioncheck2.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck2.pl?rev=8533&op=diff
==============================================================================
--- scripts/qa/versioncheck2.pl (original)
+++ scripts/qa/versioncheck2.pl Tue Oct 23 21:38:47 2007
@@ -38,6 +38,7 @@
 our $opt_debug = 0;
 my $force_cpan = 0;
 my $force_rescan = 0;
+my @pkg_rescan = ();
 our $CACHEDIR = "$ENV{HOME}/.dpg/versioncheck";
 our $svn = SVN::Client->new();
 
@@ -45,6 +46,7 @@
     'debug!'         => \$opt_debug,
     'force-cpan!'    => \$force_cpan,
     'force-rescan!'  => \$force_rescan,
+    'rescan=s'       => \@pkg_rescan,
     'cache-dir=s'    => \$CACHEDIR
 );
 
@@ -777,6 +779,10 @@
     );
 }
 $maindata{"//lastrev"} = $cur_ver;
+foreach(@pkg_rescan) { # forced rescan of packages
+    push @wmodified, $_;
+    push @cmodified, $_;
+}
 foreach(@svn_packages) {
     next if($maindata{$_});
     $maindata{$_} = {};