diff options
| author | Douglas Lankshear <doug@lankshear.net> | 1998-07-22 01:21:10 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-22 17:11:55 +0000 |
| commit | ff95b63ed9e9faabe3ba15c12a39c2c97a712ee9 (patch) | |
| tree | d0e1b48c7548b219ab2f45e04f8771df7dbc3abc /iperlsys.h | |
| parent | e9ee4811e9cb1e626e3ac1b3b595de5ded0d4121 (diff) | |
| download | perl-ff95b63ed9e9faabe3ba15c12a39c2c97a712ee9.tar.gz | |
support optional crypt() with PERL_OBJECT
Message-Id: <000701bdb584$5b57c070$a32fa8c0@tau.Active>
Subject: [PATCH 5.005 maybe] for crypt with PERL_OBJECT
p4raw-id: //depot/perl@1641
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/iperlsys.h b/iperlsys.h index 0c93fd8fad..91389a2b7b 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -634,6 +634,7 @@ class IPerlProc { public: virtual void Abort(void) = 0; + virtual char * Crypt(const char* clear, const char* salt) = 0; virtual void Exit(int status) = 0; virtual void _Exit(int status) = 0; virtual int Execl(const char *cmdname, const char *arg0, @@ -671,6 +672,7 @@ public: }; #define PerlProc_abort() PL_piProc->Abort() +#define PerlProc_crypt(c,s) PL_piProc->Crypt((c), (s)) #define PerlProc_exit(s) PL_piProc->Exit((s)) #define PerlProc__exit(s) PL_piProc->_Exit((s)) #define PerlProc_execl(c, w, x, y, z) \ @@ -713,6 +715,7 @@ public: #else /* PERL_OBJECT */ #define PerlProc_abort() abort() +#define PerlProc_crypt(c,s) crypt((c), (s)) #define PerlProc_exit(s) exit((s)) #define PerlProc__exit(s) _exit((s)) #define PerlProc_execl(c,w,x,y,z) \ |