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/printerdrake.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm
index ba3f7bd60..8900e193a 100644
--- a/perl-install/printerdrake.pm
+++ b/perl-install/printerdrake.pm
@@ -224,7 +224,7 @@ Do you really want to get your printers auto-detected?"),
 	     _("Do auto-detection"));
 	$do_auto_detect = ($res eq _("Do auto-detection"));
     }
-    my @parport = ();
+    my @parport;
     my $menuentries = {};
     $in->set_help('setupLocal') if $::isInstall;
     if ($do_auto_detect) {
@@ -1497,7 +1497,7 @@ sub setup_options {
 	# range check of the numerical options.
 	my $windowtitle = "$printer->{currentqueue}{make} $printer->{currentqueue}{model}";
 	if ($::expert) {
-	    my $driver = undef;
+	    my $driver;
 	    if ($driver = $printer->{currentqueue}{driver}) {
 		if ($printer->{currentqueue}{foomatic}) {
 		    if ($driver eq 'Postscript') {
@@ -2042,7 +2042,7 @@ sub security_check {
     $in->set_help('securityCheck') if $::isInstall;
 
     # Get security level
-    my $security = undef;
+    my $security;
     if ($::isInstall) {
 	$security = $in->{security};
     } else {
-- 
cgit v1.2.1