From 88d8e1a516895707a4ba40ed156101fccb550661 Mon Sep 17 00:00:00 2001
From: Danila Danko <br4ch1st0chr0n3@gmail.com>
Date: Tue, 21 May 2024 15:47:58 +0300
Subject: [PATCH] fix(scripts): use perl

---
 scripts/lib.sh | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/scripts/lib.sh b/scripts/lib.sh
index 0c900923..31b98428 100755
--- a/scripts/lib.sh
+++ b/scripts/lib.sh
@@ -191,11 +191,12 @@ function get_failing_tests {
     local logs="$1"
     local stage="$2"
 
+    export logs
+
     failed="$(
-        grep -a '<<< FAILURE' < "$logs" \
-        | sed -n -e 's/^.*EOorg.EOeolang.EO//p' \
-        | sed -e 's/_/-/g' \
-        | sed -e 's/Test$//g'
+        perl -ne 'print if /<<< FAILURE/' "$logs" \
+        | perl -pe 's/^.*EOorg.EOeolang.EO(.*)Test$/$1/p' \
+        | perl -pe 's/_/-/g'
     )"
 
     if [[ "$failed" = "" ]]; then