add error checks

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 9dc5a79df77a3782250dcc71ade1c93897264ed7..7a06a0f19cf483da19350dc06ceae5840d212ba3 100644 (file)
--- 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";
                         }
                     }
                 }