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

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-03 11:53:08 -0400 (Wed, 03 Jun 2009)
New Revision: 13301

Modified:
   branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
Log:
silence 'uninitialized value in hash element' warnings

Modified: branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm
===================================================================
--- branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-06-03 15:38:48 UTC (rev 13300)
+++ branches/rel_1_4_0/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-06-03 15:53:08 UTC (rev 13301)
@@ -190,7 +190,7 @@
 		$self->xact_start if $self->{xact} or $always_xact;
 	}
 
-    $xact_ed_cache{$self->{xact_id}} = $self if $always_xact;
+    $xact_ed_cache{$self->{xact_id}} = $self if $always_xact and $self->{xact_id};
 	return $self->{session};
 }