From 85bc1c2e9f2211be40f7a2788a466db7abf03a0b Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 23 Jun 2004 13:20:44 +0000
Subject: Make perl_checker 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 aaf820648..a6fb37839 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -39,7 +39,7 @@ my $postinstall_rpms = '';
 my $cdrom;
 my %iso_images;
 
-sub mountCdrom($;$) {
+sub mountCdrom {
     my ($mountpoint, $cdrom_) = @_;
     $cdrom_ = $cdrom if !defined $cdrom_;
     eval { fs::mount($cdrom_, $mountpoint, "iso9660", 'readonly') };
@@ -196,7 +196,7 @@ sub getFile {
 	    #- this allows handling changing a media when some of the files on the
 	    #- first CD have been copied to other to avoid media change...
 	    my $f2 = "$postinstall_rpms/$f";
-	    $altroot = '/tmp/image' unless $altroot;
+	    $altroot ||= '/tmp/image';
 	    $f2 = "$altroot/$rel" if !$postinstall_rpms || !-e $f2;
 	    $f2 = $rel if $rel =~ m!^/! && !-e $f2; #- not a relative path
 	    my $F; open($F, $f2) && $F;
@@ -370,7 +370,7 @@ sub setPackages {
 		(my $cdromdev) = detect_devices::cdroms();
 		last SUPPL if !$cdromdev;
 		$cdrom = $cdromdev->{device};
-		my $dev = devices::make($cdrom);
+		devices::make($cdrom);
 		ejectCdrom($cdrom);
 		if ($o->ask_okcancel('', N("Insert the CD"), 1)) {
 		    mountCdrom("/mnt/cdrom", $cdrom);
-- 
cgit v1.2.1