From: Dave Rolsky <autarch@urth.org>
Date: Thu, 13 Aug 2009 22:02:48 +0000 (-0500)
Subject: Remove File::Path
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=42e12f75dbeae1a123d377477b63578f5644cb1f;p=gitmo%2Fmoose-dev-utils.git

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
--- 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";