From 8738904a0e8f481e4054e9eea62378de91ad67e4 Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Fri, 30 Aug 2013 10:23:41 -0500
Subject: 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.
---
 ext/B/t/concise.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ext')

diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t
index 948d8365fe..d3ef1f4d92 100644
--- 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__
-- 
cgit v1.2.1