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;