in reply to Test mysql connection, and return nice message?
Hi ultranerds,
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
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:
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.|| push @errors, "Database connection not made: $DBI::errstr";
Good luck!
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
|
---|
In Section
Seekers of Perl Wisdom