From aaff6dff3ac0e9b19810fc1bc836f30c19918e5d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 31 Jul 2002 11:59:03 +0000
Subject: make new perl_checker happy

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

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 824584f81..14565b100 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -37,7 +37,7 @@ $boot_medium = 1;
 my $postinstall_rpms = '';
 my $current_medium = $boot_medium;
 my $asked_medium = $boot_medium;
-my $cdrom = undef;
+my $cdrom;
 sub useMedium($) {
     #- before ejecting the first CD, there are some files to copy!
     #- does nothing if the function has already been called.
-- 
cgit v1.2.1