From c98d63b6373acedaf2726098770f392d6f46c409 Mon Sep 17 00:00:00 2001
From: Rajalakshmi Srinivasaraghavan <rajis@linux.ibm.com>
Date: Thu, 2 Jun 2022 08:11:10 -0500
Subject: [PATCH] power10:  Fix build issues due to perl scripts conversion

Due to recent perl script conversion, there are some build
errors when compiling openblas with advance toolchain compilers.
---
 c_check | 2 +-
 f_check | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/c_check b/c_check
index d2f2eb036..48fd14e95 100755
--- a/c_check
+++ b/c_check
@@ -304,7 +304,7 @@ link=`$compiler_name $flags -c ctest2.c -o ctest2.o 2>&1 && $compiler_name $flag
 link=`echo "$link" | sed 's/\-Y[[:space:]]P\,/\-Y/g'`
 
 
-flags=`echo $link | tr '[[:space:]],\n' ' '`
+flags=`echo $link | tr "'[[:space:]],\n" " "`
 
 # Strip trailing quotes
 old_flags="$flags"
diff --git a/f_check b/f_check
index 2dbe94797..1499fa750 100755
--- a/f_check
+++ b/f_check
@@ -84,7 +84,7 @@ else
                 ;;
             *GNU*|*GCC*)
 
-                v="${data##*GCC: *\) }"
+                v="${data#*GCC: *\) }"
                 v="${v%%\"*}"
 
                 major="${v%%.*}"
@@ -309,7 +309,7 @@ if [ -n "$link" ]; then
 
     link=`echo "$link" | sed 's/\-rpath-link[[:space:]]+/\-rpath-link\%/g'`
 
-    flags=`echo "$link" | tr ',\n' ' '`
+    flags=`echo "$link" | tr "',\n" " "`
     # remove leading and trailing quotes from each flag.
     #@flags = map {s/^['"]|['"]$//g; $_} @flags;