diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-01 20:42:29 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-01 20:42:29 +0000 |
| commit | dfe4365adac588e79ad9eb543e18d4db0a1c81a2 (patch) | |
| tree | 8322cc409209810cb386ceb13b6f26b7e3bee1d3 /ext/Storable | |
| parent | 101b44f6ff6052cc886f55e6c897263bea11c2df (diff) | |
| download | perl-dfe4365adac588e79ad9eb543e18d4db0a1c81a2.tar.gz | |
I think SvCUR() was intended rather than SvLEN()
p4raw-id: //depot/perl@24664
Diffstat (limited to 'ext/Storable')
| -rw-r--r-- | ext/Storable/Storable.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index e5db8f6107..d746c55ba0 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)); /* |