diff options
Diffstat (limited to 'ext/File-Find')
| -rw-r--r-- | ext/File-Find/t/find.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ext/File-Find/t/find.t b/ext/File-Find/t/find.t index 0a7355296c..40d14db0c6 100644 --- a/ext/File-Find/t/find.t +++ b/ext/File-Find/t/find.t @@ -281,7 +281,9 @@ my %tb = map { $_ => 1 } @testing_basenames; { find( { - wanted => sub { ++$::count_tb if $tb{$_}; }, + wanted => sub { s#\.$## if ($^O eq 'VMS' && $_ ne '.'); + ++$::count_tb if $tb{$_}; + }, $bad_option => undef, }, File::Spec->curdir @@ -296,7 +298,9 @@ my %tb = map { $_ => 1 } @testing_basenames; { finddepth( { - wanted => sub { ++$::count_tb if $tb{$_}; }, + wanted => sub { s#\.$## if ($^O eq 'VMS' && $_ ne '.'); + ++$::count_tb if $tb{$_}; + }, $bad_option => undef, $second_bad_option => undef, }, |