From 6fcfeb511a1d4895d2b064c4ed0850f1b1340513 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 2 Jun 2019 13:38:51 -0700
Subject: [PATCH] removed restriction on '=~' as alignment token
---
lib/Perl/Tidy/Formatter.pm | 27 ++++++++++++++-------------
1 file changed, 14 insertions(+), 13 deletions(-)
diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 0d30a348..c1314a33 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -11535,19 +11535,20 @@ sub get_seqno {
$alignment_type = $vert_last_nonblank_type;
}
- #--------------------------------------------------------
- # patch for =~ operator. We only align this if it
- # is the first operator in a line, and the line is a simple
- # statement. Aligning them within a statement
- # interferes could interfere with other good alignments.
- #--------------------------------------------------------
- if ( $alignment_type eq '=~' ) {
- my $terminal_type = $types_to_go[$i_terminal];
- if ( $count > 0 || $max_line > 0 || $terminal_type ne ';' )
- {
- $alignment_type = "";
- }
- }
+## #--------------------------------------------------------
+## # DEACTIVATED; DOES NOT SEEM NEEDED WITH NEW VERTICAL ALIGNER
+## # patch for =~ operator. We only align this if it
+## # is the first operator in a line, and the line is a simple
+## # statement. Aligning them within a statement
+## # could interfere with other good alignments.
+## #--------------------------------------------------------
+## if ( $alignment_type eq '=~' ) {
+## my $terminal_type = $types_to_go[$i_terminal];
+## if ( $count > 0 || $max_line > 0 || $terminal_type ne ';' )
+## {
+## $alignment_type = "";
+## }
+## }
#--------------------------------------------------------
# then store the value
--
2.39.5