Permalink
Browse files

dump stdout/err in a more elegant form.

  • Loading branch information...
1 parent c403d9d commit ac1c32356371323c3d9685b57237da0b0638ceba @ligne committed May 28, 2011
Showing with 5 additions and 3 deletions.
  1. +5 −3 bin/sheba.pl
View
8 bin/sheba.pl
@@ -129,10 +129,12 @@ sub _run_command
my $cmd_exit = $res->{retval} >> 8;
my $cmd_signal = $res->{retval} & 127;
- # FIXME report stdout/err for debugging...
- warn Dumper $res;
+ say '#' x 80;
+ say "'$cmd_str' exited with status $cmd_exit/$cmd_signal.\n";
+ say "\nSTDERR:"; say foreach (@{$res->{stderr}});
+ say "\nSTDOUT:"; say foreach (@{$res->{stdout}});
+ say '#' x 80;
- warn "'$cmd_str' exited with status $cmd_exit/$cmd_signal.\n";
return 0;
}

0 comments on commit ac1c323

Please sign in to comment.