Browse Source

Support spaces in $exe path

Kaloyan Petrov 5 years ago
parent
commit
7f0aadbb84
1 changed files with 3 additions and 1 deletions
  1. 3 1
      tests/keystats

+ 3 - 1
tests/keystats

@@ -12,9 +12,11 @@ sub usage {
 
 usage if ((@ARGV == 0) or ($ARGV[0] eq '-h'));
 
-my @exes = glob "$FindBin::Bin/keystat.???";
+my @exes = glob "'$FindBin::Bin/keystat.???'";
+
 my %stats;
 for my $exe (@exes) {
+    $exe =~ s/\ /\\ /g;
     $stats{$exe} = `$exe @ARGV`;
     delete $stats{$exe} if ($? != 0); # omit hash functions that fail to produce stats (nx)
 }