fixed minor undefined variable problem

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index dc11a18ef2d4456979f3072da51db11feab0d7ae..f9fde7a3d32a926697d41060cb2535cbb69c8f45 100644 (file)
--- 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
                               )
                             {