From 3ab0569b9a64a54f825b2f79d1852025b81aa408 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Michael=20Schr=C3=B6der?= <mls@suse.de>
Date: Fri, 17 Jul 2009 13:20:15 +0000
Subject: [PATCH] - also add rpmv3 compatibility hack to createrpmdeps

---
 createrpmdeps | 8 ++++++++
 1 file changed, 8 insertions(+)

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];
-- 
2.7.4