Commit 564d96d5 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Minor change for protogeni usage.

parent 98b41e0a
#!/usr/bin/perl -w
#
# EMULAB-COPYRIGHT
# Copyright (c) 2000-2007 University of Utah and the Flux Group.
# Copyright (c) 2000-2008 University of Utah and the Flux Group.
# All rights reserved.
#
#
......@@ -1255,7 +1255,7 @@ sub LoadCurrent($$$)
" (expt_swap_uid='$uid' or ".
" pid='$pid' or gid='$gid')");
return -1
return undef
if (!$query_result);
while (my ($c_uid,$c_pid,$c_gid) = $query_result->fetchrow_array()) {
......@@ -1291,7 +1291,7 @@ sub LoadCurrent($$$)
" r.pid='$pid' and e.gid='$gid') and ".
" r.pid!='" . TBOPSPID() . "' and ".
" n.role='testnode'");
return -1
return undef
if (!$query_result);
while (my ($c_uid,$c_pid,$c_gid,$c_type,$c_class) =
......@@ -1341,7 +1341,7 @@ sub LoadCurrent($$$)
}
}
return 0;
return \%curusage;
}
# _Always_ make sure that this 1 is at the end of the file...
......
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