fixup for Encode/Tcl.t on ruthless filesystems

Message-ID: <Pine.OSF.4.10.10107131856280.270775-100000@aspara.forte.com>

p4raw-id: //depot/perl@11367

diff --git a/ext/Encode/Encode/Tcl.t b/ext/Encode/Encode/Tcl.t
index 1d1692e..0762e8e 100644 (file)
--- a/ext/Encode/Encode/Tcl.t
+++ b/ext/Encode/Encode/Tcl.t
@@ -70,7 +70,14 @@ $esc_str{$kr} = {qw(
 my $num_esc = $n * keys(%esc_str);
 foreach (values %esc_str){ $num_esc += $n * keys %$_ }
 
+my $FS_preserves_case = 1; # Unix e.g.
+if ($^O eq 'VMS') { # || $^O eq ...
+    $FS_preserves_case = 0;
+}
 my $hz = 'HZ'; # HanZi
+if (!$FS_preserves_case) {
+    $hz = 'hz'; # HanZi
+}
 
 my @hz_txt = (
   "~~in GB.~{<:Ky2;S{#,NpJ)l6HK!#~}Bye.~~",