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