+ update regex

This commit is contained in:
garnier-quentin 2016-09-13 16:40:38 +02:00
parent c5c8a03202
commit 25501609aa
2 changed files with 2 additions and 2 deletions

View File

@ -98,7 +98,7 @@ sub check_hba {
my $not_logged = 0;
my $logged = 0;
while ($hba_infos =~ /(SP Name:.*?)\n\n/msig) {
while ($hba_infos =~ /(SP Name:.*?)(\n\n|\Z)/msig) {
my $port_infos = $1;
# Not in good section

View File

@ -52,7 +52,7 @@ sub check_port {
if ($self->{response} =~ /Information about each SPPORT:(.*)/msi) {
my $port_infos = $1;
while ($port_infos =~ /(SP Name:.*?)\n\n/msig) {
while ($port_infos =~ /(SP Name:.*?)(\n\n|\Z)/msig) {
my $port_infos = $1;
# Not in good section