summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-24 00:26:22 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-24 00:26:22 +0000
commit63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5 (patch)
treedb9522b8dc1c02af74c6c5050a58e7fd002bdc55 /perl-install/common.pm
parent685a29887953bf36c2d0dab4e7bce8a64bd8934e (diff)
downloaddrakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.gz
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.bz2
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.tar.xz
drakx-63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5.zip
no_comment
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index b48199abc..13d7c1d20 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -34,7 +34,12 @@ sub fold_left(&@) {
$a
}
-sub _ { my $s = shift @_; sprintf translate($s), @_ }
+sub _ {
+ my $s = shift @_; my $t = translate($s);
+ $t && ref $t or return sprintf $t, @_;
+ my ($T, @p) = @$t;
+ sprintf $T, @_[@p];
+}
#-delete $main::{'_'};
sub __ { $_[0] }
sub even($) { $_[0] % 2 == 0 }