summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-01-04 17:51:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-01-04 17:51:17 +0000
commit6a82c5da31e65ffc53b75a7980b27e072534ecc6 (patch)
treee31d28976017cfb2474121127dd5b730f7ed5f9b /perl-install/common.pm
parentb35416bfc7c3b7e3ea8643369d89607204ec8d4b (diff)
downloaddrakx-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)
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm5
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();