save backup of the GO.sh file

diff --git a/dev-bin/perltidy_random_run.pl b/dev-bin/perltidy_random_run.pl
index b31c86424ac6511183a3d74d37314ebb5a3445e6..1ac1e905ea66d9dc16bb161f8f10a19e36800fff 100755 (executable)
--- 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 abc5024925cb44fa77abedfb58ef71bb2af7e9f2..e013ecc0443c1bea6daa14df4e08bb7ed30585b4 100755 (executable)
--- 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');