2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakhelp b/perl-install/standalone/drakhelp
index cc7aa434c..c2b46979a 100755
--- a/perl-install/standalone/drakhelp
+++ b/perl-install/standalone/drakhelp
@@ -27,7 +27,7 @@ Usage:
     exit(0);
 }
 my ($opt, $idlabel) = @ARGV;
-@ARGV == 2 && ($opt eq '--id' || $opt eq '--doc' || $opt eq '--help') or usage();
+@ARGV == 2 && member($opt, qw(--id --doc --help)) or usage();
 
 
 
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);