File tree Expand file tree Collapse file tree 1 file changed +7
-5
lines changed Expand file tree Collapse file tree 1 file changed +7
-5
lines changed Original file line number Diff line number Diff line change @@ -1323,9 +1323,9 @@ sub run {
13231323 $self -> _debug( " $command \n " );
13241324 $self -> _die( " Didn't get a command!" ) unless defined $command ;
13251325
1326- my $pid = IPC::Open3::open3(
1327- my $child_in , my $child_out , my $child_err = gensym,
1328- $command
1326+ my $pid = IPC::Open3::open3(
1327+ my $child_in , my $child_out , my $child_err = gensym,
1328+ $command
13291329 );
13301330 close $child_in ;
13311331
@@ -1357,11 +1357,13 @@ sub run {
13571357 $self -> _debug( $self -> _dashes, " \n " );
13581358
13591359 waitpid ( $pid , 0 );
1360- my $child_exit_status = $? >> 8;
1360+ my $child_exit_status = $? >> 8;
1361+
1362+ $self -> _warn( $error ) if length $error ;
13611363
13621364 if ( $child_exit_status ) {
13631365 $self -> _run_error_set;
1364- $self -> _warn( " Command [$command ] didn't close cleanly: $? " );
1366+ $self -> _warn( " Command [$command ] didn't close cleanly: $? " );
13651367 }
13661368
13671369 return $output ;
You can’t perform that action at this time.
0 commit comments