From b5fd684575c18178632a4340fb71d8763af797ba Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 19 Mar 2008 15:36:51 +0000
Subject: [PATCH] Fix the function previously commited to work

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@836 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT-2.0/xCAT/Utils.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT-2.0/xCAT/Utils.pm b/perl-xCAT-2.0/xCAT/Utils.pm
index 73e769f20..48397a9df 100644
--- a/perl-xCAT-2.0/xCAT/Utils.pm
+++ b/perl-xCAT-2.0/xCAT/Utils.pm
@@ -1063,7 +1063,7 @@ sub classful_networks_for_net_and_mask
        $given_mask = 1;
        my $masknumber = unpack("N",inet_aton($mask));
        $mask=32;
-       while ($masknumber % 2) {
+       until ($masknumber % 2) {
           $masknumber = $masknumber >> 1;
           $mask--;
        }
@@ -1074,7 +1074,7 @@ sub classful_networks_for_net_and_mask
     if ($bitstoeven eq 8) { $bitstoeven = 0; }
     my $resultmask = $mask + $bitstoeven;
     if ($given_mask) {
-       $resultmask = inet_ntoa((2**$resultmask-1) << (32 -  $resultmask));
+       $resultmask = inet_ntoa(pack("N",(2**$resultmask-1) << (32 -  $resultmask)));
     }
     push @results,$resultmask;