Commit 3cfa7603 authored by Leigh B Stoller's avatar Leigh B Stoller

Minor bug fix, some extra debugging.

parent 68d48acf
......@@ -620,7 +620,7 @@ if (! defined($slice_id)) {
$slice_id = $safe_uid . "-QV" . TBGetUniqueIndex('next_quickvm', 1);
}
my $slice_urn = GeniHRN::Generate("${OURDOMAIN}:${pid}", "slice", $slice_id);
my $slice_hrn = "${PGENIDOMAIN}.${slice_id}";
my $slice_hrn = "${PGENIDOMAIN}.${pid}.${slice_id}";
my $SERVER_NAME = (exists($ENV{"SERVER_NAME"}) ? $ENV{"SERVER_NAME"} : "");
#
......@@ -1440,6 +1440,9 @@ sub fatal($) {
$instance->SetStatus("failed")
if (defined($instance));
print STDERR Dumper($xmlparse)
if (defined($xmlparse));
print STDERR "*** $0:\n".
" $mesg\n";
exit(-1);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment