diff --git a/0001-Fix-warning-in-test.patch b/0001-Fix-warning-in-test.patch
new file mode 100644
index 0000000..d228dea
--- /dev/null
+++ b/0001-Fix-warning-in-test.patch
@@ -0,0 +1,26 @@
+From 29bbbaf04a32ce01d3a1a486a6a39f694f321888 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Michal=20Josef=20=C5=A0pa=C4=8Dek?= <mspacek@redhat.com>
+Date: Thu, 1 Dec 2022 10:17:27 +0100
+Subject: [PATCH] Fix warning in test
+
+There are three variables and printf was print two only
+---
+ t/negotiate.t | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/t/negotiate.t b/t/negotiate.t
+index ef3f889..fa9af51 100644
+--- a/t/negotiate.t
++++ b/t/negotiate.t
+@@ -106,7 +106,7 @@ sub show_res
+ {
+     print "-------------\n";
+     for (@_) {
+-	printf "%-6s %.3f\n", @$_;
++	printf "%-6s %.3f %6d\n", @$_;
+     }
+     print "-------------\n";
+ }
+-- 
+2.38.1
+
diff --git a/perl-HTTP-Negotiate.spec b/perl-HTTP-Negotiate.spec
index 7754d68..4fa79f6 100644
--- a/perl-HTTP-Negotiate.spec
+++ b/perl-HTTP-Negotiate.spec
@@ -5,6 +5,7 @@ Summary:        Choose a variant to serve
 License:        GPL-1.0-or-later OR Artistic-1.0-Perl
 URL:            https://metacpan.org/release/HTTP-Negotiate
 Source0:        https://cpan.metacpan.org/authors/id/G/GA/GAAS/HTTP-Negotiate-%{version}.tar.gz
+Patch0:         0001-Fix-warning-in-test.patch
 BuildArch:      noarch
 BuildRequires:  make
 BuildRequires:  perl-interpreter
@@ -43,6 +44,7 @@ with "%{_libexecdir}/%{name}/test".
 
 %prep
 %setup -q -n HTTP-Negotiate-%{version}
+%patch0 -p1
 # Help generators to recognize Perl scripts
 for F in $(find t/ -name '*.t'); do
     perl -i -MConfig -ple 'print $Config{startperl} if $. == 1 && !s{\A#!\s*perl}{$Config{startperl}}' "$F"
@@ -79,6 +81,7 @@ make test
 %changelog
 * Thu Dec 01 2022 Michal Josef Špaček <mspacek@redhat.com> - 6.01-34
 - Package tests
+- Patch for remove warning in test
 - Simplify build and install phases
 - Update license to SPDX format