Skip to content

Commit 648120d

Browse files
khwilliamsonpmqs
authored andcommitted
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.
1 parent f197957 commit 648120d

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

t/compress/CompTestUtils.pm

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -233,7 +233,7 @@ sub hexDump
233233
}
234234
print " " x (16 - @array)
235235
if @array < 16 ;
236-
$data =~ tr/\0-\37\177-\377/./;
236+
$data =~ s/[[:^print:]]/./g;
237237
print " $data\n";
238238
}
239239

0 commit comments

Comments
 (0)