add idx to error

apocalypse · Dec 11, 2008 · 8e0882d · 8e0882d
1 parent 8bb32c7
commit 8e0882d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/POE/Component/SimpleDBI/SubProcess.pm b/lib/POE/Component/SimpleDBI/SubProcess.pm
@@ -557,7 +557,7 @@ sub DB_ATOMIC {
 					$sth->execute;
 				}
 			} catch Error with {
-				die $sth->errstr;
+				die "$idx: " . $sth->errstr;
 			};
 
 			# Finally, we clean up this statement handle
@@ -580,7 +580,7 @@ sub DB_ATOMIC {
 			# Get the error
 			my $error = shift;
 
-			$output = Make_Error( $data->{'ID'}, $e );
+			$output = Make_Error( $data->{'ID'}, $e . '->' . $error );
 			$output->{'DATA'} = 'ROLLBACK_FAILURE';
 		};