This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
I think SvCUR() was intended rather than SvLEN()
[perl5.git] / ext / Storable / Storable.xs
index e5db8f6..d746c55 100644 (file)
@@ -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;
-       len = SvLEN(text);
+       len = SvCUR(text);
        reallen = strlen(SvPV_nolen(text));
 
        /*