From 85bc1c2e9f2211be40f7a2788a466db7abf03a0b Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Wed, 23 Jun 2004 13:20:44 +0000 Subject: Make perl_checker happy --- perl-install/pkgs.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 815ce25bc..af1777aae 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -573,7 +573,7 @@ sub read_rpmsrate { sub readCompssUsers { my ($meta_class, $file) = @_; - $file = 'Mandrake/base/compssUsers' if !$file; + $file ||= 'Mandrake/base/compssUsers'; my $f = $meta_class && install_any::getFile("$file.$meta_class") || install_any::getFile($file) or die "can't find $file"; readCompssUsers_raw($f); } @@ -940,7 +940,7 @@ sub installTransactionClosure { (my $cdromdev) = detect_devices::cdroms(); $cdrom = $cdromdev->{device}; log::l("cdrom redetected at $cdrom"); - my $dev = devices::make($cdrom); + devices::make($cdrom); install_any::ejectCdrom($cdrom) if $::o->{method} eq 'cdrom'; # will umount /tmp/image install_any::mountCdrom("/mnt/cdrom", $cdrom); } else { log::l("cdrom already found at $cdrom") } -- cgit v1.2.1