diff options
| author | Craig A. Berry <craigberry@mac.com> | 2012-11-24 19:06:45 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2012-11-24 19:17:20 -0600 |
| commit | d5eaec228240ca8b0e978d5ff4742f6feadef98e (patch) | |
| tree | dfcb781be711acbdba3789b742f201dd44aca0f4 /vms/vms.c | |
| parent | 0753128385586b74fb493c6e49d37e471ee085fb (diff) | |
| download | perl-d5eaec228240ca8b0e978d5ff4742f6feadef98e.tar.gz | |
Clarify reporting of .DIR extension on VMS.
In readdir and start_glob, we were removing the .DIR extension from
VMS directory names when reporting results in Unix format, but also
when Extended Filename Syntax (EFS) was enabled. The former makes
sense, but the latter (by itself) doesn't.
Diffstat (limited to 'vms/vms.c')
| -rw-r--r-- | vms/vms.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -10153,7 +10153,7 @@ Perl_readdir(pTHX_ DIR *dd) /* In Unix report mode, remove the ".dir;1" from the name */ /* if it is a real directory. */ - if (decc_filename_unix_report || decc_efs_charset) { + if (decc_filename_unix_report && decc_efs_charset) { if (is_dir_ext(e_spec, e_len, vs_spec, vs_len)) { Stat_t statbuf; int ret_sts; @@ -13181,7 +13181,7 @@ Perl_vms_start_glob /* In Unix report mode, remove the ".dir;1" from the name */ /* if it is a real directory */ - if (decc_filename_unix_report || decc_efs_charset) { + if (decc_filename_unix_report && decc_efs_charset) { if (is_dir_ext(e_spec, e_len, vs_spec, vs_len)) { Stat_t statbuf; int ret_sts; |