microperl: if DIEing on no-functionality, the has-functionality

would be unreachable code.

p4raw-id: //depot/perl@16723

1 files changed, 2 insertions, 2 deletions

diff --git a/pp.c b/pp.c
index 7ff513802c..531516b2d1 100644
--- a/pp.c
+++ b/pp.c
@@ -3305,12 +3305,12 @@ PP(pp_crypt)
 #   else
     sv_setpv(TARG, PerlProc_crypt(tmps, SvPV(right, n_a)));
 #   endif
+    SETs(TARG);
+    RETURN;
 #else
     DIE(aTHX_
       "The crypt() function is unimplemented due to excessive paranoia.");
 #endif
-    SETs(TARG);
-    RETURN;
 }
 
 PP(pp_ucfirst)