From 0f08cbc9a297292c44bc1d64f08b47a5bc3bad07 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Thu, 24 Mar 2022 07:49:29 -0700
Subject: [PATCH] minor -pbp formatting improvement, issue c054

---
 lib/Perl/Tidy/Formatter.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 262cfe0b..beb47397 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -16145,6 +16145,10 @@ sub break_equals {
 
                             # handle '.' and '?' specially below
                             || ( $type_ibeg_2 =~ /^[\.\?]$/ )
+
+                            # fix for c054 (unusual -pbp case)
+                            || $type_ibeg_2 eq '=='
+
                           );
                     }
 
-- 
2.39.5