[PATCH 14/14] t/lei-import: relax EIO regexp

[Eric Wong]

musl uses "I/O error" while glibc uses "Input/output error"
I wish something like strerrorname_np(3) were portable
and built into Perl so we could just match on /EIO/.
---
 t/lei-import.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/t/lei-import.t b/t/lei-import.t
index b4446b56..89eb1492 100644
--- a/t/lei-import.t
+++ b/t/lei-import.t
@@ -172,12 +172,13 @@ 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!,
+       my $IO = '[Ii](?:nput)?/[Oo](?:utput)?';
+       like($lei_err, qr!error reading t/plack-qp\.eml: .*?$IO 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 .*?: .*?$IO error!,
                'EIO noted in stderr');
 }