diff options
| author | Nicholas Clark <nick@ccl4.org> | 2012-08-28 17:23:10 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2012-08-29 12:23:46 +0200 |
| commit | 6ec233a93c6d28cb7baae6b477b33e4e93f858a6 (patch) | |
| tree | 6ba27c5df55053257e5b6b4e4fe8f3c2f6885178 /t/porting | |
| parent | 4d6adf8730d580f4e8f7b6c8ea9b0927467d4078 (diff) | |
| download | perl-6ec233a93c6d28cb7baae6b477b33e4e93f858a6.tar.gz | |
t/porting/dual-life.t now passes no_chdir to File::Find::find().
File::Find::find() can call warn::warnif(), which in turn attempts to lazy
load Carp, which doesn't work for a test using relative paths in @INC with
the current directory changed.
Diffstat (limited to 't/porting')
| -rw-r--r-- | t/porting/dual-life.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/porting/dual-life.t b/t/porting/dual-life.t index 45747212ea..18077db993 100644 --- a/t/porting/dual-life.t +++ b/t/porting/dual-life.t @@ -36,13 +36,13 @@ $dist_dir_exe{'pod2html.pl'} = '../ext/Pod-Html'; my @programs; find( - sub { + { no_chidr => 1, wanted => sub { my $name = $File::Find::name; return if $name =~ /blib/; return unless $name =~ m{/(?:bin|scripts?)/\S+\z} && $name !~ m{/t/}; push @programs, $name; - }, + }}, qw( ../cpan ../dist ../ext ), ); |