From c5956cd3a68f82fe298e7410c9e4cef39f3c4b52 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 4 Sep 2020 20:58:28 -0700
Subject: [PATCH] fixed minor undefined variable problem

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

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index dc11a18e..f9fde7a3 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -14853,6 +14853,13 @@ sub pad_array_to_go {
                                 # we are breaking after an opening brace, paren,
                                 # so don't break before it too
                                 && $i_start_2 ne $i_opening
+
+                                # Defensive coding check: be sure the index is valid.
+                                # FIXME: We should probably be using K indexes for 'starting_index'
+                                # so that the object can remain valid between batches.
+                                # See test problem: random_issues/random_487.pro
+                                && $i_start_2 >= 0
+                                && $i_start_2 <= $max_index_to_go
                               )
                             {
 
-- 
2.39.5