diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-24 00:26:22 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-24 00:26:22 +0000 |
| commit | 63ee6b158bf74b995d1e6ed294b6d4b3f3e95ca5 (patch) | |
| tree | db9522b8dc1c02af74c6c5050a58e7fd002bdc55 /perl-install/common.pm | |
| parent | 685a29887953bf36c2d0dab4e7bce8a64bd8934e (diff) | |
| download | drakx-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.pm | 7 |
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 } |