In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c541fa6fb95be7de62a21e75f36c5cf9144924cf?hp=0175f038c506e9b29efdb14421ee3fd07adea401>
- Log ----------------------------------------------------------------- commit c541fa6fb95be7de62a21e75f36c5cf9144924cf Author: Craig A. Berry <[email protected]> Date: Sat Dec 13 22:09:49 2014 -0600 Fix ptargrep match. The 08_ptargrep.t test does a pattern match that appears to assume platform-specific semantics for the pattern that matches a filename. It certainly doesn't match the filename on VMS: not ok 1 - ptargrep shows matched file But we know the actual filename, so the simplest solution is to just do an equality test on that, and that's what the attached patch does. Submitted upstream at <https://rt.cpan.org/Public/Bug/Display.html?id=100903>. ----------------------------------------------------------------------- Summary of changes: cpan/Archive-Tar/t/08_ptargrep.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cpan/Archive-Tar/t/08_ptargrep.t b/cpan/Archive-Tar/t/08_ptargrep.t index a5cf591..f6af9cb 100644 --- a/cpan/Archive-Tar/t/08_ptargrep.t +++ b/cpan/Archive-Tar/t/08_ptargrep.t @@ -26,7 +26,7 @@ $tar->write($tarfile); # see if ptargrep matches my $out = qx{$cmd}; -cmp_ok($out, '=~', qr{^t.*ptargrep.*foo$}m, "ptargrep shows matched file"); +cmp_ok($out, 'eq', "$foo\n", "ptargrep shows matched file"); # cleanup END { -- Perl5 Master Repository
