From 6cd0fa2f96f98e48163953a81837276bbb09c0ce Mon Sep 17 00:00:00 2001
From: "Leigh B. Stoller" <stoller@flux.utah.edu>
Date: Wed, 5 Dec 2007 18:13:51 +0000
Subject: [PATCH] Fix name confusion error in previous revision.

---
 db/Node.pm.in | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/db/Node.pm.in b/db/Node.pm.in
index 409c85dcd..e5b1b048a 100644
--- a/db/Node.pm.in
+++ b/db/Node.pm.in
@@ -395,6 +395,14 @@ sub NodeAllocCheck($$)
     return 0;
 }
 
+# Naming confusion.
+sub AllocCheck($$)
+{
+    my ($self, $pid) = @_;
+
+    return $self->NodeAllocCheck($pid);
+}
+
 #
 # Equality test for two experiments.
 # Not strictly necessary in perl, but good form.
-- 
GitLab