diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 09:06:18 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 09:06:18 +0000 |
| commit | 491527d0220de34ec13035d557e288c9952d1007 (patch) | |
| tree | 683ef586eb7bbf72dee104e2b0fd44cc8298b444 /lib/File/Basename.pm | |
| parent | a3cb178b0bad32fa8be934503d051b96a3cb1fea (diff) | |
| download | perl-491527d0220de34ec13035d557e288c9952d1007.tar.gz | |
[win32] merge change#886 from maintbranch
p4raw-link: @886 on //depot/maint-5.004/perl: 6dba07070c2cb08ffbc6e00eff60e8f5fc9a7ee8
p4raw-id: //depot/win32/perl@936
Diffstat (limited to 'lib/File/Basename.pm')
| -rw-r--r-- | lib/File/Basename.pm | 4 |
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; } |