From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 27 Sep 2024 14:15:10 +0000 (-0700)
Subject: add error checks
X-Git-Tag: 20240903.04~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2b287fa2def7cad09150af9744ba90e2eba978d6;p=perltidy.git

add error checks
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 9dc5a79d..7a06a0f1 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -3147,11 +3147,19 @@ sub initialize_trailing_comma_rules {
                     next;
                 }
 
+                my $duplicate;
                 foreach my $sign (@signs) {
                     foreach my $key (@keys) {
+                        if ( defined( $rule_hash{$sign}->{$key} ) ) {
+                            $duplicate = 1;
+                        }
                         $rule_hash{$sign}->{$key} = [ $val, $paren_flag ];
                     }
                 }
+                if ($duplicate) {
+                    $error_message .=
+                      "This term overlaps a previous term: '$part_input'\n";
+                }
             }
         }
 
@@ -3185,7 +3193,7 @@ sub initialize_trailing_comma_rules {
                         if ( $add_order <= $delete_order ) {
                             my $token = $matching_token{$key};
                             $error_message .=
-"At token '$token': the range for '+$add_val' overlaps the range for '-$delete_val'\n";
+"For token '$token': the range for '+$add_val' overlaps the range for '-$delete_val'\n";
                         }
                     }
                 }