Change 11367 by jhi@alpha on 2001/07/14 01:07:03
Subject: [PATCH: perl@11359] fixup for Encode/Tcl.t on ruthless filesystems
From: Peter Prymmer <[EMAIL PROTECTED]>
Date: Fri, 13 Jul 2001 19:00:20 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Encode/Encode/Tcl.t#4 edit
Differences ...
==== //depot/perl/ext/Encode/Encode/Tcl.t#4 (text) ====
Index: perl/ext/Encode/Encode/Tcl.t
--- perl/ext/Encode/Encode/Tcl.t.~1~ Fri Jul 13 19:15:05 2001
+++ perl/ext/Encode/Encode/Tcl.t Fri Jul 13 19:15:05 2001
@@ -70,7 +70,14 @@
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.~~",
End of Patch.
