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/standalone/fileshareset | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone/fileshareset')

diff --git a/perl-install/standalone/fileshareset b/perl-install/standalone/fileshareset
index 9d0cb11ee..167d28165 100755
--- a/perl-install/standalone/fileshareset
+++ b/perl-install/standalone/fileshareset
@@ -93,7 +93,7 @@ my @exports = (
 if ($modify) {
     my ($cmd, $dir) = @ARGV;
     $< = $>;
-    @ARGV == 2 && ($cmd eq '--add' || $cmd eq '--remove') or error($usage);
+    @ARGV == 2 && (member($cmd, qw(--add --remove))) or error($usage);
 
     verify_mntpoint($dir);
 
-- 
cgit v1.2.1