From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 29 Aug 2021 21:43:11 +0000 (-0700)
Subject: save backup of the GO.sh file
X-Git-Tag: 20210717.02~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0f8f94c117bdbff92b3a9f3027bc521d35e09613;p=perltidy.git

save backup of the GO.sh file
---

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');