From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 24 Sep 2020 22:35:00 +0000 (-0700)
Subject: cleanup files on exit
X-Git-Tag: 20201001~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=85382df59cbd04fe337fdd6a02075b3def330a78;p=perltidy.git

cleanup files on exit
---

diff --git a/t/snippets/perltidy_random_run.pl b/t/snippets/perltidy_random_run.pl
index 9adeb6f5..9d61768a 100755
--- a/t/snippets/perltidy_random_run.pl
+++ b/t/snippets/perltidy_random_run.pl
@@ -447,6 +447,13 @@ for (my $nf=$nf_beg; $nf<=$nf_end; $nf++) {
     }  ## end inner loop over profiles
 }  ## end outer loop over files
 
+if (@saved_for_deletion) {
+    foreach (@saved_for_deletion) {
+        unlink $_ if ( -e $_ );
+    }
+    @saved_for_deletion = ();
+}
+
 # Summarize results..
 if (@problems) {
     print STDERR <<EOM;