File tree 1 file changed +7
-5
lines changed 1 file changed +7
-5
lines changed Original file line number Diff line number Diff line change @@ -1323,9 +1323,9 @@ sub run {
1323
1323
$self -> _debug( " $command \n " );
1324
1324
$self -> _die( " Didn't get a command!" ) unless defined $command ;
1325
1325
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
1329
1329
);
1330
1330
close $child_in ;
1331
1331
@@ -1357,11 +1357,13 @@ sub run {
1357
1357
$self -> _debug( $self -> _dashes, " \n " );
1358
1358
1359
1359
waitpid ( $pid , 0 );
1360
- my $child_exit_status = $? >> 8;
1360
+ my $child_exit_status = $? >> 8;
1361
+
1362
+ $self -> _warn( $error ) if length $error ;
1361
1363
1362
1364
if ( $child_exit_status ) {
1363
1365
$self -> _run_error_set;
1364
- $self -> _warn( " Command [$command ] didn't close cleanly: $? " );
1366
+ $self -> _warn( " Command [$command ] didn't close cleanly: $? " );
1365
1367
}
1366
1368
1367
1369
return $output ;
You can’t perform that action at this time.
0 commit comments