From: Peter Prymmer <PPrymmer@factset.com>
Date: Fri, 13 Jul 2001 19:00:20 +0000 (-0700)
Subject: fixup for Encode/Tcl.t on ruthless filesystems
X-Git-Tag: accepted/trunk/20130322.191538~30855
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c72d1b384d95d524706fba325310b1352838c6f1;p=platform%2Fupstream%2Fperl.git

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
--- 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.~~",