From e06775888d1d868b6d8fea170939adb05b4692a7 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 25 Jan 2002 10:38:50 +0000
Subject: cosmetic changes.

---
 perl-install/install_steps_gtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 96977a540..bd3f75065 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -630,7 +630,7 @@ sub installPackages {
 	my ($method, $medium) = @_;
 
 	#- if not using a cdrom medium, always abort.
-	$method eq 'cdrom' && !$::oem and do {
+	if ($method eq 'cdrom' && !$::oem) {
 	    local $my_gtk::grab = 1;
 	    my $name = pkgs::mediumDescr($o->{packages}, $medium);
 	    local $| = 1; print "\a";
@@ -643,7 +643,7 @@ If you don't have it, press Cancel to avoid installation from this Cd-Rom.", $na
             #- add the elapsed time (otherwise the predicted time will be rubbish)
             $start_time += time() - $time;
             return $r;
-	};
+	}
     };
     my $install_result;
     catch_cdie { $install_result = $o->install_steps::installPackages($packages); }
-- 
cgit v1.2.1