From 808b09f9fd2b274cf87e825cdbe82ff954ae82be Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 23 Feb 2006 12:51:51 +0000
Subject: (doPartitionDisksAfter) perl_checker beautify

---
 live/draklive-install/draklive-install | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'live')

diff --git a/live/draklive-install/draklive-install b/live/draklive-install/draklive-install
index 526a166b2..2c9202a77 100755
--- a/live/draklive-install/draklive-install
+++ b/live/draklive-install/draklive-install
@@ -174,7 +174,7 @@ sub doPartitionDisksAfter {
     my ($o) = @_;
     my $hds = $o->{all_hds}{hds};
     partition_table::write($_) foreach @$hds;
-    if (grep { $_->{rebootNeeded} } @$hds) {
+    if (any { $_->{rebootNeeded} } @$hds) {
 	#- install_steps_interactive::rebootNeeded
 	$o->ask_warn('', N("You need to reboot for the partition table modifications to take place"));
 	$o->exit(0);
-- 
cgit v1.2.1