diff options
| author | Craig A. Berry <craigberry@mac.com> | 2014-01-25 10:50:02 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2014-01-25 10:55:14 -0600 |
| commit | 60e5a54b7c38e5e2a1346423236d205576f8234d (patch) | |
| tree | 75800b569b4e1b4da54c458d474a40e37bb07c04 /ext/VMS-Filespec | |
| parent | 0f669c9d195bffa8ed03ffc8a452415a7246a942 (diff) | |
| download | perl-60e5a54b7c38e5e2a1346423236d205576f8234d.tar.gz | |
Make fileify handle node specifications better.
In particular, a node specification containing only a single
directory (i.e., node::dev:[dir]) was not being handled properly.
This came up while reproducing the problem in [perl #121002] but
was not the cause of that problem as the OP's directory had
multiple subdirectories in it.
Diffstat (limited to 'ext/VMS-Filespec')
| -rw-r--r-- | ext/VMS-Filespec/t/filespec.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/VMS-Filespec/t/filespec.t b/ext/VMS-Filespec/t/filespec.t index 09ee7f9bfe..2c7a5b5a8b 100644 --- a/ext/VMS-Filespec/t/filespec.t +++ b/ext/VMS-Filespec/t/filespec.t @@ -138,6 +138,8 @@ __down_:[__the_.__garden_]__path_. fileify ^ __down_:[__the_.__garden_]__pat __down_:[__the_]__garden_.__path_ fileify ^ __down_:[__the_]__garden_^.__path_.dir;1 #undef /__down_/__the_/__garden_/__path_. fileify ^ /__down_/__the_/__garden_/__path_..dir;1 # N.B. trailing . ==> null type /__down_/__the_/__garden_.__path_ fileify ^ /__down_/__the_/__garden_.__path_.dir;1 +__down_::__the_:[__garden_.__path_] fileify __down_::__the_:[__garden_]__path_.dir;1 ^ +__down_::__the_:[__garden_] fileify __down_::__the_:[000000]__garden_.dir;1 ^ # and pathifying them __down_:[__the_.__garden_]__path_.dir;1 pathify __down_:[__the_.__garden_.__path_] ^ |