summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorRichard Leach <richardleach@users.noreply.github.com>2020-07-30 23:18:41 +0100
committerGitHub <noreply@github.com>2020-07-30 16:18:41 -0600
commita04ef3ff46f2526da1484bdd80995415ac7e1969 (patch)
tree41353a9a99afd1ce2f2aabbe07bc0b4523083988 /pp.c
parent9a2d423bf2574bc422a224b0042011206251ce19 (diff)
downloadperl-a04ef3ff46f2526da1484bdd80995415ac7e1969.tar.gz
Remove obsolete FCRYPT ifdefs and associated PL_cryptseen (#17624)
Co-authored-by: Karl Williamson <khw@cpan.org>
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/pp.c b/pp.c
index 727aa7eee8..8dc8b3a2a4 100644
--- a/pp.c
+++ b/pp.c
@@ -3684,11 +3684,8 @@ PP(pp_crypt)
# endif /* HAS_CRYPT_R */
# endif /* USE_ITHREADS */
-# ifdef FCRYPT
- sv_setpv(TARG, fcrypt(tmps, SvPV_nolen_const(right)));
-# else
sv_setpv(TARG, PerlProc_crypt(tmps, SvPV_nolen_const(right)));
-# endif
+
SvUTF8_off(TARG);
SETTARG;
RETURN;