1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
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" )
|
