X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Op.git;a=blobdiff_plain;f=lib%2FSub%2FOp.pm;fp=lib%2FSub%2FOp.pm;h=a3334428a1b9a0885b1cc02736530884746d31cc;hp=7e10b4eba475c3916a6e1685d43c8b6ddcea90f1;hb=52c227e1dba7dd319c434e84f3a4ff2d29dd7325;hpb=d96bad52a8f49276e74bf1028960ff524433af1d diff --git a/lib/Sub/Op.pm b/lib/Sub/Op.pm index 7e10b4e..a333442 100644 --- a/lib/Sub/Op.pm +++ b/lib/Sub/Op.pm @@ -50,7 +50,8 @@ In your XS file : refgen = pushmark->op_sibling; gvop = sub_op_study(o, &last_arg, &rv2cv); - /* Replace the function name by the refgen that contains the anon sub */ + /* Replace the function name by the refgen that contains + the anon sub */ op_free(rv2cv); last_arg->op_sibling = refgen; pushmark->op_sibling = refgen->op_sibling;