Fix regexp refs #5597
This commit is contained in:
parent
373e210733
commit
80be5bd8d8
|
@ -94,13 +94,13 @@ sub run {
|
||||||
|
|
||||||
my ($system, $clusters, $wans, $groups);
|
my ($system, $clusters, $wans, $groups);
|
||||||
foreach (split(/\n/, $stdout)) {
|
foreach (split(/\n/, $stdout)) {
|
||||||
if (/^System:\s+(.*)$/im) {
|
if (/^System:\s+(.*)$/i) {
|
||||||
$system = $1;
|
$system = $1;
|
||||||
} elsif (/^Clusters:\s+(.*)$/im) {
|
} elsif (/^Clusters:\s+(.*)$/i) {
|
||||||
$clusters = $1;
|
$clusters = $1;
|
||||||
} elsif (/^Wans:\s+(.*)$/im) {
|
} elsif (/^Wans:\s+(.*)$/i) {
|
||||||
$wans = $1;
|
$wans = $1;
|
||||||
} elsif (/^Groups:\s+(.*)$/im) {
|
} elsif (/^Groups:\s+(.*)$/i) {
|
||||||
$groups = $1;
|
$groups = $1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue