sub sshopen3 {
my($host,$writer,$reader,$error,$command)=@_;
- #open3($writer,$reader,$error,$ssh,'-o','Batchmode yes',$host,$command);
- open3($reader,$writer,$error,$ssh,'-o','Batchmode yes',$host,$command);
+ open3($writer,$reader,$error,$ssh,'-o','Batchmode yes',$host,$command);
}
sub _yesno {