mirror of
https://github.com/duncs/clusterssh.git
synced 2025-04-22 09:22:24 +00:00
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:
parent
33fa9b9911
commit
08adb3766b
2 changed files with 3 additions and 2 deletions
1
Build.PL
1
Build.PL
|
@ -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,
|
||||
|
|
|
@ -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";
|
||||
}
|
||||
|
|
Loading…
Add table
Reference in a new issue