From 2a396bc1fd6d70b76070a9237f21569ef18f7bf0 Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Fri, 17 May 2013 02:38:48 +0000
Subject: [PATCH] fix the issue with XCATHOST=ipv6-lla%eth0:3001 and remote
 xcatd

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

diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm
index 5b0bc4f5e..70fdb8345 100644
--- a/perl-xCAT/xCAT/Client.pm
+++ b/perl-xCAT/xCAT/Client.pm
@@ -180,7 +180,7 @@ if (ref($request) eq 'HASH') { # the request is an array, not pure XML
     $xcathost=$ENV{XCATHOST};
   }
   my %connargs=();
-  if ($xcathost =~ s/%([^\]]*)//) {
+  if ($xcathost =~ s/%([^\]|:]*)//) {
       $connargs{PeerScope} = $1;
   }
   $connargs{PeerAddr} = $xcathost;