Deprecate mg_length; make it return bytes

[perl5.git] / proto.h

diff --git a/proto.h b/proto.h
index fa69fa9..f104a22 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -2372,6 +2372,7 @@ PERL_CALLCONV int Perl_mg_get(pTHX_ SV* sv)
        assert(sv)
 
 PERL_CALLCONV U32      Perl_mg_length(pTHX_ SV* sv)
+                       __attribute__deprecated__
                        __attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_MG_LENGTH     \
        assert(sv)