Give G_VOID, G_SCALAR and G_ARRAY the same numeric values as

[p5sagit/p5-mst-13.2.git] / NetWare / nwperlsys.h

diff --git a/NetWare/nwperlsys.h b/NetWare/nwperlsys.h
index 955e7c1..932b066 100644 (file)
--- a/NetWare/nwperlsys.h
+++ b/NetWare/nwperlsys.h
@@ -184,7 +184,7 @@ PerlDirClose(struct IPerlDir* piPerl, DIR *dirp)
 }
 
 DIR*
-PerlDirOpen(struct IPerlDir* piPerl, char *filename)
+PerlDirOpen(struct IPerlDir* piPerl, const char *filename)
 {
        return nw_opendir(filename);
 }
@@ -342,7 +342,7 @@ PerlStdIOGetBase(struct IPerlStdIO* piPerl, FILE* pf)
     FILE *f = pf;
     return FILE_base(f);
 #else
-    return Nullch;
+    return NULL;
 #endif
 }
 
@@ -375,7 +375,7 @@ PerlStdIOGetPtr(struct IPerlStdIO* piPerl, FILE* pf)
     FILE *f = pf;
     return FILE_ptr(f);
 #else
-    return Nullch;
+    return NULL;
 #endif
 }
 
@@ -780,7 +780,7 @@ PerlLIOUnlink(struct IPerlLIO* piPerl, const char *filename)
 }
 
 int
-PerlLIOUtime(struct IPerlLIO* piPerl, char *filename, struct utimbuf *times)
+PerlLIOUtime(struct IPerlLIO* piPerl, const char *filename, struct utimbuf *times)
 {
     return nw_utime(filename, times);
 }
@@ -1300,9 +1300,7 @@ PerlSockSetservent(struct IPerlSock* piPerl, int stayopen)
 int
 PerlSockSetsockopt(struct IPerlSock* piPerl, SOCKET s, int level, int optname, const char* optval, int optlen)
 {
-       dTHX;
-    Perl_croak(aTHX_ "setsockopt not implemented!\n");
-       return 0;
+       return nw_setsockopt(s, level, optname, optval, optlen);
 }
 
 int