getwd f|rst, sedan getcwd

Rev: src/modules/files/configure.in:1.2
Rev: src/modules/files/efuns.c:1.2

src/modules/files/configure.in

@@ -9,7 +9,7 @@ AC_HAVE_HEADERS(arpa/inet.h sys/socketvar.h netinet/in.h)
 AC_HEADER_DIRENT
 AC_CHECK_LIB(socket, socket)
 
-AC_HAVE_FUNCS(socketpair)
+AC_HAVE_FUNCS(socketpair getwd getcwd)
 
 AC_MSG_CHECKING(size of socket buffers)
 AC_CACHE_VAL(lpc_cv_socket_buffer_max,

src/modules/files/efuns.c

@@ -194,12 +194,14 @@ void f_getcwd(INT32 args)
   char *e;
   pop_n_elems(args);
 
-#ifdef HAVE_GETCWD
-  e=(char *)getcwd(0,1000); 
-#else
+#ifdef HAVE_GETWD
   e=(char *)getwd((char *)malloc(MAXPATHLEN+1));
   if(!e)
     fatal("Couldn't fetch current path.\n");
+#else
+#ifdef HAVE_GETCWD
+  e=(char *)getcwd(0,1000); 
+#endif
 #endif
   push_string(make_shared_string(e));
   free(e);