r8532 - /scripts/qa/versioncheck2.pl

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

Author: tincho-guest
Date: Tue Oct 23 21:30:11 2007
New Revision: 8532

URL: http://svn.debian.org/wsvn/?sc=1&rev=8532
Log:
Fix to the problem of wrong version mismatch detection: watch_unmangled_ver wasn't updated when commiting changelogs

Modified:
    scripts/qa/versioncheck2.pl

Modified: scripts/qa/versioncheck2.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck2.pl?rev=8532&op=diff
==============================================================================
--- scripts/qa/versioncheck2.pl (original)
+++ scripts/qa/versioncheck2.pl Tue Oct 23 21:30:11 2007
@@ -793,6 +793,13 @@
     foreach(keys %$data) {
         $maindata{$pkg}{$_} = $data->{$_};
     }
+    delete $maindata{$pkg}{watch_unmangled_ver};
+    if($maindata{$pkg}{chl_ver} and $maindata{$pkg}{watch}) {
+        my $up_svn = $maindata{$pkg}{chl_ver};
+        $up_svn =~ s/^(?:\d+:)?(.+?)(?:-[^-]+)?$/$1/;
+        $up_svn = unmangle_debian_version($up_svn, $maindata{$pkg}{watch});
+        $maindata{$pkg}{watch_unmangled_ver} = $up_svn;
+    }
 }
 if($cpan_updated) {
     push @wmodified, grep(