From a901b18147e02d3117f168809546ebbdac442db0 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Tue, 31 Jan 2012 18:16:48 -0800 Subject: Make SvPVbyte return bytes for non-PVs Instead of just doing SvPV on something that is not a PV, SvPVbyte should actually do what it is advertised as doing. --- proto.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'proto.h') diff --git a/proto.h b/proto.h index 4f95c42138..528f0a74e7 100644 --- a/proto.h +++ b/proto.h @@ -3716,7 +3716,7 @@ PERL_CALLCONV char* Perl_sv_2pv_flags(pTHX_ SV *const sv, STRLEN *const lp, cons #define PERL_ARGS_ASSERT_SV_2PV_NOLEN \ assert(sv) -PERL_CALLCONV char* Perl_sv_2pvbyte(pTHX_ SV *const sv, STRLEN *const lp) +PERL_CALLCONV char* Perl_sv_2pvbyte(pTHX_ SV *sv, STRLEN *const lp) __attribute__nonnull__(pTHX_1); #define PERL_ARGS_ASSERT_SV_2PVBYTE \ assert(sv) -- cgit v1.2.1