diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakhelp | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/fileshareset | 2 |
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); |