Check validity of keys in hash passed as first argument.

[perl5.git] / t / porting / dual-life.t

diff --git a/t/porting/dual-life.t b/t/porting/dual-life.t
index 8d9f070..27daf46 100644 (file)
--- a/t/porting/dual-life.t
+++ b/t/porting/dual-life.t
@@ -43,7 +43,7 @@ $dist_dir_exe{'pod2html.pl'} = '../ext/Pod-Html';
 my @programs;
 
 find(
 my @programs;
 
 find(

-  { no_chidr => 1, wanted => sub {
+  { no_chdir => 1, wanted => sub {

     my $name = $File::Find::name;
     return if $name =~ /blib/;
     return unless $name =~ m{/(?:bin|scripts?)/\S+\z} && $name !~ m{/t/};
     my $name = $File::Find::name;
     return if $name =~ /blib/;
     return unless $name =~ m{/(?:bin|scripts?)/\S+\z} && $name !~ m{/t/};