diff options
author | Yves Orton <demerphq@gmail.com> | 2013-03-25 23:15:00 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2013-03-27 08:38:01 +0100 |
commit | 3a1b438d8754210a3357e3be5ccec788e9be1c0a (patch) | |
tree | c36934ce6a84f9e116b51d604e953346d5f8613b | |
parent | dbc200c5a1d3ae1d9360435a384c19883bf5f4f6 (diff) | |
download | perl-3a1b438d8754210a3357e3be5ccec788e9be1c0a.tar.gz |
fix comment, reindent and add parenthesis for clarity
I had to stare at this expression and make sure there wasn't
anything tricky for too long, so I added parens, and reindented
it.
-rw-r--r-- | dist/B-Deparse/Deparse.pm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/dist/B-Deparse/Deparse.pm b/dist/B-Deparse/Deparse.pm index 1771f0189d..0241c14128 100644 --- a/dist/B-Deparse/Deparse.pm +++ b/dist/B-Deparse/Deparse.pm @@ -20,7 +20,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber perlstring CVf_METHOD CVf_LVALUE PMf_KEEP PMf_GLOBAL PMf_CONTINUE PMf_EVAL PMf_ONCE PMf_MULTILINE PMf_SINGLELINE PMf_FOLD PMf_EXTENDED); -$VERSION = '1.19'; +$VERSION = '1.20'; use strict; use vars qw/$AUTOLOAD/; use warnings (); @@ -4803,13 +4803,16 @@ sub pp_split { # handle special case of split(), and split(' ') that compiles to /\s+/ # Under 5.10, the reflags may be undef if the split regexp isn't a constant - # Under 5.17.5+, the special flag is on split itself. + # Under 5.17.5-5.17.9, the special flag is on split itself. $kid = $op->first; if ( $op->flags & OPf_SPECIAL - or - $kid->flags & OPf_SPECIAL - and ( $] < 5.009 ? $kid->pmflags & PMf_SKIPWHITE() - : ($kid->reflags || 0) & RXf_SKIPWHITE() ) ) { + or ( + $kid->flags & OPf_SPECIAL + and ( $] < 5.009 ? $kid->pmflags & PMf_SKIPWHITE() + : ($kid->reflags || 0) & RXf_SKIPWHITE() + ) + ) + ) { $exprs[0] = "' '"; } |