From b1cb301e47219bbc24133b9aa0d4d4bb19c9642f Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 3 Mar 2005 16:03:16 +0000
Subject: perl_checker fixes

---
 perl-install/install_steps_gtk.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 6cdd6136e..13177303e 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -656,7 +656,7 @@ sub deselectFoundMedia {
 	$totalsize >= 0 and $totalsize += $mediumsize->{$_->[0]};
 	++$i;
     }
-    $totalsize or $totalsize = -1; #- don't check size, total medium size unknown
+    $totalsize ||= -1; #- don't check size, total medium size unknown
     my @selection = (1) x @hdlist2;
     my $copy_rpms_on_disk = 0;
     my $ask_copy_rpms_on_disk = $o->{method} !~ /iso/i;
-- 
cgit v1.2.1