[open-ils-commits] r12611 - branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Utils (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-03-19 12:35:13 -0400 (Thu, 19 Mar 2009)
New Revision: 12611

Modified:
   branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
Log:
wrap authoritative rollbacks in a try so that a failed rollback won't leave a stale editor in the cache

Modified: branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
===================================================================
--- branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-03-19 15:57:31 UTC (rev 12610)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-03-19 16:35:13 UTC (rev 12611)
@@ -25,7 +25,11 @@
 
 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};
     }
 }