From 52cf997f94845b73dfddbed9fbf4f062ce346909 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dirk=20M=C3=BCller?= <dmueller@suse.com>
Date: Fri, 14 Jul 2023 16:28:07 +0200
Subject: [PATCH] Use the lowercased tag for storing the value

Fixes: 175ea221911b95a515c8c051d3b0346936331e07
---
 Build/Rpm.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Build/Rpm.pm b/Build/Rpm.pm
index dd0174d0a..0b9fe4080 100644
--- a/Build/Rpm.pm
+++ b/Build/Rpm.pm
@@ -937,7 +937,7 @@ sub parse {
     } elsif ($preamble && $line =~ /^(Source|Patch)(\d*)\s*(\s+[^:]*?)?:\s*(\S+)/i) {
       my ($tagtype, $num, $tagextra, $val) = (lc($1), $2, $3, $4);
       $num = $num ne '' ? 0 + $num : $autonum{$tagtype};
-      my $tag = "$1$num";
+      my $tag = "$tagtype$num";
       if ($tag eq 'patch0' && exists($ret->{$tag})) {
         # gross hack. Before autonumbering "Patch" and "Patch0" could
         # exist. So take out the previous patch and add it back