Added handle to all prints
authorFlavio Poletti <flavio@polettix.it>
Thu, 11 Sep 2008 19:15:19 +0000 (11 21:15 +0200)
committerFlavio Poletti <flavio@polettix.it>
Thu, 11 Sep 2008 19:15:19 +0000 (11 21:15 +0200)
deploy

diff --git a/deploy b/deploy
index b9eb908..3f28bdb 100755 (executable)
--- a/deploy
+++ b/deploy
@@ -66,7 +66,7 @@ sub operate_on_host {
    my ($hostname) = @_;
    my $remote = $config{remote};
 
-   print "*** OPERATING ON $hostname ***\n";
+   print {*STDOUT} "*** OPERATING ON $hostname ***\n";
    if ($config{prompt}) {
       my $choice = lc(prompt "$hostname - continue? (Yes | Skip | No) ",
          -while => qr/\A[nsy]\z/mxs);
@@ -83,9 +83,9 @@ sub operate_on_host {
    # Execute file
    my $ssh = get_ssh($hostname);
    $|++;
-   print "$remote ";
+   print {*STDOUT} "$remote ";
    my ($out, $err, $exit) = $ssh->cmd($remote);
-   print "exit = $exit\n";
+   print {*STDOUT} "exit = $exit\n";
 
    if ($config{stdout} && defined $out) {
       print {*STDOUT} $out;
@@ -99,7 +99,7 @@ sub operate_on_host {
          next unless defined $val;
          $val =~ s{\s+\z}{}mxs;
          $val =~ s{^}{$type }gmxs;
-         print $val, "\n\n";
+         print {*STDOUT} $val, "\n\n";
       } ## end for ([STDOUT => $out], ...
    }