From 2042e1980110f42dd73752f2c16072d7b9015abf Mon Sep 17 00:00:00 2001
From: Mark Gurevich <gurevich@us.ibm.com>
Date: Thu, 30 Jun 2022 16:42:49 -0400
Subject: [PATCH] Get GitHub action script directory reference21

---
 github_action_xcat_test.pl | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/github_action_xcat_test.pl b/github_action_xcat_test.pl
index a2f2dbb4b..829157715 100644
--- a/github_action_xcat_test.pl
+++ b/github_action_xcat_test.pl
@@ -505,16 +505,17 @@ sub run_fast_regression_test{
     chomp($hostname);
     print "hostname = $hostname\n";
     my $conf_file = "$ENV{'PWD'}/regression.conf";
-    print "MG about to chmod 0777 file $conf_file";
-    chmod 0777, $conf_file;
-    print "MG about to open file $conf_file";
+    print "MG about to chmod 0777 file $conf_file\n";
+    #chmod 0777, $conf_file;
+    system "sudo chmod 777 $conf_file";
+    print "MG about to open file $conf_file\n";
     open(my $fh, '>', $conf_file) or die "Could not open test configuration file $!";
-    print "MG file opened";
+    print "MG file opened\n";
     #$cmd = "sudo echo '[System]' > $conf_file; sudo echo 'MN=$hostname' >> $conf_file; sudo echo '[Table_site]' >> $conf_file; sudo echo 'key=domain' >>$conf_file; sudo echo 'value=pok.stglabs.ibm.com' >> $conf_file";
     print $fh "[System]\nMN=$hostname\n[Table_site]\nkey=domain\nvalue=pok.stglabs.ibm.com\n";
-    print "MG file written";
+    print "MG file written\n";
     close($fh);
-    print "MG file closed";
+    print "MG file closed\n";
     #@output = runcmd("$cmd");
     #if($::RUNCMD_RC){
     #     print RED "[run_fast_regression_test] $cmd ....[Failed]\n";