/*
- * Copyright © 2001 Novell, Inc. All Rights Reserved.
+ * Copyright © 2001 Novell, Inc. All Rights Reserved.
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
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
}
void
sys_intern_dup(pTHX_ struct interp_intern *src, struct interp_intern *dst)
{
-
+ PERL_ARGS_ASSERT_SYS_INTERN_DUP;
}
#endif /* HAVE_INTERP_INTERN */
// Some more functions:
-char *
-nw_get_sitelib(const char *pl)
-{
- return (NULL);
-}
-
int
execv(char *cmdname, char **argv)
{
if (*s)
*s++ = '\0';
}
- *a = Nullch;
+ *a = NULL;
if (argv[0]) {
switch (exectype) {
case EXECF_SPAWN:
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);