In perl.git, the branch abigail/deprecation has been updated <http://perl5.git.perl.org/perl.git/commitdiff/7f576527b64197ef8db213b09c0c19c18b104242?hp=df699a2e01831d0a39d95275c4490c1e6f4ab043>
- Log ----------------------------------------------------------------- commit 7f576527b64197ef8db213b09c0c19c18b104242 Author: Abigail <[email protected]> Date: Fri Nov 18 14:56:56 2016 +0100 Reformat overlong comment. pod/perlhack.pod says to try hard not to exceed 79 columns. ----------------------------------------------------------------------- Summary of changes: mg.c | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/mg.c b/mg.c index baa2b25..ef5c76d 100644 --- a/mg.c +++ b/mg.c @@ -2888,11 +2888,13 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) if (SvROK(sv)) { SV *referent= SvRV(sv); const char *reftype= sv_reftype(referent, 0); - /* XXX: dodgy type check: This leaves me feeling dirty, but the alternative - * is to copy pretty much the entire sv_reftype() into this routine, or to do - * a full string comparison on the return of sv_reftype() both of which - * make me feel worse! NOTE, do not modify this comment without reviewing the - * corresponding comment in sv_reftype(). - Yves */ + /* XXX: dodgy type check: This leaves me feeling dirty, but + * the alternative is to copy pretty much the entire + * sv_reftype() into this routine, or to do a full string + * comparison on the return of sv_reftype() both of which + * make me feel worse! NOTE, do not modify this comment + * without reviewing the corresponding comment in + * sv_reftype(). - Yves */ if (reftype[0] == 'S' || reftype[0] == 'L') { IV val= SvIV(referent); if (val <= 0) { -- Perl5 Master Repository
