no outputs, no hostname ;)

bin/atnodes

@@ -194,12 +194,8 @@ while (1) {
             warn "Can't open $outfile for reading: $!\n";
             next;
         }
-        my $has_run = 0;
         while (<$in>) {
             chomp;
-            if (!$has_run) {
-                $has_run = 1;
-            }
             if ($line_mode) {
                 print "$host: ";
             }
@@ -210,10 +206,6 @@ while (1) {
                 print STDERR "$host: ";
             }
             warn "Remote command returns status code $exit.\n";
-            $has_run = 1;
-        }
-        if (!$has_run && $line_mode) {
-            print "$host: \n";
         }
         if (!$line_mode) {
             print "\n";

lib/SSH/Batch.pm

@@ -3,7 +3,7 @@ package SSH::Batch;
 use strict;
 use warnings;
 
-our $VERSION = '0.009';
+our $VERSION = '0.010';
 
 1;
 __END__

lib/SSH/Batch/ForNodes.pm

@@ -3,7 +3,7 @@ package SSH::Batch::ForNodes;
 use strict;
 use warnings;
 
-our $VERSION = '0.009';
+our $VERSION = '0.010';
 
 use Set::Scalar;
 use File::HomeDir;

t/agentzh.t

@@ -141,6 +141,11 @@ ok $count > 3, "more than 3 hosts in {tq} (found $count)";
     }
 }
 
+{
+    my $out = atnodes2('echo -n', '{tq}', '-L');
+    is $out, '', 'no output, no hostname';
+}
+
 cleanup_remote_tree($count);
 my $outs = tonodes('-r', '-rsync', 't/tmp', '--', '{tq}', ':/tmp/');
 for my $out (@$outs) {
@@ -181,7 +186,6 @@ $outs = tonodes('t/tmp', '{tq}:/tmp/', '-v');
 for my $out (@$outs) {
     is $out, "\n", 'transfer successfuly';
 }
-exit;
 
 $outs = atnodes('ls /tmp/tmp', '{tq}');
 is scalar(@$outs), $count, 'all hosts generate outputs';
@@ -235,3 +239,4 @@ for my $out (@$outs) {
     is $out, "\nREADME\na.txt\nb.txt\n\n", 'only specified files uploaded';
 }
 
+warn "DONE.\n";