Minor bug fix; if the virtual topology cannot be stored cause of a

regex failure, bail instead of proceeding.

Minor bug fix; if the virtual topology cannot be stored cause of a
regex failure, bail instead of proceeding.
746c9361 · Leigh B. Stoller · 0e2e2997 · 746c9361
Commit 746c9361 authored Oct 09, 2009 by Leigh B. Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

protogeni/lib/GeniCM.pm.in protogeni/lib/GeniCM.pm.in +4 -1

No files found.
--- 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())) {