r12770 - in /scripts/qa/DebianQA: Archive.pm Common.pm

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

Author: tincho-guest
Date: Tue Jan 15 13:35:02 2008
New Revision: 12770

URL: http://svn.debian.org/wsvn/?sc=1&rev=12770
Log:
Correctly determine relevant source of newest version.
Bump version.

Modified:
    scripts/qa/DebianQA/Archive.pm
    scripts/qa/DebianQA/Common.pm

Modified: scripts/qa/DebianQA/Archive.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Archive.pm?rev=12770&op=diff
==============================================================================
--- scripts/qa/DebianQA/Archive.pm (original)
+++ scripts/qa/DebianQA/Archive.pm Tue Jan 15 13:35:02 2008
@@ -92,9 +92,26 @@
             $g->{$pkg}{$suite} = $data->{$suite}{$pkg};
         }
     }
+    # Hash for comparing equivalent versions in different suites
+    my %src_compare = (
+        oldstable   => 1, # not 0, so no need to test defined()
+        sarge       => 1,
+        stable      => 2,
+        etch        => 2,
+        testing     => 3,
+        lenny       => 3,
+        experimental => 4,
+        incoming    => 5,
+        new         => 6,
+        unstable    => 7,
+        sid         => 8,
+        other       => 9
+    );
     foreach my $pkg (keys(%$g)) {
         my @recent = sort( {
-                deb_compare_nofail($g->{$pkg}{$a}, $g->{$pkg}{$b})
+                deb_compare_nofail($g->{$pkg}{$a}, $g->{$pkg}{$b}) or
+                ($src_compare{$a} || $src_compare{other}) <=>
+                ($src_compare{$b} || $src_compare{other})
             } keys(%{$g->{$pkg}}));
         $g->{$pkg}{most_recent} = $g->{$pkg}{$recent[-1]};
         $g->{$pkg}{most_recent_src} = $recent[-1];

Modified: scripts/qa/DebianQA/Common.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Common.pm?rev=12770&op=diff
==============================================================================
--- scripts/qa/DebianQA/Common.pm (original)
+++ scripts/qa/DebianQA/Common.pm Tue Jan 15 13:35:02 2008
@@ -19,7 +19,7 @@
 #our $VERSION = qv("1.000");
 
 # Bump this version in case of data file change
-our $VERSION = 1.001;
+our $VERSION = 1.002;
 
 use DebianQA::Config '%CFG';
 use POSIX;