mirror/coreutils
1
0
Fork 0
mirror of https://https.git.savannah.gnu.org/git/coreutils.git synced 2026-01-27 01:44:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

be careful about leading/trailing spaces

Browse Source
This commit is contained in:
Jim Meyering 2002-03-02 13:24:46 +00:00
parent 558fd59769
commit 07b422cb2a
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/mk-script
View File

@ -285,21 +285,24 @@ EOF1
@$env == 1
or die "$program_name: unexpected environment: @$env\n";
$env = $env->[0];
my $env_prefix = ($env ? "$env " : '');
if ($via eq 'FILE')
{
$cmd = "$env \$xx $flags $file_args > $out 2> $err_output";
$cmd = "$env_prefix\$xx $flags $file_args > $out 2> $err_output";
}
elsif ($via eq 'PIPE')
{
$via_msg = "|$val" if $val;
$val ||= 'cat';
$cmd = "$val $file_args | $env \$xx $flags > $out 2> $err_output";
$cmd = "$val $file_args | $env_prefix\$xx $flags"
. " > $out 2> $err_output";
}
else
{
assert (@srcdir_rel_in_file == 1);
$cmd = "$env \$xx $flags < $file_args > $out 2> $err_output";
$cmd = "$env_prefix\$xx $flags"
. " < $file_args > $out 2> $err_output";
}
my $e = $env;