Description: Fixing failed test.
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2011-06-19
Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=68935


--- a/t/00-compile.t
+++ b/t/00-compile.t
@@ -7,7 +7,7 @@
 
 
 
-  use File::Find;
+use File::Find;
 use File::Temp qw{ tempdir };
 
 my @modules;
@@ -18,7 +18,7 @@
         $found =~ s{^lib/}{};
         $found =~ s{[/\\]}{::}g;
         $found =~ s/\.pm$//;
-        # nothing to skip push @modules, $found;
+        push @modules, $found;
     },
     'lib',
 );
@@ -29,7 +29,7 @@
         sub {
             return unless -f;
             my $found = $File::Find::name;
-            # nothing to skip push @scripts, $found;
+            push @scripts, $found;
         },
         'bin',
     );
@@ -41,7 +41,7 @@
 {
 
     # fake home for cpan-testers
-    # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 );
+    local $ENV{HOME} = tempdir( CLEANUP => 1 );
 
     like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" },
         qr/^\s*$_ ok/s, "$_ loaded ok" )