In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8738904a0e8f481e4054e9eea62378de91ad67e4?hp=0022aab5a1291df8e07fdc032292185d3937a1dc>
- Log ----------------------------------------------------------------- commit 8738904a0e8f481e4054e9eea62378de91ad67e4 Author: Craig A. Berry <[email protected]> Date: Fri Aug 30 10:23:41 2013 -0500 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. ----------------------------------------------------------------------- Summary of changes: ext/B/t/concise.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index 948d836..d3ef1f4 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__ -- Perl5 Master Repository
