r5944 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Jul 20 15:00:42 2007
New Revision: 5944

URL: http://svn.debian.org/wsvn/?sc=1&rev=5944
Log:
Also supply svn version to latest_..._from_watch; will be needed in the future

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=5944&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Fri Jul 20 15:00:42 2007
@@ -163,9 +163,9 @@
 }
 
 # RETURNS undef if all watch files point to CPAN
-sub latest_upstream_from_watch($;$)
-{
-    my ($watch, $cpan_ver) = @_;
+sub latest_upstream_from_watch($;$$)
+{
+    my ($watch, $cpan_ver, $svn_ver) = @_;
 
     return $cpan_ver || 'EUNIMPL';
 }
@@ -352,7 +352,7 @@
             {
                 $in_cpan = latest_upstream_from_cpan(\@watch);
                 debugmsg( sprintf( " - CPAN has %s\n", $in_cpan||'none' ) );
-                $upstream = latest_upstream_from_watch(\@watch, $in_cpan);
+                $upstream = latest_upstream_from_watch(\@watch, $in_cpan, $up_svn);
                 debugmsg( sprintf( " - upstream has %s\n", $upstream||'none' ) );
             }
             else