amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-04-22 09:22:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix build and test on perl-5.8.9

Browse source
This commit is contained in:
Duncan Ferguson 2016-05-01 09:24:14 +01:00
parent d41c2b0400
commit b72b748eff
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/App/ClusterSSH/Range.pm
View file

@ -71,8 +71,8 @@ sub expand {
( $start, $end ) = split( /\.\./, $section, 2 );
}
$start //= $section;
$end //= $start;
$start=$section if(!defined($start));
$end=$start if(!defined($end));
foreach my $number ( $start .. $end ) {
push( @newlist, "$base$number" );