From c72d1b384d95d524706fba325310b1352838c6f1 Mon Sep 17 00:00:00 2001
From: Peter Prymmer <PPrymmer@factset.com>
Date: Fri, 13 Jul 2001 12:00:20 -0700
Subject: [PATCH] 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
---
 ext/Encode/Encode/Tcl.t | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/ext/Encode/Encode/Tcl.t b/ext/Encode/Encode/Tcl.t
index 1d1692e..0762e8e 100644
--- 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.~~",
-- 
2.7.4