[win32] merge change#886 from maintbranch

[p5sagit/p5-mst-13.2.git] / vms / ext / Filespec.pm

diff --git a/vms/ext/Filespec.pm b/vms/ext/Filespec.pm
index b0b1414..4a539c2 100644 (file)
--- a/vms/ext/Filespec.pm
+++ b/vms/ext/Filespec.pm
@@ -266,6 +266,7 @@ sub fileify ($) {
   my($path) = @_;
 
   if (!$path) { return undef }
+  if ($path eq '/') { return 'sys$disk:[000000]'; }
   if ($path =~ /(.+)\.([^:>\]]*)$/) {
     $path = $1;
     if ($2 !~ /^dir(?:;1)?$/i) { return undef }