From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 1 Jun 2005 20:42:29 +0000 (+0000)
Subject: I think SvCUR() was intended rather than SvLEN()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dfe4365adac588e79ad9eb543e18d4db0a1c81a2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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));
 
 	/*