diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-05 23:12:19 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-05 23:12:19 +0000 |
commit | 4d76e4b4b06e50f8d4823ad3dd37d8c202e442e0 (patch) | |
tree | 42e80c4d0b532e8dabd0caf3a49266b92693d85d /NetWare/nw5.c | |
parent | b15a22ab7111cb08cbc38a0a816e11f3fc34a386 (diff) | |
download | perl-4d76e4b4b06e50f8d4823ad3dd37d8c202e442e0.tar.gz |
NetWare update from Ananth Kesari.
p4raw-id: //depot/perl@14567
Diffstat (limited to 'NetWare/nw5.c')
-rw-r--r-- | NetWare/nw5.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/NetWare/nw5.c b/NetWare/nw5.c index 5dd8927649..743fd34fd9 100644 --- a/NetWare/nw5.c +++ b/NetWare/nw5.c @@ -212,7 +212,7 @@ long nw_telldir(DIR *dirp) { dTHX; - Perl_croak(aTHX_ "telldir function is not implemented"); + Perl_croak(aTHX_ "The telldir() function is not implemented on NetWare\n"); return 0l; } @@ -298,7 +298,7 @@ nw_crypt(const char *txt, const char *salt) dTHR; return des_fcrypt(txt, salt, w32_crypt_buffer); #else - Perl_croak(aTHX_ "The crypt() function is unimplemented due to excessive paranoia."); + Perl_croak(aTHX_ "The crypt() function is not implemented on NetWare\n"); return Nullch; #endif } @@ -394,6 +394,8 @@ nw_fileno(FILE *pf) int nw_flock(int fd, int oper) { + dTHX; + Perl_croak(aTHX_ "The flock() function is not implemented on NetWare\n"); return 0; } @@ -753,7 +755,7 @@ void nw_rewinddir(DIR *dirp) { dTHX; - Perl_croak(aTHX_ "rewinddir function is not implemented"); + Perl_croak(aTHX_ "The rewinddir() function is not implemented on NetWare\n"); } void @@ -767,7 +769,7 @@ void nw_seekdir(DIR *dirp, long loc) { dTHX; - Perl_croak(aTHX_ "seekdir function is not implemented"); + Perl_croak(aTHX_ "The seekdir() function is not implemented on NetWare\n"); } int * |