fix(ibm/tsamp): correct regexp (#3301)
This commit is contained in:
parent
654e5de65d
commit
37890b6074
apps/ibm/tsamp/local/mode
|
@ -49,7 +49,7 @@ sub manage_selection {
|
||||||
);
|
);
|
||||||
|
|
||||||
my $rg = [];
|
my $rg = [];
|
||||||
while ($stdout =~ /^(.*)\s+IBM.ResourceGroup:(.*?)\s+.*?Nominal=(.*)\s*$/mig) {
|
while ($stdout =~ /^(\S.*)\s+IBM.ResourceGroup:(.*?)\s+.*?Nominal=(.*)\s*$/mig) {
|
||||||
my ($name, $opState, $nominalState) = ($2, lc($1), lc($3));
|
my ($name, $opState, $nominalState) = ($2, lc($1), lc($3));
|
||||||
|
|
||||||
push @$rg, { name => $name, state => $opState, nominal => $nominalState };
|
push @$rg, { name => $name, state => $opState, nominal => $nominalState };
|
||||||
|
|
|
@ -120,7 +120,7 @@ sub manage_selection {
|
||||||
};
|
};
|
||||||
|
|
||||||
$self->{rg} = {};
|
$self->{rg} = {};
|
||||||
while ($stdout =~ /^(.*)\s+IBM.ResourceGroup:(.*?)\s+.*?Nominal=(.*)\s*$/mig) {
|
while ($stdout =~ /^(\S.*)\s+IBM.ResourceGroup:(.*?)\s+.*?Nominal=(.*)\s*$/mig) {
|
||||||
my ($name, $opState, $nominalState) = ($2, lc($1), lc($3));
|
my ($name, $opState, $nominalState) = ($2, lc($1), lc($3));
|
||||||
if (defined($self->{option_results}->{filter_rg_name}) && $self->{option_results}->{filter_rg_name} ne '' &&
|
if (defined($self->{option_results}->{filter_rg_name}) && $self->{option_results}->{filter_rg_name} ne '' &&
|
||||||
$name !~ /$self->{option_results}->{filter_rg_name}/) {
|
$name !~ /$self->{option_results}->{filter_rg_name}/) {
|
||||||
|
|
Loading…
Reference in New Issue