Fix File::Glob::bsd_glob use on 5.14.4

Perl 5.14.4 did not export bsd_glob - you have to call it from the module explitly.  This makes the code more backwards compatible with perl versions.
This commit is contained in:
Duncan Ferguson 2016-04-30 10:22:06 +01:00
parent 33fa9b9911
commit 08adb3766b
2 changed files with 3 additions and 2 deletions

View file

@ -90,6 +90,7 @@ my $build = $class->new(
'Try::Tiny' => 0,
'Getopt::Long' => 0,
'File::Path' => 0,
'File::Glob' => 0,
},
build_requires => {
'Test::Pod::Coverage' => 0,

View file

@ -18,7 +18,7 @@ using C<File::Glob::bsd_glob>.
=cut
use File::Glob ':bsd_glob';
use File::Glob;
=head1 METHODS
@ -80,7 +80,7 @@ sub expand {
}
}
my @text = map { bsd_glob($_) } @newlist;
my @text = map { File::Glob::bsd_glob($_) } @newlist;
return wantarray ? @text : "@text";
}