From 60c5be6245a02d6f09aebd2d257716a578bc90c3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 11 Aug 2003 02:22:15 +0000
Subject: perl_checker compliance

---
 perl-install/scanner.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm
index e1267c600..13d867bff 100755
--- a/perl-install/scanner.pm
+++ b/perl-install/scanner.pm
@@ -246,7 +246,7 @@ sub get_usb_ids_for_port {
 	while (my $line = <DETECT>) {
 	    if ($line =~ /ID\s+([0-9a-f]+):(0x[0-9a-f]+)($|\s+)/) {
 		# Scanner connected via scanner.o kernel module
-		return ("0x$1", "0x$2");
+		return "0x$1", "0x$2";
 		last;
 	    }
 	}
@@ -257,7 +257,7 @@ sub get_usb_ids_for_port {
 	    if ($line =~ /^\s*found\s+USB\s+scanner/i) {
 		if ($line =~ /vendor=(0x[0-9a-f]+)[^0-9a-f]+.*prod(|uct)=(0x[0-9a-f]+)[^0-9a-f]+/) {
 		    # Scanner connected via scanner.o kernel module
-		    return ($1, $3);
+		    return $1, $3;
 		}
 	    }
 	}
-- 
cgit v1.2.1