r6183 - /scripts/qa/versioncheck.pl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Tue Jul 31 12:02:21 UTC 2007
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;
More information about the Pkg-perl-cvs-commits
mailing list