http://www.perlmonks.org?node_id=828447


in reply to Test mysql connection, and return nice message?

Hi ultranerds,

Have you seen the section in CGI::Carp called DOING MORE THAN PRINTING A MESSAGE IN THE EVENT OF PERL ERRORS?  I think that may be what you want -- it explains how to write an error handler for your specific needs.

Instead of the clause:

|| push @errors, "Database connection not made: $DBI::errstr";
you can apparently setup your own error handler to which you could pass just the error message, and have it push the error onto your error stack.

Good luck!


s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/