Patch for remove warning in test
This commit is contained in:
parent
1f333a8a26
commit
5aa228f034
26
0001-Fix-warning-in-test.patch
Normal file
26
0001-Fix-warning-in-test.patch
Normal file
@ -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
|
||||||
|
|
@ -5,6 +5,7 @@ Summary: Choose a variant to serve
|
|||||||
License: GPL-1.0-or-later OR Artistic-1.0-Perl
|
License: GPL-1.0-or-later OR Artistic-1.0-Perl
|
||||||
URL: https://metacpan.org/release/HTTP-Negotiate
|
URL: https://metacpan.org/release/HTTP-Negotiate
|
||||||
Source0: https://cpan.metacpan.org/authors/id/G/GA/GAAS/HTTP-Negotiate-%{version}.tar.gz
|
Source0: https://cpan.metacpan.org/authors/id/G/GA/GAAS/HTTP-Negotiate-%{version}.tar.gz
|
||||||
|
Patch0: 0001-Fix-warning-in-test.patch
|
||||||
BuildArch: noarch
|
BuildArch: noarch
|
||||||
BuildRequires: make
|
BuildRequires: make
|
||||||
BuildRequires: perl-interpreter
|
BuildRequires: perl-interpreter
|
||||||
@ -43,6 +44,7 @@ with "%{_libexecdir}/%{name}/test".
|
|||||||
|
|
||||||
%prep
|
%prep
|
||||||
%setup -q -n HTTP-Negotiate-%{version}
|
%setup -q -n HTTP-Negotiate-%{version}
|
||||||
|
%patch0 -p1
|
||||||
# Help generators to recognize Perl scripts
|
# Help generators to recognize Perl scripts
|
||||||
for F in $(find t/ -name '*.t'); do
|
for F in $(find t/ -name '*.t'); do
|
||||||
perl -i -MConfig -ple 'print $Config{startperl} if $. == 1 && !s{\A#!\s*perl}{$Config{startperl}}' "$F"
|
perl -i -MConfig -ple 'print $Config{startperl} if $. == 1 && !s{\A#!\s*perl}{$Config{startperl}}' "$F"
|
||||||
@ -79,6 +81,7 @@ make test
|
|||||||
%changelog
|
%changelog
|
||||||
* Thu Dec 01 2022 Michal Josef Špaček <mspacek@redhat.com> - 6.01-34
|
* Thu Dec 01 2022 Michal Josef Špaček <mspacek@redhat.com> - 6.01-34
|
||||||
- Package tests
|
- Package tests
|
||||||
|
- Patch for remove warning in test
|
||||||
- Simplify build and install phases
|
- Simplify build and install phases
|
||||||
- Update license to SPDX format
|
- Update license to SPDX format
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user