diff options
| author | Craig A. Berry <craigberry@mac.com> | 2013-08-30 10:23:41 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2013-08-30 10:23:41 -0500 |
| commit | 8738904a0e8f481e4054e9eea62378de91ad67e4 (patch) | |
| tree | e975824d995dc1269dbe3fc4f083a7ce6d574ef0 /ext | |
| parent | 0022aab5a1291df8e07fdc032292185d3937a1dc (diff) | |
| download | perl-8738904a0e8f481e4054e9eea62378de91ad67e4.tar.gz | |
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.
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/t/concise.t | 4 |
1 files changed, 2 insertions, 2 deletions
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__ |