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/Xconfig/test.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/Xconfig')

diff --git a/perl-install/Xconfig/test.pm b/perl-install/Xconfig/test.pm
index aa12d2b5b..307c0ff7a 100644
--- a/perl-install/Xconfig/test.pm
+++ b/perl-install/Xconfig/test.pm
@@ -67,7 +67,7 @@ sub test {
     my $b = before_leaving { unlink $f_err };
 
     if (!xtest(":9")) {
-	open my $F, $f_err;
+	open(my $F, $f_err);
 
 	local $_;
       i: while (<$F>) {
@@ -99,7 +99,7 @@ sub test {
     }
 
     $::noShadow = 1;
-    open my $F, "|perl 2>/dev/null";
+    open(my $F, "|perl 2>/dev/null");
     print $F "use lib qw(", join(' ', @INC), ");\n";
     print $F q(
         BEGIN { $::no_ugtk_init = 1 }
-- 
cgit v1.2.1