diff options
| -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] = "' '"; } |