diff options
author | Michael Schröder <mls@suse.de> | 2009-07-17 13:20:15 +0000 |
---|---|---|
committer | Michael Schröder <mls@suse.de> | 2009-07-17 13:20:15 +0000 |
commit | 3ab0569b9a64a54f825b2f79d1852025b81aa408 (patch) | |
tree | 944e25e0f34c4cfeabcf57ca1bf0d80767affb51 /createrpmdeps | |
parent | fab914e2885bc1662a4e59fba6d600be82cd5574 (diff) |
- also add rpmv3 compatibility hack to createrpmdeps
Diffstat (limited to 'createrpmdeps')
-rwxr-xr-x | createrpmdeps | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/createrpmdeps b/createrpmdeps index ba30c42..0240e94 100755 --- a/createrpmdeps +++ b/createrpmdeps @@ -97,6 +97,14 @@ foreach my $dir (@ARGV) { $known2path{$known} = $path; } } + # rpm3 compatibility: retrofit missing self provides + my $name = $res{1000}->[0]; + if (!@{$res{1047} || []} || $res{1047}->[-1] !~ /^\Q$name\E =/) { + my $evr = "$res{1001}->[0]-$res{1002}->[0]"; + $evr = "$res{1003}->[0]:$evr" if $res{1003} && $res{1003}->[0]; + push @{$res{1047}}, "$name = $evr"; + } + $newp{$known} = "P:$known: ".join(' ', @{$res{1047} || []}); $newr{$known} = "R:$known: ".join(' ', @{$res{1049} || []}); #$tag{$known} = $res{1000}->[0]."-".$res{1001}->[0]."-".$res{1002}->[0]." ".$res{1007}->[0]."-".$res{1006}->[0]; |