From 2b287fa2def7cad09150af9744ba90e2eba978d6 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 27 Sep 2024 07:15:10 -0700
Subject: [PATCH] add error checks

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

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";
                         }
                     }
                 }
-- 
2.39.5