arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix the function previously commited to work

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@836 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2008-03-19 15:36:51 +00:00
parent ba7c3e00ab
commit b5fd684575
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
perl-xCAT-2.0/xCAT/Utils.pm
View File

@ -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;