diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-04 17:51:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-04 17:51:17 +0000 |
| commit | 6a82c5da31e65ffc53b75a7980b27e072534ecc6 (patch) | |
| tree | e31d28976017cfb2474121127dd5b730f7ed5f9b | |
| parent | b35416bfc7c3b7e3ea8643369d89607204ec8d4b (diff) | |
| download | drakx-6a82c5da31e65ffc53b75a7980b27e072534ecc6.tar drakx-6a82c5da31e65ffc53b75a7980b27e072534ecc6.tar.gz drakx-6a82c5da31e65ffc53b75a7980b27e072534ecc6.tar.bz2 drakx-6a82c5da31e65ffc53b75a7980b27e072534ecc6.tar.xz drakx-6a82c5da31e65ffc53b75a7980b27e072534ecc6.zip | |
(if_): created. Use it to replace things like
($::expert ? $val : ()) by if_($::expert, $val)
| -rw-r--r-- | perl-install/common.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index 150f33080..032eb8af5 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -136,6 +136,11 @@ sub expand_symlinks { $f; } +sub if_($@) { + my $b = shift; + $b ? @_ : (); +} + sub arch() { require c; c::kernel_arch(); |