factor out TAINT_NOT into S_adjust_stack_on_leave

[perl5.git] / universal.c

diff --git a/universal.c b/universal.c
index 825dff5..906f74c 100644 (file)
--- a/universal.c
+++ b/universal.c
@@ -326,7 +326,7 @@ Perl_croak_xs_usage(const CV *const cv, const char *const params)
 
        /* Pants. I don't think that it should be possible to get here. */
        /* diag_listed_as: SKIPME */
-       Perl_croak_nocontext("Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
+       Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
     }
 }