From 8cb21146557a468e517db3123d481e5715971c7a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Nov 2002 22:52:57 +0000
Subject: - have "local *FILEHANDLE" before each "open FILEHANDLE, ..." - use
 some "cat_" and "output" where possible

---
 perl-install/detect_devices.pm | 1 +
 1 file changed, 1 insertion(+)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index f399efcef..ed5501fdd 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -619,6 +619,7 @@ sub whatUsbport() {
 	my $realport = devices::make($port);
 	next if !$realport;
 	next if ! -r $realport;
+	local *PORT;
 	open PORT, $realport or do next;
 	my $idstr = "";
 	# Calculation of IOCTL function 0x84005001 (to get device ID
-- 
cgit v1.2.1