summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-03 13:12:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-03 13:12:13 +0000
commit23c259c90cbed0280c9e23b3c9763363c148c472 (patch)
tree608f1f62a585f39703a8f42d83447dfcf045a826 /perl-install/commands.pm
parent5d3903d31de512391136aa05e77de530baceb64a (diff)
downloaddrakx-23c259c90cbed0280c9e23b3c9763363c148c472.tar
drakx-23c259c90cbed0280c9e23b3c9763363c148c472.tar.gz
drakx-23c259c90cbed0280c9e23b3c9763363c148c472.tar.bz2
drakx-23c259c90cbed0280c9e23b3c9763363c148c472.tar.xz
drakx-23c259c90cbed0280c9e23b3c9763363c148c472.zip
do not use "local my $F, ...", use "local(my $F, ...) instead
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index e4b393f76..aba586d60 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -331,7 +331,7 @@ sub more {
require devices;
my $tty = devices::make('tty');
my $n = 0;
- open my $IN, $tty or die "can't open $tty\n";
+ open(my $IN, $tty) or die "can't open $tty\n";
local $_;
while (<>) {
if (++$n == 25) {