Commit ca0a88fc authored by Leigh B Stoller's avatar Leigh B Stoller

Minor debugging change.

parent c4fe601c
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# Copyright (c) 2010-2011, 2013 University of Utah and the Flux Group. # Copyright (c) 2010-2016 University of Utah and the Flux Group.
# #
# {{{GENIPUBLIC-LICENSE # {{{GENIPUBLIC-LICENSE
# #
...@@ -340,6 +340,7 @@ sub AddUser(;$) ...@@ -340,6 +340,7 @@ sub AddUser(;$)
my $xmlgoo = emutil::ExecQuiet("$DUMPUSER $uid"); my $xmlgoo = emutil::ExecQuiet("$DUMPUSER $uid");
if ($?) { if ($?) {
print STDERR "$xmlgoo";
fatal("$DUMPUSER failed"); fatal("$DUMPUSER failed");
} }
my $args = {"xmlstring" => $xmlgoo, my $args = {"xmlstring" => $xmlgoo,
......
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