Minor fix to slice locking.

843ee94b · Leigh B Stoller · cea32f54 · 843ee94b
Commit 843ee94b authored Jan 07, 2011 by Leigh B Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

protogeni/lib/GeniSlice.pm.in protogeni/lib/GeniSlice.pm.in +7 -1

No files found.
--- a/protogeni/lib/GeniSlice.pm.in
+++ b/protogeni/lib/GeniSlice.pm.in
@@ -191,7 +191,13 @@ sub Create($$$$;$$)
 	if (! DBQueryWarn("insert into geni_slices set " .
 			  join(",", @insert_data)));

-    return GeniSlice->Lookup($idx);
+    my $slice = GeniSlice->Lookup($idx);
+    return undef
+	if (!defined($slice));
+
+    $slice->{'LOCKED'} = $$
+	if (defined($lock) && $lock);
+    return $slice;
 }
 # accessors
 sub field($$) { return ((! ref($_[0])) ? -1 : $_[0]->{'SLICE'}->{$_[1]}); }