From 0f8f94c117bdbff92b3a9f3027bc521d35e09613 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 29 Aug 2021 14:43:11 -0700
Subject: [PATCH] save backup of the GO.sh file

---
 dev-bin/perltidy_random_run.pl   | 7 ++++++-
 dev-bin/perltidy_random_setup.pl | 7 +++++++
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/dev-bin/perltidy_random_run.pl b/dev-bin/perltidy_random_run.pl
index b31c8642..1ac1e905 100755
--- a/dev-bin/perltidy_random_run.pl
+++ b/dev-bin/perltidy_random_run.pl
@@ -702,7 +702,12 @@ sub write_GO {
 
     my ( $nf, $np ) = @_;
     my $runme = "GO.sh";
-    unlink $runme if ( -e $runme );
+    #unlink $runme if ( -e $runme );
+    if ( -e $runme ) {
+        my $bak = "$runme.bak";
+        if ( -e $bak ) { unlink $bak }
+        system ("mv $runme $bak");
+    }
     my $fh;
     open( $fh, '>', $runme ) || die "cannot open $runme: $!\n";
     $fh->print(<<EOM);
diff --git a/dev-bin/perltidy_random_setup.pl b/dev-bin/perltidy_random_setup.pl
index abc50249..e013ecc0 100755
--- a/dev-bin/perltidy_random_setup.pl
+++ b/dev-bin/perltidy_random_setup.pl
@@ -415,6 +415,13 @@ sub default_config {
 sub write_GO {
 
     my $runme = "GO.sh";
+
+    if ( -e $runme ) {
+        my $bak = "$runme.bak";
+        if ( -e $bak ) { unlink $bak }
+        system ("mv $runme $bak");
+    }
+
     my $fh;
     open( $fh, '>', $runme ) || die "cannot open $runme: $!\n";
     $fh->print(<<'EOM');
-- 
2.39.5