Normalize epoch 0 away when reading the module info

openSUSE · Nov 21, 2019 · 5bd172b · 5bd172b
1 parent 6961750
commit 5bd172b
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/Build/Modules.pm b/Build/Modules.pm
@@ -52,7 +52,11 @@ sub parse {
     next unless $data->{'artifacts'};
     my $rpms = $data->{'artifacts'}->{'rpms'};
     next unless $rpms && ref($rpms) eq 'ARRAY';
-    push @{$res->{$_}}, $module for @$rpms;
+    for my $rpm (@$rpms) {
+      my $nrpm = $rpm;
+      $nrpm =~ s/-0:([^-]*-[^-]*\.[^\.]*)$/-$1/;
+      push @{$res->{$nrpm}}, $module;
+    }
   }
   # unify
   for (values %$res) {