r6170 - /scripts/qa/versioncheck.pl
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Tue Jul 31 09:28:15 UTC 2007
Author: dmn
Date: Tue Jul 31 09:28:15 2007
New Revision: 6170
URL: http://svn.debian.org/wsvn/?sc=1&rev=6170
Log:
Fix uversionmangle handling
Modified:
scripts/qa/versioncheck.pl
Modified: scripts/qa/versioncheck.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck.pl?rev=6170&op=diff
==============================================================================
--- scripts/qa/versioncheck.pl (original)
+++ scripts/qa/versioncheck.pl Tue Jul 31 09:28:15 2007
@@ -300,7 +300,7 @@
debugmsg(" looking at $_\n") if 0;
if( my $uvms = $opts->{uversionmangle} )
{
- my @uvms = split(/;/, $uvms);
+ my @uvms = map( split(/;/, $_), @$uvms );
foreach my $uvm( @uvms )
{
More information about the Pkg-perl-cvs-commits
mailing list