diff options
| author | Zefram <zefram@fysh.org> | 2017-11-05 00:09:32 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2017-11-05 00:09:32 +0000 |
| commit | b54ed1c793fbfd1e9a6bdf117dea77bfac8ba4a4 (patch) | |
| tree | 2482ac544e79a3dbae9188e1fd1359d37f984d88 /lib | |
| parent | 0ebeacdeceb9d5e4b7dbd3ef4eb6834aac4a0435 (diff) | |
| download | perl-b54ed1c793fbfd1e9a6bdf117dea77bfac8ba4a4.tar.gz | |
deparse implicit ~~ as explicit with -x2
Fixes [perl #91362].
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/B/Deparse.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm index 4ff427c51c..35d305f6e3 100644 --- a/lib/B/Deparse.pm +++ b/lib/B/Deparse.pm @@ -51,7 +51,7 @@ use B qw(class main_root main_start main_cv svref_2object opnumber perlstring MDEREF_SHIFT ); -$VERSION = '1.44'; +$VERSION = '1.45'; use strict; use vars qw/$AUTOLOAD/; use warnings (); @@ -3118,7 +3118,7 @@ sub pp_aassign { binop(@_, "=", 7, SWAP_CHILDREN | LIST_CONTEXT) } sub pp_smartmatch { my ($self, $op, $cx) = @_; - if ($op->flags & OPf_SPECIAL) { + if (($op->flags & OPf_SPECIAL) && $self->{expand} < 2) { return $self->deparse($op->last, $cx); } else { |