Fix regexp refs #5597

This commit is contained in:
Kevin Duret 2014-06-09 11:59:36 +02:00
parent 9e6bdf0d29
commit aa6869b640
1 changed files with 4 additions and 4 deletions

View File

@ -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;
}
}