From 746c9361fbc0fbd6f69442f08447b92036a345e9 Mon Sep 17 00:00:00 2001
From: "Leigh B. Stoller" <stoller@flux.utah.edu>
Date: Fri, 9 Oct 2009 13:56:35 +0000
Subject: [PATCH] Minor bug fix; if the virtual topology cannot be stored cause
 of a regex failure, bail instead of proceeding.

---
 protogeni/lib/GeniCM.pm.in | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/protogeni/lib/GeniCM.pm.in b/protogeni/lib/GeniCM.pm.in
index b7aeb1ac6..181cc4b99 100644
--- a/protogeni/lib/GeniCM.pm.in
+++ b/protogeni/lib/GeniCM.pm.in
@@ -974,7 +974,10 @@ sub GetTicket($;$)
     }
   skiplinks:
     $virtexperiment->Dump();
-    $virtexperiment->Store();
+    if ($virtexperiment->Store()) {
+	$response = GeniResponse->Create(GENIRESPONSE_ERROR, undef);
+	goto bad;
+    }
 
     # Must chdir to the work directory for the mapper.
     if (! chdir($slice_experiment->WorkDir())) {
-- 
GitLab