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

[svn at svn.open-ils.org]

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

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

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-06-03 15:53:08 UTC (rev 13301)
+++ branches/rel_1_4/Open-ILS/src/perlmods/OpenILS/Utils/CStoreEditor.pm	2009-06-03 15:53:43 UTC (rev 13302)
@@ -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};
 }