From 528557a6c86146aa28ce4f3052e696b5c8f8322d Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Wed, 27 May 2026 07:05:58 -0600
Subject: [PATCH] IO-Compress: generalize for EBCDIC

This commit changes a tr/// to a s/// and uses a regex pattern to use
mnemonics instead of hard-coded code point values, so that it works on
EBCDIC machines too.
---
 t/compress/CompTestUtils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/compress/CompTestUtils.pm b/t/compress/CompTestUtils.pm
index 9e86005..a2dad90 100644
--- a/t/compress/CompTestUtils.pm
+++ b/t/compress/CompTestUtils.pm
@@ -233,7 +233,7 @@ sub hexDump
         }
         print "   " x (16 - @array)
             if @array < 16 ;
-        $data =~ tr/\0-\37\177-\377/./;
+        $data =~ s/[[:^print:]]/./g;
         print "  $data\n";
     }