From 1e8d4a2ec9a62fb05079994cec2e03ef708cfe7c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 7 Jan 2003 13:36:38 +0000 Subject: fix typo (operator priority related) --- perl-install/fsedit.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/fsedit.pm') diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index cc77b6c19..1ece4a756 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -449,7 +449,7 @@ sub computeSize { } my $size = int min($max, $best->{size} + $free_space * ($tot_ratios && $best->{ratio} / $tot_ratios)); #- verify other entry can fill the hole - any { $_->{size} < $max - $size } @L ? $size : $max; + (any { $_->{size} < $max - $size } @L) ? $size : $max; } sub suggest_part { -- cgit v1.2.1