From 6a82c5da31e65ffc53b75a7980b27e072534ecc6 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 4 Jan 2001 17:51:17 +0000
Subject: (if_): created. Use it to replace things like   ($::expert ? $val :
 ()) by if_($::expert, $val)

---
 perl-install/common.pm | 5 +++++
 1 file changed, 5 insertions(+)

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();
-- 
cgit v1.2.1