From ca90df737bfa6b3344c01c5b03cc03243b1dda13 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Mon, 7 Sep 2020 15:48:26 -0700 Subject: [PATCH] protect against undefined object call --- lib/Perl/Tidy/VerticalAligner/Line.pm | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) 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; } -- 2.39.5