diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-08-16 20:12:13 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2013-08-16 20:12:13 +0100 |
commit | 8601f11872048f1e3209188d2636d7344c75177e (patch) | |
tree | 02330884f687aaae979f270fc8eed5a0737e2962 /dgit | |
parent | 2f0cebfee6ee94456b0b296ea16a30727ba9a414 (diff) |
fix madison thing
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -209,7 +209,7 @@ sub parsechangelog { return $c; } -our $rmad; +our %rmad; sub archive_query () { my $query = access_cfg('archive-query'); @@ -218,13 +218,15 @@ sub archive_query () { my $proto = $1; my $url = $'; #'; die unless $proto eq 'madison'; - $rmad ||= cmdoutput qw(rmadison -asource),"-s$suite","-u$url",$package; + $rmad{$package} ||= cmdoutput + qw(rmadison -asource),"-s$suite","-u$url",$package; + my $rmad = $rmad{$package}; if (!length $rmad) { return (); } $rmad =~ m{^ \s*( [^ \t|]+ )\s* \| \s*( [^ \t|]+ )\s* \| - \s*( [^ \t|/]+ )(?:/([^ \t|/]+)) \s* \| + \s*( [^ \t|/]+ )(?:/([^ \t|/]+))? \s* \| \s*( [^ \t|]+ )\s* }x or die "$rmad $?"; $1 eq $package or die "$rmad $package ?"; my $vsn = $2; |