r6711 - /scripts/qa/versioncheck2.pl

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Thu Aug 16 07:19:05 UTC 2007


Author: tincho-guest
Date: Thu Aug 16 07:19:05 2007
New Revision: 6711

URL: http://svn.debian.org/wsvn/?sc=1&rev=6711
Log:
Fixed the re-checking of the last revision. Added a couple of debug messages.

Modified:
    scripts/qa/versioncheck2.pl

Modified: scripts/qa/versioncheck2.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck2.pl?rev=6711&op=diff
==============================================================================
--- scripts/qa/versioncheck2.pl (original)
+++ scripts/qa/versioncheck2.pl Thu Aug 16 07:19:05 2007
@@ -717,7 +717,10 @@
         %maindata = %md;
     }
     $svn->log( ["$SVN_REPO/trunk"], $maindata{"//lastrev"}, "HEAD", 1, 1, sub {
+            return if($_[1] <= $maindata{"//lastrev"});
+            debugmsg("Scanning changes from revision $_[1]:\n");
             foreach(keys %{$_[0]}) {
+                debugmsg("- $_\n");
                 if(m{^/?trunk/([^/]+)/debian/(changelog|watch)$}) {
                     if($2 eq "changelog") {
                         push @cmodified, $1;




More information about the Pkg-perl-cvs-commits mailing list