From: Craig A. Berry <craigberry@mac.com>
Date: Sun, 28 Mar 2010 19:58:54 +0000 (-0500)
Subject: Spaces in filenames require non-default settings on VMS.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69a90d4d7c4b759ff7c64622a880d316d9be76cb;p=p5sagit%2Fp5-mst-13.2.git

Spaces in filenames require non-default settings on VMS.

Specifically DECC$EFS_CHARSET must be enabled and not everything
plays nice with that, so for now this is a to-do.
---

diff --git a/lib/File/Copy.t b/lib/File/Copy.t
index b010fb0..b6e4a19 100644
--- a/lib/File/Copy.t
+++ b/lib/File/Copy.t
@@ -226,13 +226,15 @@ for my $cross_partition_test (0..1) {
 
   # RT #73714 copy to file with leading whitespace failed
 
+  TODO: {
+  local $TODO = 'spaces in filenames require DECC$EFS_CHARSET enabled' if $^O eq 'VMS';
   open(F, ">file-$$") or die $!;
   close F;
   copy "file-$$", " copy-$$";
   ok -e " copy-$$", "copy with leading whitespace";
   unlink "file-$$" or die "unlink: $!";
   unlink " copy-$$" or die "unlink: $!";
-
+  }
 }