Fix incorrect sub call

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 3deeb2411662419f004c287cfd65ac6396a67857..e911b01bfac80ebc16a8af92a459b2921fafec77 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -6780,6 +6780,8 @@ sub weld_containers {
     # flags.
     my ($self) = @_;
 
+    $total_weld_count = 0;
+
     return if ( $rOpts->{'indent-only'} );
     return unless ($rOpts_add_newlines);
 
@@ -8158,7 +8160,7 @@ sub weld_nested_quotes {
 
             # Check weld exclusion rules for outer container
             if ( !$do_not_weld ) {
-                my $is_leading = !$self->is_welded_left_at_K($Kouter_opening);
+                my $is_leading = !defined( $rK_weld_left->{$Kouter_opening} );
                 if ( $self->is_excluded_weld( $KK, $is_leading ) ) {
                     if (DEBUG_WELD) {
                         $Msg .=

diff --git a/local-docs/BugLog.pod b/local-docs/BugLog.pod
index 0f5e72993595726306b928bab984e9c4fbea3ba1..ac3950db9ab0bce9c601f627d3d190b68fb8ad9f 100644 (file)
--- a/local-docs/BugLog.pod
+++ b/local-docs/BugLog.pod
@@ -2,6 +2,13 @@
 
 =over 4
 
+=item B<Fix incorrect sub call>
+
+This fixes an incorrect call which could cause an incorrect weld.
+
+16 Jun 2021.
+
+
 =item B<Add --code-skipping option, see git #65>
 
 Added a new option '--code-skipping', requested in git #65, in which code
@@ -9,6 +16,8 @@ between comment lines '#<<V' and '#>>V' is passed verbatim to the output stream
 without error checking.  It is simmilar to --format skipping but there is no
 error checking, and is useful for skipping an extended syntax.
 
+16 Jun 2021.
+
 =item B<Handle nested print format blocks>
 
 Perltidy was producing an error at nested print format blocks,