diff options
Diffstat (limited to 'perl-install/commands.pm')
| -rw-r--r-- | perl-install/commands.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm index aba586d60..9e1d9b95c 100644 --- a/perl-install/commands.pm +++ b/perl-install/commands.pm @@ -93,7 +93,7 @@ sub umount { } sub mkdir_ { - my ($rec) = getopts(\@_, qw(p)); + my ($_rec) = getopts(\@_, qw(p)); mkdir_p($_) foreach @_; } @@ -105,7 +105,7 @@ sub mknod { } elsif (@_ == 4) { require c; my $mode = ${{ "b" => c::S_IFBLK(), "c" => c::S_IFCHR() }}{$_[1]} or die "unknown node type $_[1]\n"; - syscall_('mknod', my $a = $_[0], $mode | 0600, makedev($_[2], $_[3])) or die "mknod failed: $!\n"; + syscall_('mknod', my $_a = $_[0], $mode | 0600, makedev($_[2], $_[3])) or die "mknod failed: $!\n"; } else { die "usage: mknod <path> [b|c] <major> <minor> or mknod <path>\n" } } |