fix t/85-crt-glob.t on Windows

Perl messes up the quoting of arguments of system(LIST) if
some elements of LIST contain double quotes. Add a check in t/utils.pm
so I won't get tripped up by this again.

t/85-crt-glob.t

@@ -8,6 +8,6 @@ require "./t/utils.pl";
 
 plan tests => 3;
 
-my $exe = pp_ok(-e => 'for (my $i = 0; $i < @ARGV; $i++) { printf "%d#%s\n", $i, $ARGV[$i]; }');
+my $exe = pp_ok(-e => 'for (my $i = 0; $i < @ARGV; $i++) { printf qq[%d#%s\n], $i, $ARGV[$i]; }');
 my ($out) = run_ok($exe, '*');
 is($out, "0#*\n", "no globbing of arguments");

t/utils.pl

@@ -20,6 +20,8 @@ sub pp_ok
     my $exe = catfile($ENV{PAR_TMPDIR},"packed$Config{_exe}");
     unlink($exe);
 
+    die "system(LIST) with double quotes in LIST doesn't work on Windows: @_"
+        if grep { /"/ } @_;
     system($^X, $pp, -o => $exe, @_);
     # Note: -x is unreliable on Windows
     ok( $? == 0 && -f $exe, qq[successfully packed "$exe"] );