diff options
Diffstat (limited to 'perl-install/common.pm')
| -rw-r--r-- | perl-install/common.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index feec2e844..429a18d35 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -20,7 +20,7 @@ $SECTORSIZE = 512; 1; -sub _ { my $s = shift; sprintf translate($s), @_ } +sub _ { my $s = shift @_; sprintf translate($s), @_ } sub __ { $_[0] } sub min { my $min = shift; grep { $_ < $min and $min = $_; } @_; $min } sub max { my $max = shift; grep { $_ > $max and $max = $_; } @_; $max } |