From b5bc676d61e1e5f1f1840e8723f81dc24c344f98 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 29 Sep 2003 14:18:09 +0000 Subject: perl_checker fixes --- perl-install/printer/detect.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install/printer') diff --git a/perl-install/printer/detect.pm b/perl-install/printer/detect.pm index b61051d9b..8455fe06e 100644 --- a/perl-install/printer/detect.pm +++ b/perl-install/printer/detect.pm @@ -99,8 +99,7 @@ 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, $sku) = ("", "", "", "", ""); if ($idstr =~ /MFG:([^;]+);/ || $idstr =~ /MANUFACTURER:([^;]+);/) { $manufacturer = $1; -- cgit v1.2.1