X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=t%2FSub-Op-LexicalSub%2FLexicalSub.xs;h=285bc42b061997ad20f9c7adaa957aef737f0d18;hp=e67d5baa33d02e4711484180ed6b13fbb4e0905a;hb=a0c0873977f66d8024a988b8dbd8e1c092927189;hpb=b3165ff1ee361406e421b31334adc2434aa94ac1

diff --git a/t/Sub-Op-LexicalSub/LexicalSub.xs b/t/Sub-Op-LexicalSub/LexicalSub.xs
index e67d5ba..285bc42 100644
--- a/t/Sub-Op-LexicalSub/LexicalSub.xs
+++ b/t/Sub-Op-LexicalSub/LexicalSub.xs
@@ -75,7 +75,7 @@ PPCODE:
  if (SvROK(cb)) {
   cb = SvRV(cb);
   if (SvTYPE(cb) >= SVt_PVCV) {
-   c.name  = SvPV_const(name, c.len);
+   c.name  = SvPV_const(name, c.namelen);
    c.check = sols_check;
    c.ud    = SvREFCNT_inc(cb);
    c.pp    = sols_pp;