From 9f73a9903c675fbb215417e1c0ae1effa3bcf0c0 Mon Sep 17 00:00:00 2001 From: Brian Haas Date: Fri, 20 Feb 2015 10:51:59 -0500 Subject: [PATCH] make it clear the error message coming from mysql --- PerlLib/Mysql_connect.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/PerlLib/Mysql_connect.pm b/PerlLib/Mysql_connect.pm index 0558bb0..0a6e0c2 100755 --- a/PerlLib/Mysql_connect.pm +++ b/PerlLib/Mysql_connect.pm @@ -136,7 +136,7 @@ sub do_sql_2D { return (&do_sql_2D($dbproc, $query, @values)); } else { - print STDERR "failed query: <$query>\tvalues: @values\nErrors: $DBI::errstr\n"; + print STDERR "\n\n====\nFailed query: <$query>\tvalues: @values\nErrors: $DBI::errstr\n====\n"; $QUERYFAIL = 1; } }