From b372e5a948adeaf70643ec285c78e5fe518e949a Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 31 Oct 2008 13:38:57 +0000
Subject: [PATCH] fix perl error from nodeadd and nodech with no parms

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2435 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/xcat/plugins/tabutils.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/lib/xcat/plugins/tabutils.pm b/xCAT-server/lib/xcat/plugins/tabutils.pm
index 6d96a0c71..288d7585b 100644
--- a/xCAT-server/lib/xcat/plugins/tabutils.pm
+++ b/xCAT-server/lib/xcat/plugins/tabutils.pm
@@ -539,7 +539,11 @@ sub nodech
         $callback->(\%rsp);
     };
 
-    @ARGV = @{$args};
+    if ($args) {
+        @ARGV = @{$args};
+    } else {
+        @ARGV=();
+    }
     my %options = ('h|?|help'  => \$HELP, 'v|version' => \$VERSION);
     if (!$addmode) { $options{'d|delete'} = \$deletemode; }
     if (!GetOptions(%options)) {