diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
| commit | fe14fcc35f78a371a174a1d14256c2f35ae4262b (patch) | |
| tree | d472cb1055c47b9701cb0840969aacdbdbc9354a /os2/director.c | |
| parent | 27e2fb84680b9cc1db17238d5bf10b97626f477f (diff) | |
| download | perl-fe14fcc35f78a371a174a1d14256c2f35ae4262b.tar.gz | |
perl 4.0.00: (no release announcement available)perl-4.0.00
So far, 4.0 is still a beta test version. For the last production
version, look in pub/perl.3.0/kits@44.
Diffstat (limited to 'os2/director.c')
| -rw-r--r-- | os2/director.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/os2/director.c b/os2/director.c index d5accd73e1..3966d3d4bf 100644 --- a/os2/director.c +++ b/os2/director.c @@ -23,6 +23,7 @@ #include <os2.h> +#ifndef PERLGLOB int attributes = A_DIR | A_HIDDEN; @@ -179,7 +180,9 @@ static void free_dircontents(struct _dircontents * dp) } -static int IsFileSystemFAT(char *dir) +static +#endif +int IsFileSystemFAT(char *dir) { USHORT nDrive; ULONG lMap; @@ -216,7 +219,7 @@ static int IsFileSystemFAT(char *dir) } } - +#ifndef PERLGLOB static char *getdirent(char *dir) { int done; @@ -244,3 +247,4 @@ static char *getdirent(char *dir) return NULL; } } +#endif |