From 9333e3a87de5757b3f95d15c58f45b4309843fc3 Mon Sep 17 00:00:00 2001
From: Michael Schroeder <mls@suse.de>
Date: Tue, 27 Jun 2017 14:43:04 +0200
Subject: [PATCH] [backend] allow binary access with future dod names

---
 src/backend/bs_repserver | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/backend/bs_repserver b/src/backend/bs_repserver
index 39955ad3acb..eda8ae0bf90 100755
--- a/src/backend/bs_repserver
+++ b/src/backend/bs_repserver
@@ -1138,6 +1138,12 @@ sub getbinary_repository {
     my $dodurl = $repo->dodurl();
     my %rnames = $repo ? $repo->pkgnames() : ();
     my $p = $rnames{$bin};
+    if (!$p && $dodurl && $bin =~ /^(.*)\.($binsufsre)$/ && $rnames{$1}) {
+      # check for future dod package path
+      $p = $rnames{$1};
+      my $suf = $2;
+      undef $p unless $pool->pkg2pkgid($p) eq 'd0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0' && $pool->pkg2path($p) =~ /\.\Q$suf\E$/;
+    }
     die("404 no such binary '$bin'\n") unless $p;
     $path = "$reporoot/".$pool->pkg2fullpath($p, $arch);
     if ($dodurl && $pool->pkg2pkgid($p) eq 'd0d0d0d0d0d0d0d0d0d0d0d0d0d0d0d0') {