mirror of
https://github.com/duncs/clusterssh.git
synced 2025-07-03 18:03:23 +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,
|
'Try::Tiny' => 0,
|
||||||
'Getopt::Long' => 0,
|
'Getopt::Long' => 0,
|
||||||
'File::Path' => 0,
|
'File::Path' => 0,
|
||||||
|
'File::Glob' => 0,
|
||||||
},
|
},
|
||||||
build_requires => {
|
build_requires => {
|
||||||
'Test::Pod::Coverage' => 0,
|
'Test::Pod::Coverage' => 0,
|
||||||
|
|
|
@ -18,7 +18,7 @@ using C<File::Glob::bsd_glob>.
|
||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
use File::Glob ':bsd_glob';
|
use File::Glob;
|
||||||
|
|
||||||
=head1 METHODS
|
=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";
|
return wantarray ? @text : "@text";
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue