From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Mon, 7 Sep 2020 22:48:26 +0000 (-0700)
Subject: protect against undefined object call
X-Git-Tag: 20200907.01~48
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ca90df737bfa6b3344c01c5b03cc03243b1dda13;p=perltidy.git

protect against undefined object call
---

diff --git a/lib/Perl/Tidy/VerticalAligner/Line.pm b/lib/Perl/Tidy/VerticalAligner/Line.pm
index 1bb014f3..679ffb8f 100644
--- a/lib/Perl/Tidy/VerticalAligner/Line.pm
+++ b/lib/Perl/Tidy/VerticalAligner/Line.pm
@@ -140,17 +140,30 @@ our $VERSION = '20200907';
 
     sub get_column {
         my ( $self, $j ) = @_;
-        return $self->{_ralignments}->[$j]->get_column();
+        my $col;
+        my $alignment = $self->{_ralignments}->[$j];
+        if ( defined($alignment) ) {
+            $col = $alignment->get_column();
+        }
+        return $col;
     }
 
     sub get_starting_column {
         my ( $self, $j ) = @_;
-        return $self->{_ralignments}->[$j]->get_starting_column();
+        my $col;
+        my $alignment = $self->{_ralignments}->[$j];
+        if ( defined($alignment) ) {
+            $col = $alignment->get_starting_column();
+        }
+        return $col;
     }
 
     sub increment_column {
         my ( $self, $k, $pad ) = @_;
-        $self->{_ralignments}->[$k]->increment_column($pad);
+        my $alignment = $self->{_ralignments}->[$k];
+        if ( defined($alignment) ) {
+            $alignment->increment_column($pad);
+        }
         return;
     }