From f0a3264409cbb5c18e7adc99e61c76dd47ce9820 Mon Sep 17 00:00:00 2001
From: zhangxianting <zhangxianting@uniontech.com>
Date: Fri, 10 Nov 2023 12:38:21 +0800
Subject: [PATCH] fix modifying beakerlib deja summary execution

---
 beakerlib.spec          |  6 +++++-
 perl-syntax-error.patch | 27 +++++++++++++++++++++++++++
 2 files changed, 32 insertions(+), 1 deletion(-)
 create mode 100644 perl-syntax-error.patch

diff --git a/beakerlib.spec b/beakerlib.spec
index 84a5f79..873a7d4 100644
--- a/beakerlib.spec
+++ b/beakerlib.spec
@@ -1,7 +1,7 @@
 Name:       beakerlib
 Summary:    A shell-level integration testing library
 Version:    1.18.1
-Release:    3
+Release:    4
 License:    GPLv2
 BuildArch:  noarch
 URL:        https://github.com/%{name}/%{name}
@@ -29,6 +29,7 @@ Patch1: python3.patch
 Patch2: Count-CPUs-optimization.patch
 Patch3: enahanced-library-search.patch
 Patch4: beakerlib-adapt-product-feature-to-local-release-version.patch
+Patch5: perl-syntax-error.patch
 
 %package_help
 
@@ -83,6 +84,9 @@ Files for syntax highlighting BeakerLib tests in VIM editor
 %doc %{_pkgdocdir}/*
 
 %changelog
+* Fri Nov 10 2023 zhangxianting <zhangxianting@uniontech.com> - 1.18.1-4
+- fix modifying beakerlib deja summary execution
+
 * Mon Jun 12 2023 yixiangzhike <yixiangzhike007@163.com> - 1.18.1-3
 - beakerlib adapt product feature to local release version
 
diff --git a/perl-syntax-error.patch b/perl-syntax-error.patch
new file mode 100644
index 0000000..a81a2a9
--- /dev/null
+++ b/perl-syntax-error.patch
@@ -0,0 +1,27 @@
+From d4f649af8edfeceb9667b3ed8106705186989998 Mon Sep 17 00:00:00 2001
+From: zhangxianting <zhangxianting@uniontech.com>
+Date: Fri, 10 Nov 2023 12:29:20 +0800
+Subject: [PATCH] perl syntax error
+
+---
+ src/perl/deja-summarize | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/src/perl/deja-summarize b/src/perl/deja-summarize
+index b2b105b..f7f7bf1 100755
+--- a/src/perl/deja-summarize
++++ b/src/perl/deja-summarize
+@@ -170,8 +170,8 @@ sub newResults {
+ # (fail or broken, or whatever).
+ sub isBad {
+     my ($b) = @_;
+-    for my $bad qw(fail brokentest kfail) {
+-	return 1 if ($b eq $bad);
++    for my $bad (qw(fail brokentest kfail)) {
++        return 1 if ($b eq $bad);
+     }
+     return 0;
+ }
+-- 
+2.27.0
+