Craig A. Berry wrote:
I went back to my original test case (not the narrower one you ended up
fixing) and it looks like we are half-way there. If both
DECC$EFS_CHARSET and DECC$FILENAME_UNIX_REPORT are defined, this works:
$ perl -"MFile::Spec::Functions" -e "print catfile(File::Spec->tmpdir(),
'bar');"
/sys$scratch/bar
but if only DECC$EFS_CHARSET is defined, it doesn't:
$ perl -"MFile::Spec::Functions" -e "print catfile(File::Spec->tmpdir(),
'bar');"
[.sys$scratch:]bar
The attached patch has not been run through a full test run yet.
The problem was that catfile was expecting that the path components were
either contained VMS directory delimiters or were bare words.
The earlier part of the code detected the trailing ":" so knew to treat
the path a VMS.
This patch allows a path ending with a ":" to be treated as a VMS
directory path.
-John
wb8...@qsl.net
Personal Opinion Only
--- /rsync_root/perl/lib/File/Spec/VMS.pm Sun May 10 04:02:09 2009
+++ lib/File/Spec/VMS.pm Sun Jun 7 13:01:54 2009
@@ -445,7 +445,12 @@
$spath = '[' . $spath . ']' if $spath =~ /^-/;
$rslt = vmspath($spath);
} else {
- $rslt = '[.' . $spath . ']';
+ if ($spath =~ /:$/) {
+ # Handle device name with out directory for path.
+ $rslt = $spath;
+ } else {
+ $rslt = '[.' . $spath . ']';
+ }
}
$file = vmsify($file) if ($file_unix);
} else {
