From dfe4365adac588e79ad9eb543e18d4db0a1c81a2 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 1 Jun 2005 20:42:29 +0000 Subject: [PATCH] I think SvCUR() was intended rather than SvLEN() p4raw-id: //depot/perl@24664 --- ext/Storable/Storable.xs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index e5db8f6..d746c55 100644 --- 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; - len = SvLEN(text); + len = SvCUR(text); reallen = strlen(SvPV_nolen(text)); /* -- 1.8.3.1