1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index 2be0dcf0b..f38d59ce9 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -50,7 +50,7 @@ sub add2dll {
 }
 
 sub detect {
-    my ($i, $elem, @res) = (0, {});
+    my ($i, @res) = 0;
     foreach (grep { $_->{driver} =~ /scanner/ } detect_devices::usb_probe()) {
 	#my ($manufacturer, $model) = split '\|', $_->{description};
 	#$_->{description} =~ s/Hewlett[-\s_]Packard/HP/;