diff options
author | Steve Peters <steve@fisharerojo.org> | 2007-12-23 00:39:17 +0000 |
---|---|---|
committer | Steve Peters <steve@fisharerojo.org> | 2007-12-23 00:39:17 +0000 |
commit | 4e205ed637fa853d115099170e6e11407ca49619 (patch) | |
tree | 25ca3fcb48f529227c43cd5a88703764ce2c1039 /NetWare | |
parent | dfe169eecccf8121d08f5b1eedd95ae222cf7b9e (diff) | |
download | perl-4e205ed637fa853d115099170e6e11407ca49619.tar.gz |
Nullch and others were still alive and well in some of the operating
system specific directories. I think I've chainsawed all of them now,
but I can't guarantee that it compiles anywhere from win32.
p4raw-id: //depot/perl@32713
Diffstat (limited to 'NetWare')
-rw-r--r-- | NetWare/nw5.c | 6 | ||||
-rw-r--r-- | NetWare/nwperlhost.h | 4 | ||||
-rw-r--r-- | NetWare/nwperlsys.h | 4 | ||||
-rw-r--r-- | NetWare/nwstdio.h | 2 |
4 files changed, 8 insertions, 8 deletions
diff --git a/NetWare/nw5.c b/NetWare/nw5.c index aac80317d4..552106af4d 100644 --- a/NetWare/nw5.c +++ b/NetWare/nw5.c @@ -318,7 +318,7 @@ nw_crypt(const char *txt, const char *salt) return des_fcrypt(txt, salt, w32_crypt_buffer); #else Perl_croak(aTHX_ "The crypt() function is not implemented on NetWare\n"); - return Nullch; + return NULL; #endif } @@ -1001,7 +1001,7 @@ do_spawn2(char *cmd, int exectype) if (*s) *s++ = '\0'; } - *a = Nullch; + *a = NULL; if (argv[0]) { switch (exectype) { case EXECF_SPAWN: @@ -1031,7 +1031,7 @@ do_spawn2(char *cmd, int exectype) while (++i < nw_perlshell_items) argv[i] = nw_perlshell_vec[i]; argv[i++] = cmd; - argv[i] = Nullch; + argv[i] = NULL; switch (exectype) { case EXECF_SPAWN: status = nw_spawnvp(P_WAIT, argv[0], (char **)argv); diff --git a/NetWare/nwperlhost.h b/NetWare/nwperlhost.h index ff3fdee158..e257dd94bb 100644 --- a/NetWare/nwperlhost.h +++ b/NetWare/nwperlhost.h @@ -448,7 +448,7 @@ PerlStdIOGetBase(struct IPerlStdIO* piPerl, PerlIO* pf) FILE *f = (FILE*)pf; return FILE_base(f); #else - return Nullch; + return NULL; #endif } @@ -481,7 +481,7 @@ PerlStdIOGetPtr(struct IPerlStdIO* piPerl, PerlIO* pf) FILE *f = (FILE*)pf; return FILE_ptr(f); #else - return Nullch; + return NULL; #endif } diff --git a/NetWare/nwperlsys.h b/NetWare/nwperlsys.h index ed1b632e11..932b06664c 100644 --- a/NetWare/nwperlsys.h +++ b/NetWare/nwperlsys.h @@ -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 } diff --git a/NetWare/nwstdio.h b/NetWare/nwstdio.h index 1ddadb550b..4aabb0a815 100644 --- a/NetWare/nwstdio.h +++ b/NetWare/nwstdio.h @@ -52,7 +52,7 @@ #ifdef HAS_SETLINEBUF #define PerlIO_setlinebuf(f) (*PL_StdIO->pSetlinebuf)(PL_StdIO, (f)) #else -#define PerlIO_setlinebuf(f) setvbuf(f, Nullch, _IOLBF, 0) +#define PerlIO_setlinebuf(f) setvbuf(f, NULL, _IOLBF, 0) #endif #define PerlIO_isutf8(f) 0 |