be careful about leading/trailing spaces

diff --git a/tests/mk-script b/tests/mk-script
index 8995958b19742deeee51b595a5947d3ff9c0a44f..e524be0b96e96e3b522db23ac716e4e88748eb3f 100755 (executable)
--- a/tests/mk-script
+++ b/tests/mk-script
@@ -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;