I think SvCUR() was intended rather than SvLEN()

p4raw-id: //depot/perl@24664

diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs
index e5db8f6..d746c55 100644 (file)
--- a/ext/Storable/Storable.xs
+++ b/ext/Storable/Storable.xs
@@ -2633,7 +2633,7 @@ static int store_code(pTHX_ stcxt_t *cxt, CV *cv)
                CROAK(("Unexpected return value from B::Deparse::coderef2text\n"));
 
        text = POPs;
                CROAK(("Unexpected return value from B::Deparse::coderef2text\n"));
 
        text = POPs;

-       len = SvLEN(text);
+       len = SvCUR(text);

        reallen = strlen(SvPV_nolen(text));
 
        /*
        reallen = strlen(SvPV_nolen(text));
 
        /*