From df74e103d8de6d7cc45cc3e2a99f4b9c8fff6085 Mon Sep 17 00:00:00 2001
From: "Thierry.Vignaud" <thierry.vignaud@gmail.com>
Date: Wed, 28 May 2014 22:37:23 +0200
Subject: simplify using member()

---
 perl-install/install/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install/any.pm')

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 09f55f200..5187ebc78 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -225,7 +225,7 @@ sub ask_mirror {
 sub ask_suppl_media_url {
     my ($o, $method, $o_url) = @_;
 
-    if ($method eq 'ftp' || $method eq 'http') {
+    if (member($method, qw(ftp http)) {
 	install::any::ask_mirror($o, 'distrib', $o_url);
     } elsif ($method eq 'cdrom') {
 	'cdrom://';
-- 
cgit v1.2.1