diff --git a/perl-xCAT-2.0/xCAT/Client.pm b/perl-xCAT-2.0/xCAT/Client.pm index cc4903962..ecb6d10bb 100644 --- a/perl-xCAT-2.0/xCAT/Client.pm +++ b/perl-xCAT-2.0/xCAT/Client.pm @@ -711,6 +711,13 @@ sub handle_response { else { print ($rsp->{info}."\n"); } } + if ($rsp->{sinfo}) { + if (ref($rsp->{sinfo}) eq 'ARRAY') { foreach my $text (@{$rsp->{sinfo}}) { print "$text\r"; $|++; } } + else { print ($rsp->{sinfo}."\r"); $|++; } + } + + + # Handle {node} structure my $errflg=0; if (scalar @{$rsp->{node}}) {