Use explicit glob in concise.t.

This was sending a Perl program consisting entirely of '<.>' to
runperl, which on VMS does:

$ perl -e "<.>"
Can't open input file .> as stdin
%RMS-E-FNF, file not found

because the CLI strips the quotes and then the home-grown
redirection code sees the '<' as an invitation to redirect '.>'
to stdin.  That's not readily fixable, so just dodge it here.

diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t
index 948d836..d3ef1f4 100644 (file)
--- a/ext/B/t/concise.t
+++ b/ext/B/t/concise.t
@@ -462,8 +462,8 @@ unlike $out, 'main::foo', '-nobanner';
 # glob
 $out =
  runperl(
-  switches => ["-MO=Concise"], prog=>'<.>', stderr => 1
+  switches => ["-MO=Concise"], prog=>'glob(q{.})', stderr => 1
  );
-like $out, '\*<none>::', '<.>';
+like $out, '\*<none>::', 'glob(q{.})';
 
 __END__