From fe14fcc35f78a371a174a1d14256c2f35ae4262b Mon Sep 17 00:00:00 2001
From: Larry Wall <lwall@netlabs.com>
Date: Thu, 21 Mar 1991 00:00:00 +0000
Subject: perl 4.0.00: (no release announcement available)

So far, 4.0 is still a beta test version.  For the last production
version, look in pub/perl.3.0/kits@44.
---
 os2/director.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'os2/director.c')

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
-- 
cgit v1.2.1