From 191d8468d64d3e74b54d124850dc34c8ea50fedb Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 29 Sep 2008 14:10:16 +0000
Subject: [PATCH] fix xdsh -s (streaming mode)

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

diff --git a/perl-xCAT/xCAT/DSHCore.pm b/perl-xCAT/xCAT/DSHCore.pm
index 0c139f146..9252201ce 100644
--- a/perl-xCAT/xCAT/DSHCore.pm
+++ b/perl-xCAT/xCAT/DSHCore.pm
@@ -314,6 +314,7 @@ sub pipe_handler
 
             $line =~ s/\n/\n$label/g;
             ($line =~ /\n$label$/) && ($line =~ s/\n$label$/\n/);
+            chomp $line;
 
             my @output_files    = ();
             my @output_file_nos = ();
@@ -326,7 +327,10 @@ sub pipe_handler
                     $line =~ s/$label//g;
                 }
 
-                print $write_fh $line;
+                my $rsp={};
+                $rsp->{data}->[0] = $line;
+                xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
+                #print $write_fh $line;
             }
 
             if (@output_files)