From 3d590025cb883701713939ffcaf3f43ef93d99a3 Mon Sep 17 00:00:00 2001
From: zhangxianting <zhangxianting@uniontech.com>
Date: Thu, 16 Nov 2023 17:41:41 +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 7748132..5f382cd 100644
--- a/beakerlib.spec
+++ b/beakerlib.spec
@@ -1,7 +1,7 @@
 Name:       beakerlib
 Summary:    A shell-level integration testing library
 Version:    1.29.3
-Release:    1
+Release:    2
 License:    GPLv2
 BuildArch:  noarch
 URL:        https://github.com/%{name}/%{name}
@@ -25,6 +25,7 @@ BuildRequires: /usr/bin/pod2man perl-generators util-linux
 Source0:    https://github.com/beakerlib/beakerlib/archive/%{version}.tar.gz
 
 Patch1:  beakerlib-adapt-product-feature-to-local-release-version.patch
+Patch2:  perl-syntax-error.patch
 
 %package_help
 
@@ -79,6 +80,9 @@ Files for syntax highlighting BeakerLib tests in VIM editor
 %doc %{_pkgdocdir}/*
 
 %changelog
+* Thu Nov 16 2023 zhangxianting <zhangxianting@uniontech.com> - 1.29.3-2
+- fix modifying beakerlib deja summary execution
+
 * Tue Oct 24 2023 xujing <xujing125@huawei.com> - 1.29.3-1
 - update version to 1.29.3
 
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
+