From 7b1275b4ad4fd4017e9c6e68d4182a915beb0ffd Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 7 May 2010 03:49:05 +0000
Subject: [PATCH] fix ishostinsubnet

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

diff --git a/perl-xCAT/xCAT/NetworkUtils.pm b/perl-xCAT/xCAT/NetworkUtils.pm
index 7fdc2a68e..c05050eeb 100755
--- a/perl-xCAT/xCAT/NetworkUtils.pm
+++ b/perl-xCAT/xCAT/NetworkUtils.pm
@@ -248,6 +248,7 @@ sub linklocaladdr {
     return $laddr;
 }
 
+
 #-------------------------------------------------------------------------------
 
 =head3  ishostinsubnet
@@ -270,9 +271,7 @@ sub linklocaladdr {
 
 #-------------------------------------------------------------------------------
 sub ishostinsubnet {
-    my ($class, $ip) = shift;
-    my $mask = shift;
-    my $subnet =shift;
+    my ($class, $ip, $mask, $subnet) = @_;
  
     if ($ip =~ /\d+\.\d+\.\d+\.\d+/) {# ipv4 address
        $ip =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/;
@@ -290,7 +289,7 @@ sub ishostinsubnet {
           return 0;
        }
     } else { # for ipv6
-        #TODO
+       #todo
     }
 }