From 3e4ad5e1b687f262a1d7cc39a0b905a595ac7f95 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 11 May 2004 12:31:46 +0000
Subject: perl_checker compliance

---
 perl-install/printer/detect.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/printer')

diff --git a/perl-install/printer/detect.pm b/perl-install/printer/detect.pm
index ba7e2f1ac..71adef0cf 100644
--- a/perl-install/printer/detect.pm
+++ b/perl-install/printer/detect.pm
@@ -105,8 +105,9 @@ sub whatUsbport() {
 	    # it again
 	    my $itemfound = 0;
 	    # Extract the printer data from the ID string
-	    my ($manufacturer, $model, $serialnumber, $description, $commandset, $sku) =
+	    my ($manufacturer, $model, $serialnumber, $description, $commandset) =
 		    ("", "", "", "", "");
+	    my ($sku);
 	    if ($idstr =~ /MFG:([^;]+);/ || $idstr =~ /MANUFACTURER:([^;]+);/) {
 		$manufacturer = $1;
 		$manufacturer =~ s/Hewlett[-\s_]Packard/HP/;
-- 
cgit v1.2.1