From d24ef00112fdd91f1bca76f6347ab1e7b15e4e14 Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mageia.org>
Date: Thu, 9 Jan 2020 00:45:22 +0000
Subject: Allow - in host when parsing lock file name

---
 NEWS              | 2 ++
 lib/Iurt/Queue.pm | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 74375f0..4fa0d14 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- ulri: allow - in host when parsing lock file name
+
 0.7.9
 - ulri: call setarch for all 32bit targets rather than only when target is
   i586, this allows to build for 32bit arm on aarch64.
diff --git a/lib/Iurt/Queue.pm b/lib/Iurt/Queue.pm
index 171ff97..541bbff 100644
--- a/lib/Iurt/Queue.pm
+++ b/lib/Iurt/Queue.pm
@@ -170,7 +170,7 @@ sub get_upload_tree_state {
 	    $pkg_tree{$prefix}{srpm_name}{$name} = $srpm;
 	}
 
-	if ($r =~ /(\d{14}\.\w+\.\w+\.\d+)_([\w-]+)\.(\w+)\.(\w+)\.(\d{14})\.(\d+)\.lock$/) {
+	if ($r =~ /(\d{14}\.\w+\.\w+\.\d+)_([\w-]+)\.(\w+)\.([\w-]+)\.(\d{14})\.(\d+)\.lock$/) {
 	    my ($prefix, $arch, $bot, $host, $date, $pid) = ($1, $2, $3, $4, $5, $6);
 
 	    # Set path here too has we may have a lock without the src.rpm
-- 
cgit v1.2.1