cleanup files on exit

diff --git a/t/snippets/perltidy_random_run.pl b/t/snippets/perltidy_random_run.pl
index 9adeb6f579211bd8dbdf7342ce9158c030b59cec..9d61768a56503284cbf6e10e6285951725866ceb 100755 (executable)
--- 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;