wrap authoritative rollbacks in a try so that a failed rollback won't leave a stale...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12613 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm b/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
index 4294bcb..0450c19 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
@@ -25,7 +25,11 @@ our $_loaded = 1;
 
 sub flush_forced_xacts {
     for my $k ( keys %xact_ed_cache ) {
-        $xact_ed_cache{$k}->rollback;
+        try {
+            $xact_ed_cache{$k}->rollback;
+        } catch Error with {
+            # rollback failed
+        };
         delete $xact_ed_cache{$k};
     }
 }