diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-12-16 22:25:34 +0100 | 
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-12-16 22:25:34 +0100 | 
| commit | 24774c8c72888362b4b74304c34d18ca34de1fe5 (patch) | |
| tree | f43312b59fbe75de0f8e60f54c6f5003ca8bc079 | |
| parent | e37231f1888b5b42ceaec39224aa1c36ae99e3b4 (diff) | |
| download | sbotools2-24774c8c72888362b4b74304c34d18ca34de1fe5.tar.xz | |
Let's interpolate @cmd directly
| -rwxr-xr-x | t/travis.t | 5 | 
1 files changed, 2 insertions, 3 deletions
@@ -25,13 +25,12 @@ sub run {  		@_  	);  	my $cmd = shift @{ $args{cmd} }; -	my @args = @{ $args{cmd} }; -	my @cmd = ($^X, "-I$lib", "$path/$cmd", @args); +	my @cmd = ($^X, "-I$lib", "$path/$cmd", @{ $args{cmd} });  	my $exit = $args{exit};  	my ($output, $return) = capture_merged {  		my $ret;  		if (defined(my $input = $args{input})) { -			$ret = system(qw/bash -c/, "$^X -I$lib $path/$cmd @args <<END\n$input\nEND\n") && $? >> 8; +			$ret = system(qw/bash -c/, "@cmd <<END\n$input\nEND\n") && $? >> 8;  		}  		else {  			$ret = system(@cmd) && $? >> 8;  | 
