Perl-Dist-WiX

changeset 1047:7af86c340b19

Turn up to 10-at-a-time in install_modules call.
author Curtis Jewell <perl@curtisjewell.name>
date Mon Jun 06 23:51:31 2011 -0600 (2011-06-06)
parents 196bf48f8a1a
children e43a36f906fe f83a0e5324b3
files lib/Perl/Dist/WiX/Mixin/Installation.pm
line diff
     1.1 --- a/lib/Perl/Dist/WiX/Mixin/Installation.pm	Mon Jun 06 06:32:21 2011 -0600
     1.2 +++ b/lib/Perl/Dist/WiX/Mixin/Installation.pm	Mon Jun 06 23:51:31 2011 -0600
     1.3 @@ -336,17 +336,17 @@
     1.4  		%args = %{ pop @_ };
     1.5  	}
     1.6  
     1.7 -	# Install modules 5-at-a-time.
     1.8 -	my ($i, $j) = (0, 4);
     1.9 +	# Install modules 10-at-a-time.
    1.10 +	my ($i, $j) = (0, 9);
    1.11  	my $final = scalar @_;
    1.12  	while ($i < $final) {
    1.13 -		$j = $i + 4;
    1.14 +		$j = $i + 9;
    1.15  		$j = $final - 1 unless $j < $final;
    1.16  		$self->install_module(
    1.17  			name => [@_[$i..$j]],
    1.18  			%args
    1.19  		);
    1.20 -		$i += 5;
    1.21 +		$i += 10;
    1.22  	}
    1.23  
    1.24  	return $self;