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