diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2006-02-12 10:24:58 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-02-15 04:32:14 +0000 |
| commit | 657054d4f860463a01c553d017c1818834862dcf (patch) | |
| tree | 6586db7a94fba5c30fbbc287d35443f94781f343 /vms/vmsish.h | |
| parent | fe13e0deed9f849d80126555fb02ff2648214ee4 (diff) | |
| download | perl-657054d4f860463a01c553d017c1818834862dcf.tar.gz | |
patch@27162 long path name support in readdir / cando_by_name
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <43EF999A.1020500@qsl.net>
p4raw-id: //depot/perl@27187
Diffstat (limited to 'vms/vmsish.h')
| -rw-r--r-- | vms/vmsish.h | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 858024cce3..2c8bacecd3 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -580,6 +580,11 @@ struct utimbuf { * */ +/* Flags for the _dirdesc structure */ +#define PERL_VMSDIR_M_VERSIONS 0x02 /* Want VMS versions */ +#define PERL_VMSDIR_M_UNIXSPECS 0x04 /* Want UNIX specifications */ + + /* Data structure returned by READDIR(). */ struct dirent { char d_name[256]; /* File name */ @@ -592,7 +597,7 @@ struct dirent { * are not supposed to care what's inside this structure. */ typedef struct _dirdesc { long context; - int vms_wantversions; + int flags; unsigned long int count; char *pattern; struct dirent entry; |