diff options
| author | Craig A. Berry <craigberry@mac.com> | 2014-12-13 22:09:49 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2014-12-13 22:43:31 -0600 |
| commit | c541fa6fb95be7de62a21e75f36c5cf9144924cf (patch) | |
| tree | 47c538f4792d5e8e2e6899940d687ac7d0edd511 /cpan/Archive-Tar | |
| parent | 0175f038c506e9b29efdb14421ee3fd07adea401 (diff) | |
| download | perl-c541fa6fb95be7de62a21e75f36c5cf9144924cf.tar.gz | |
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>.
Diffstat (limited to 'cpan/Archive-Tar')
| -rw-r--r-- | cpan/Archive-Tar/t/08_ptargrep.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpan/Archive-Tar/t/08_ptargrep.t b/cpan/Archive-Tar/t/08_ptargrep.t index a5cf591e25..f6af9cbdde 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 { |