Add a gimme parameter to S_tied_handle_method().

[perl5.git] / mathoms.c

diff --git a/mathoms.c b/mathoms.c
index 4322f66..7154245 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -174,6 +174,7 @@ use the macro wrapper C<SvPV_nolen(sv)> instead.
 char *
 Perl_sv_2pv_nolen(pTHX_ register SV *sv)
 {
+    PERL_ARGS_ASSERT_SV_2PV_NOLEN;
     return sv_2pv(sv, NULL);
 }