From 192a00ad64e9d5dddaa7821e82004b0036c3941c Mon Sep 17 00:00:00 2001
From: Richard Hansen <rhansen@rhansen.org>
Date: Wed, 8 Jul 2020 15:36:12 -0400
Subject: [PATCH] Don't match against locale-dependent `$!`

---
 t/write_cache.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/write_cache.pl b/t/write_cache.pl
index de3b6f2..70aab5e 100644
--- a/t/write_cache.pl
+++ b/t/write_cache.pl
@@ -31,8 +31,8 @@ sub tc {
 my @test_cases = (
     tc("create cache file",    catfile($dir, 'a', 'b', 'cachefile'),        undef),
     tc("overwrite cache file", catfile($dir, 'a', 'b', 'cachefile'),        undef),
-    tc("bad directory",        catfile($dir, 'a', 'b', 'cachefile', 'bad'), qr/File exists/),
-    tc("read-only directory",  catfile($ro_dir, 'cachefile'),               qr/Permission denied/),
+    tc("bad directory",        catfile($dir, 'a', 'b', 'cachefile', 'bad'), qr/Failed to create/i),
+    tc("read-only directory",  catfile($ro_dir, 'cachefile'),               qr/Failed to create/i),
 );
 
 for my $tc (@test_cases) {