marsadm: fix set-link source

This commit is contained in:
Thomas Schoebel-Theuer 2014-01-23 10:09:00 +01:00
parent c7fa35ae5f
commit 00d4713aff

View File

@ -1835,7 +1835,7 @@ if (!(-d $mars) && $cmd !~ m/(create|join)-cluster|cat/) {
my $res = "";
if ($cmd eq "show") {
$res = shift @args;
} elsif (!($cmd =~ m/^(create|leave|wait)-cluster|cat|[a-z]+-file$/)) {
} elsif (!($cmd =~ m/^(create|leave|wait)-cluster|cat|[a-z]+-file|set-[a-z]+$/)) {
$res = shift @args || helplist "resource argument is missing\n";
check_id($res);
}