Improve last revision.

9b9468b4 · Leigh B. Stoller · 19122fd2 · 9b9468b4
Commit 9b9468b4 authored Jan 30, 2003 by Leigh B. Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 3 deletions

db/libdb.pm.in db/libdb.pm.in +4 -3

No files found.
--- a/db/libdb.pm.in
+++ b/db/libdb.pm.in
@@ -2353,16 +2353,17 @@ sub DBQuery($)
    while ($maxtries) {
 	$result = $DB->query($query);
 	if (! defined($result)) {
+	    my $err = $DB->err;
+	    
 	    $DBErrorString =
 		"  Query: $query\n".
-		"  Error: " . $DB->errstr;
+		"  Error: " . $DB->errstr . " ($err)";
 	}
 	if (defined($result) || $DB->err != 2006) {
 	    last;
 	}
-	my $err = $DB->err;

-	DBWarn("mysqld went away ($err). $maxtries tries left", 0);
+	DBWarn("mysqld went away. $maxtries tries left", 0);
 	$maxtries--;
 	sleep(1);
    }