r14632 - /scripts/qa/DebianQA/Svn.pm

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

Author: tincho-guest
Date: Fri Feb  8 21:31:20 2008
New Revision: 14632

URL: http://svn.debian.org/wsvn/?sc=1&rev=14632
Log:
Add support for non-standard tags -- I don't like it, but wel...

Modified:
    scripts/qa/DebianQA/Svn.pm

Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=14632&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Fri Feb  8 21:31:20 2008
@@ -182,10 +182,10 @@
         info("Retrieving tags for $dir");
         my $pkghome = "$svnpath$prepath/$dir$postpath";
         my $tagdirs = safe_svn_op($svn, ls => $pkghome, 'HEAD', 0);
-        my @tagdirs = sort( { deb_compare_nofail($a, $b) }
-            grep({ $tagdirs->{$_}->kind() == $SVN::Node::dir }
-                keys(%{$tagdirs || {}}))
-        );
+        my @tagdirs = grep({ $tagdirs->{$_}->kind() == $SVN::Node::dir }
+            keys(%{$tagdirs || {}}));
+        map({ s/^(?:debian_)?(?:(?:release|version)_)?//i; s/_/./g } @tagdirs);
+        @tagdirs = sort( { deb_compare_nofail($a, $b) } @tagdirs);
         debug("Tags for $dir: @tagdirs");
         $tags{$dir} = \@tagdirs;
     }