diff options
| author | Craig A. Berry <craigberry@mac.com> | 2010-03-28 14:58:54 -0500 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-03-28 21:20:58 +0100 |
| commit | 69a90d4d7c4b759ff7c64622a880d316d9be76cb (patch) | |
| tree | 57e86cb38e09a0ddca08667ca319e21aeb3b2b1b | |
| parent | 6def1d2a83dfade502210345b8348caea49fbb50 (diff) | |
| download | perl-69a90d4d7c4b759ff7c64622a880d316d9be76cb.tar.gz | |
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.
| -rw-r--r-- | lib/File/Copy.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/File/Copy.t b/lib/File/Copy.t index b010fb0ea6..b6e4a19666 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: $!"; - + } } |