1 files changed, 4 insertions, 0 deletions
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm
index 8828a52bfc..3333844ca6 100644
--- a/lib/File/Basename.pm
+++ b/lib/File/Basename.pm
@@ -177,6 +177,10 @@ sub fileparse {
   }
   elsif ($fstype !~ /^VMS/i) {  # default to Unix
     ($dirpath,$basename) = ($fullname =~ m#^(.*/)?(.*)#);
+    if ($^O eq 'VMS' and $fullname =~ m:/[^/]+/000000/?:) {
+      # dev:[000000] is top of VMS tree, similar to Unix '/'
+      ($basename,$dirpath) = ('',$fullname);
+    }
     $dirpath = './' unless $dirpath;
   }