diff --git a/perl-xCAT/xCAT/NetworkUtils.pm b/perl-xCAT/xCAT/NetworkUtils.pm
index bcd34a8cb..fa51d5691 100755
--- a/perl-xCAT/xCAT/NetworkUtils.pm
+++ b/perl-xCAT/xCAT/NetworkUtils.pm
@@ -102,6 +102,11 @@ sub gethostname()
 {
     my ($class, $iporhost) = @_;
 
+   if (!defined($iporhost))
+   {
+       return undef;
+   }
+
    if (ref($iporhost) eq 'ARRAY')
    {
        $iporhost = @{$iporhost}[0];
@@ -177,6 +182,11 @@ sub getipaddr()
 {
     my ($class, $iporhost) = @_;
 
+   if (!defined($iporhost))
+   {
+       return undef;
+   }
+
    if (ref($iporhost) eq 'ARRAY')
    {
        $iporhost = @{$iporhost}[0];