Perl 5.16.3 on CentOS seems more verbose in one of the EIO
tests.  Relax the regexp so we can account for extra errors
reported by Perl.
---
 t/lei-import.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/lei-import.t b/t/lei-import.t
index bd562617..b4446b56 100644
--- a/t/lei-import.t
+++ b/t/lei-import.t
@@ -172,12 +172,12 @@ SKIP: {
        tick; # wait for strace to attach
        ok(!lei(qw(import -F eml t/plack-qp.eml)),
                '-F eml import fails on pathname error injection');
-       like($lei_err, qr!error reading t/plack-qp\.eml: Input/output error!,
+       like($lei_err, qr!error reading t/plack-qp\.eml: .*Input/output error!,
                'EIO noted in stderr');
        open $fh, '<', 't/plack-qp.eml';
        ok(!lei(qw(import -F eml -), undef, { %$lei_opt, 0 => $fh }),
                '-F eml import fails on stdin error injection');
-       like($lei_err, qr!error reading .*?: Input/output error!,
+       like($lei_err, qr!error reading .*?: .*Input/output error!,
                'EIO noted in stderr');
 }
 

Reply via email to