From 979b11e5551b2daa558cd5caf9703d333b04a047 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 9 Feb 2005 13:13:19 +0000
Subject: make perl_checko, the little bot, happy

---
 perl-install/install_any.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install/install_any.pm')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index c85de8bcf..1af25f925 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -643,9 +643,9 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.",
 	    do {
 		askChangeMedium($o->{method}, $k)
 		    or next;
-		mountCdrom("/tmp/image", $cdrom)
-	    } while (!-d "/tmp/image/$m->{rpmsdir}");
-	    $current_medium = $k
+		mountCdrom("/tmp/image", $cdrom);
+	    } while !-d "/tmp/image/$m->{rpmsdir}";
+	    $current_medium = $k;
 	}
 	log::l("copying /tmp/image/$m->{rpmsdir} to $o->{prefix}/var/ftp/pub/Mandrakelinux/media");
 	my $wait_w = $o->wait_message(N("Please wait"), N("Copying in progress"));
-- 
cgit v1.2.1