r6851 - /scripts/qa/versioncheck2.pl

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

Author: tincho-guest
Date: Fri Aug 17 17:54:53 2007
New Revision: 6851

URL: http://svn.debian.org/wsvn/?sc=1&rev=6851
Log:
Fix for just-adopted packages to be displayed correctly

Modified:
    scripts/qa/versioncheck2.pl

Modified: scripts/qa/versioncheck2.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck2.pl?rev=6851&op=diff
==============================================================================
--- scripts/qa/versioncheck2.pl (original)
+++ scripts/qa/versioncheck2.pl Fri Aug 17 17:54:53 2007
@@ -555,21 +555,27 @@
     if(! $changelog) {
         return { chl_ver => "Missing changelog" };
     }
-
-    foreach( Parse::DebianChangelog->init({instring=>$changelog})->data )
-    {
-        next unless $_->Distribution eq 'unstable';
-        next if $_->Changes =~ /NOT RELEASED/;
-
-        return {
-            chl_ver => $_->Version,
-            chl_changer => $_->Maintainer,
-            chl_date => $_->Date,
-            chl_pkg => $_->Source,
-            chl_native => scalar($_->Version !~ /-./)
-        };
-    }
-    return { chl_ver => "Invalid changelog" };
+    
+    my @chl = Parse::DebianChangelog->init({instring=>$changelog})->data;
+    my @validchl = grep({ $_->Distribution eq 'unstable' and
+            $_->Changes !~ /NOT RELEASED/ } @chl);
+    my($chl, $ver);
+    if(@validchl) {
+        $chl = shift @validchl;
+        $ver = $chl->Version;
+    } elsif(@chl) {
+        $chl = shift @chl;
+        $ver = "Unreleased";
+    } else {
+        return { chl_ver => "Invalid changelog" };
+    }
+    return {
+        chl_ver => $ver,
+        chl_changer => $chl->Maintainer,
+        chl_date => $chl->Date,
+        chl_pkg => $chl->Source,
+        chl_native => scalar($chl->Version !~ /-./)
+    };
 }
 sub read_watch ($) {
     my( $dir ) = @_;