Instead of print out host and port from dsn structure, print dsn_name of cxn instead. That way, it's consistent with debug print from connect() subroutine of Cxn package. In connect() subroutine, line 3889: PTDEBUG && _d($dbh, 'Connected dbh to', $self->{hostname},$self->{dsn_name});
Instead of print out host and port from dsn structure, print dsn_name of cxn instead. That way, it's consistent with debug print from connect() subroutine of Cxn package. In connect() subroutine, line 3889: PTDEBUG && _d($dbh, 'Connected dbh to', $self-> {hostname} ,$self- >{dsn_name} );
So replace line 8538:
printf("%s -> %s:%s\n", $cxn->name(), $cxn->{dsn}->{h}, $cxn->{dsn}->{P});
with:
printf("%s -> %s\n", $cxn->name(), $cxn->{dsn_name});