From b54ed1c793fbfd1e9a6bdf117dea77bfac8ba4a4 Mon Sep 17 00:00:00 2001
From: Zefram <zefram@fysh.org>
Date: Sun, 5 Nov 2017 00:09:32 +0000
Subject: [PATCH] deparse implicit ~~ as explicit with -x2

Fixes [perl #91362].
---
 lib/B/Deparse.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
index 4ff427c..35d305f 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 {
-- 
1.8.3.1