From 23c259c90cbed0280c9e23b3c9763363c148c472 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 3 Dec 2002 13:12:13 +0000
Subject: do not use "local my $F, ...", use "local(my $F, ...) instead

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

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index fdac50818..f2bd17601 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -615,7 +615,7 @@ sub whatUsbport() {
 	my $realport = devices::make($port);
 	next if !$realport;
 	next if ! -r $realport;
-	open my $PORT, $realport or next;
+	open(my $PORT, $realport) or next;
 	my $idstr = "";
 	# Calculation of IOCTL function 0x84005001 (to get device ID
 	# string):
@@ -735,7 +735,7 @@ sub hasMousePS2 {
 }
 
 sub raidAutoStartIoctl {
-    sysopen my $F, devices::make("md0"), 2 or return;
+    sysopen(my $F, devices::make("md0"), 2) or return;
     ioctl $F, 2324, 0;
 }
 
-- 
cgit v1.2.1