- don't add self-provides for src packages
authorMichael Schroeder <mls@suse.de>
Tue, 28 Aug 2012 12:21:01 +0000 (14:21 +0200)
committerMichael Schroeder <mls@suse.de>
Tue, 28 Aug 2012 12:21:01 +0000 (14:21 +0200)
Build/Rpm.pm

index 139a6b0..fbb7dee 100644 (file)
@@ -851,18 +851,20 @@ sub query {
   }
 
   # rpm3 compatibility: retrofit missing self provides
-  my $haveselfprovides;
-  if (@{$data->{'provides'}}) {
-    if ($data->{'provides'}->[-1] =~ /^\Q$res{'NAME'}->[0]\E =/) {
-      $haveselfprovides = 1;
-    } elsif (@{$data->{'provides'}} > 1 && $data->{'provides'}->[-2] =~ /^\Q$res{'NAME'}->[0]\E =/) {
-      $haveselfprovides = 1;
-    }
-  }
-  if (!$haveselfprovides) {
-    my $evr = "$res{'VERSION'}->[0]-$res{'RELEASE'}->[0]";
-    $evr = "$res{'EPOCH'}->[0]:$evr" if $res{'EPOCH'} && $res{'EPOCH'}->[0];
-    push @{$data->{'provides'}}, "$res{'NAME'}->[0] = $evr";
+  if ($src ne '') {
+    my $haveselfprovides;
+    if (@{$data->{'provides'}}) {
+      if ($data->{'provides'}->[-1] =~ /^\Q$res{'NAME'}->[0]\E =/) {
+       $haveselfprovides = 1;
+      } elsif (@{$data->{'provides'}} > 1 && $data->{'provides'}->[-2] =~ /^\Q$res{'NAME'}->[0]\E =/) {
+       $haveselfprovides = 1;
+      }
+    }
+    if (!$haveselfprovides) {
+      my $evr = "$res{'VERSION'}->[0]-$res{'RELEASE'}->[0]";
+      $evr = "$res{'EPOCH'}->[0]:$evr" if $res{'EPOCH'} && $res{'EPOCH'}->[0];
+      push @{$data->{'provides'}}, "$res{'NAME'}->[0] = $evr";
+    }
   }
 
   $data->{'source'} = $src if $src ne '';