From acbbeb862973ce5f3a94d1dd1d5ebfddbf8900c1 Mon Sep 17 00:00:00 2001
From: Jarrod Johnson <jjohnson2@lenovo.com>
Date: Thu, 24 Oct 2019 14:57:49 -0400
Subject: [PATCH] Fix warning on unitialized value $mask

If not set, jump to returning undef.
---
 perl-xCAT/xCAT/NetworkUtils.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-xCAT/xCAT/NetworkUtils.pm b/perl-xCAT/xCAT/NetworkUtils.pm
index 7e34e7d81..d2005e0e2 100755
--- a/perl-xCAT/xCAT/NetworkUtils.pm
+++ b/perl-xCAT/xCAT/NetworkUtils.pm
@@ -1368,6 +1368,7 @@ sub formatNetmask
     my $origType = shift;
     my $newType  = shift;
     my $maskn;
+    if (not defined $mask) { return undef; }
     if ($origType == 0)
     {
         $maskn = unpack("N", inet_aton($mask));