make t/uni/class.t pass on VMS

From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <415D9AA3.1000908@mac.com>

p4raw-id: //depot/perl@23343

diff --git a/t/uni/class.t b/t/uni/class.t
index 130b720..66f3962 100644 (file)
--- a/t/uni/class.t
+++ b/t/uni/class.t
@@ -112,10 +112,17 @@ for my $p ('gc', 'sc') {
 }
 
 # test extra properties (ASCII_Hex_Digit, Bidi_Control, etc.)
+SKIP:
 {
-  # Aargh. Nasty case insensitive filesystems mean that Cf.pl will cause a -e
-  # test for cf.pl to return true. So need to read the filenames explicitly
-  # to get a case sensitive test
+  skip "Can't reliably derive class names from file names", 544 if $^O eq 'VMS';
+
+  # On case tolerant filesystems, Cf.pl will cause a -e test for cf.pl to
+  # return true. Try to work around this by reading the filenames explicitly
+  # to get a case sensitive test.  N.B.  This will fail if filename case is
+  # not preserved because you might go looking for a class name of CF or cf
+  # when you really want Cf.  Storing case sensitive data in filenames is 
+  # simply not portable.
+
   my %files;
 
   my $dirname = File::Spec->catdir($updir => lib => unicore => lib => gc_sc);