Remove File::Path

print summary to log file as we go so there's something to tail

diff --git a/cpan-stable-smolder b/cpan-stable-smolder
index e59c70a..7440568 100755 (executable)
--- a/cpan-stable-smolder
+++ b/cpan-stable-smolder
@@ -5,7 +5,6 @@ use warnings;
 use CPAN;
 use Cwd;
 use File::chdir;
-use File::Path qw( rmtree );
 use IPC::Run3 qw( run3 );
 
 
@@ -55,16 +54,13 @@ sub test_all_modules {
 
         my $status = $passed && $warned ? 'WARN' : $passed ? 'PASS' : 'FAIL';
 
-        push @statuses, "$status: $project - " . $dist->base_id();
+        my $summary = "$status: $project - " . $dist->base_id();
+        print {$log} "$summary\n";
 
         push @details, [ $project, $output ]
             if $warned || ! $passed;
     }
 
-    for my $status (@statuses) {
-        print {$log} "$status\n";
-    }
-
     if (@details) {
         print {$log} "\n\n";