From b499b81784e502e480dd114bb1fc130f498ab224 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sesse@debian.org>
Date: Mon, 25 Dec 2006 21:41:04 +0100
Subject: [PATCH] No need to dberror out when we are using RaiseError.

---
 perl/Sesse/pr0n/WebDAV.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Sesse/pr0n/WebDAV.pm b/perl/Sesse/pr0n/WebDAV.pm
index cfaa0ec..aecd9fd 100644
--- a/perl/Sesse/pr0n/WebDAV.pm
+++ b/perl/Sesse/pr0n/WebDAV.pm
@@ -500,7 +500,7 @@ EOF
 			if ($@) {
 				# Some error occurred, rollback and bomb out
 				$dbh->rollback;
-				dberror($r, "Transaction aborted because $@");
+				error($r, "Transaction aborted because $@");
 				unlink($fname);
 			}
 		}
-- 
2.39.2