Commit b87d4e22 authored by Yadd's avatar Yadd
Browse files

tidy

parent 248b81ad
...@@ -37,7 +37,7 @@ while ( my $c = shift @{ $resBody->{details}->{__changes__} } ) { ...@@ -37,7 +37,7 @@ while ( my $c = shift @{ $resBody->{details}->{__changes__} } ) {
my @d2 = grep { $_->{key} eq $c->{key} } @cmsg; my @d2 = grep { $_->{key} eq $c->{key} } @cmsg;
@changes = grep { $_->{key} ne $c->{key} } @changes; @changes = grep { $_->{key} ne $c->{key} } @changes;
@cmsg = grep { $_->{key} ne $c->{key} } @cmsg; @cmsg = grep { $_->{key} ne $c->{key} } @cmsg;
if( $c->{key} eq 'applicationList' ) { if ( $c->{key} eq 'applicationList' ) {
pass qq("$c->{key}" found); pass qq("$c->{key}" found);
} }
else { else {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment