Commit 6cd0fa2f authored by Leigh B. Stoller's avatar Leigh B. Stoller

Fix name confusion error in previous revision.

parent 462035f1
...@@ -395,6 +395,14 @@ sub NodeAllocCheck($$) ...@@ -395,6 +395,14 @@ sub NodeAllocCheck($$)
return 0; return 0;
} }
# Naming confusion.
sub AllocCheck($$)
{
my ($self, $pid) = @_;
return $self->NodeAllocCheck($pid);
}
# #
# Equality test for two experiments. # Equality test for two experiments.
# Not strictly necessary in perl, but good form. # Not strictly necessary in perl, but good form.
......
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