From 7c107b4503c057d3e4a35c3a310565d59e166824 Mon Sep 17 00:00:00 2001
From: cjhardee <cjhardee@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 3 Jun 2010 13:34:54 +0000
Subject: [PATCH] Just made 3 functions i moved here before check for the
 package name in the first argument and shift past it, if so

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6334 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/SvrUtils.pm | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/xCAT-server/lib/perl/xCAT/SvrUtils.pm b/xCAT-server/lib/perl/xCAT/SvrUtils.pm
index 4d854351c..470086360 100644
--- a/xCAT-server/lib/perl/xCAT/SvrUtils.pm
+++ b/xCAT-server/lib/perl/xCAT/SvrUtils.pm
@@ -915,8 +915,12 @@ sub get_nodename_from_request()
 # we do this sparingly...  We don't like tons of hits
 # to the database.
 sub subVars {
-        shift; #toss the class name
-        my $dir = shift;
+  my $dir = shift;
+  if (($dir) && ($dir =~ /xCAT::SvrUtils/))
+  {
+    $dir = shift;
+  }
+
         my $node = shift;
         my $type = shift;
         my $callback = shift;
@@ -1007,7 +1011,12 @@ sub subVars {
 }
 
 sub setupNFSTree {
-    my $node = shift;
+  my $node = shift;
+  if (($node) && ($node =~ /xCAT::SvrUtils/))
+  {
+    $node = shift;
+  }
+
     my $sip = shift;
     my $callback = shift;
 
@@ -1056,6 +1065,11 @@ sub setupNFSTree {
 
 sub setupStatemnt {
     my $sip = shift;
+    if (($sip) && ($sip=~ /xCAT::SvrUtils/))
+    {
+      $sip = shift;
+    }
+
     my $statemnt = shift;
     my $callback = shift;