diff options
| -rw-r--r-- | MgaRelease/Common.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/MgaRelease/Common.pm b/MgaRelease/Common.pm index bd84df8..a4c38af 100644 --- a/MgaRelease/Common.pm +++ b/MgaRelease/Common.pm @@ -28,6 +28,7 @@ sub make_srpms_list_from_synthesis { $urpm->traverse(sub { $srpms_list->{$_[0]->name}->{version} = $_[0]->version; $srpms_list->{$_[0]->name}->{release} = $_[0]->release; + $srpms_list->{$_[0]->name}->{epoch} = $_[0]->epoch if $_[0]->epoch; }); } @@ -55,7 +56,9 @@ sub get_srpms_rev { my $ra = SVN::Ra->new(config()->{svn_repourl}); foreach my $pkg (keys %$srpms_list) { my ($ver, $rel) = @{$srpms_list->{$pkg}}{qw/version release/}; - $svnrev = path_rev($ra, "cauldron/$pkg/releases/$ver/$rel"); + my $epoch = $srpms_list->{$pkg}->{epoch} ? + $srpms_list->{$pkg}->{epoch} . ':' : ''; + $svnrev = path_rev($ra, "cauldron/$pkg/releases/$epoch$ver/$rel"); $srpms_list->{$pkg}->{svnrev} = $svnrev if $svnrev; } } |