From 5a632fe532f355a2583970fefb2ed8ceec6c9460 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 23 Jul 1999 21:15:31 +0000
Subject: no_comment

---
 perl-install/common.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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 }
-- 
cgit v1.2.1