r6183 - /scripts/qa/versioncheck.pl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Tue Jul 31 12:02:20 2007
New Revision: 6183

URL: http://svn.debian.org/wsvn/?sc=1&rev=6183
Log:
Fix upstream version mangling

Modified:
    scripts/qa/versioncheck.pl

Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=6183&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Tue Jul 31 12:02:20 2007
@@ -343,17 +343,22 @@
     foreach(@$list)
     {
         debugmsg("     looking at $_\n") if 0;
-        if( my $uvms = $opts->{uversionmangle} )
-        {
-            my @uvms = map( split(/;/, $_), @$uvms );
-
-            foreach my $uvm( @uvms )
+        if( $_ =~ $filter )
+        {
+            my $ver = $1;
+            if( my $uvms = $opts->{uversionmangle} )
             {
-                eval "\$_ =~ $uvm";
-                die "<<\$_ =~ $uvm>> $@" if $@;
+                my @uvms = map( split(/;/, $_), @$uvms );
+
+                foreach my $uvm( @uvms )
+                {
+                    eval "\$ver =~ $uvm";
+                    die "<<\$_ =~ $uvm>> $@" if $@;
+                    debugmsg("     mangled: $ver\n");
+                }
             }
-        }
-        push @vers, [$1, $key] if $_ =~ $filter;
+            push @vers, [$ver, $key];
+        }
     }
 
     return @vers;