diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-02 17:07:57 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-02 17:07:57 +0000 |
| commit | 5f74f29c8f6f417d66c92da59fd3fa4b09850be6 (patch) | |
| tree | d8df1c93d7e98029dc96f51e708d05144d3a1c4c /pp.c | |
| parent | c01c1f0dc3aef0fc53c73558fd9554442d6c8540 (diff) | |
| download | perl-5f74f29c8f6f417d66c92da59fd3fa4b09850be6.tar.gz | |
Various small nits found by DJGPP build.
p4raw-id: //depot/perl@13427
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -3142,9 +3142,10 @@ PP(pp_chr) PP(pp_crypt) { - dSP; dTARGET; dPOPTOPssrl; - STRLEN n_a; + dSP; dTARGET; #ifdef HAS_CRYPT + dPOPTOPssrl; + STRLEN n_a; STRLEN len; char *tmps = SvPV(left, len); char *t = 0; @@ -3161,11 +3162,11 @@ PP(pp_crypt) } tmps = t; } -#ifdef FCRYPT +# ifdef FCRYPT sv_setpv(TARG, fcrypt(tmps, SvPV(right, n_a))); -#else +# else sv_setpv(TARG, PerlProc_crypt(tmps, SvPV(right, n_a))); -#endif +# endif Safefree(t); #else DIE(aTHX_ |