Commit 3e26b2b6 authored by Leigh Stoller's avatar Leigh Stoller

Minor bug fix.

parent 1b65c836
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# GENIPUBLIC-COPYRIGHT # GENIPUBLIC-COPYRIGHT
# Copyright (c) 2008-2009 University of Utah and the Flux Group. # Copyright (c) 2008-2010 University of Utah and the Flux Group.
# All rights reserved. # All rights reserved.
# #
use strict; use strict;
...@@ -96,7 +96,9 @@ my $context = Genixmlrpc->Context($certificate); ...@@ -96,7 +96,9 @@ my $context = Genixmlrpc->Context($certificate);
if (!defined($context)) { if (!defined($context)) {
fatal("Could not create context to talk to clearinghouse"); fatal("Could not create context to talk to clearinghouse");
} }
my $clearinghouse = GeniRegistry::ClearingHouse->Create($context); Genixmlrpc->SetContext($context);
my $clearinghouse = GeniRegistry::ClearingHouse->Create();
if (!defined($clearinghouse)) { if (!defined($clearinghouse)) {
fatal("Could not create a clearinghouse client"); fatal("Could not create a clearinghouse client");
} }
......
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