From da3ad2a9f0c0ed3dcb8edf1742e0602306a38479 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 12 Nov 2018 17:54:03 -0800
Subject: [PATCH] Added alignment of !~

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

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index fec69f32..8630170c 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -9419,6 +9419,9 @@ sub send_lines_to_vertical_aligner {
 
                 my $tok = my $raw_tok = $matching_token_to_go[$i];
 
+		# map similar items
+		if ($tok eq '!~') {$tok = '=~'}
+
                 # make separators in different nesting depths unique
                 # by appending the nesting depth digit.
                 if ( $raw_tok ne '#' ) {
@@ -10614,7 +10617,7 @@ sub get_seqno {
         # Replaced =~ and // in the list.  // had been removed in RT 119588
         @q = qw#
           = **= += *= &= <<= &&= -= /= |= >>= ||= //= .= %= ^= x=
-          { ? : => && || ~~ !~~ =~ //
+          { ? : => && || ~~ !~~ =~ !~ //
           #;
         @is_vertical_alignment_type{@q} = (1) x scalar(@q);
 
-- 
2.39.5