device name problems with extended charset and File::Spec

With current blead, if I define both DECC$EFS_CHARSET and DECC 
$EFS_FILENAME_UNIX_REPORT, I see the following:

$ perl -"MFile::Spec::Functions" -e "print catfile(File::Spec- 
 >tmpdir(), 'bar');"
./bar

Obviously it should be giving me '/sys$scratch/bar'.

With only DECC$EFS_CHARSET defined, I get:

$ perl -"MFile::Spec::Functions" -e "print catfile(File::Spec- 
 >tmpdir(), 'bar');"
[.sys$scratch:]bar

where it's apparently failed to recognize 'sys$scratch:' as a device  
name.  The colon is not escaped, so the result is not even a valid  
filespec, much less the correct one.

Are there changes to File::Path kicking around somewhere that are not  
yet in blead, or is this still a todo?

________________________________________
Craig A. Berry
mailto:[email protected]

"... getting out of a sonnet is much more
  difficult than getting in."
                  Brad Leithauser