From 984ee9148fcafc189990bbf0d39cd78b273da9ee Mon Sep 17 00:00:00 2001
From: Dmitry Karasik <dmitry.karasik@teliacompany.com>
Date: Sat, 7 Dec 2024 07:18:30 +0100
Subject: [PATCH] typo fix

---
 Prima/ScrollBar.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Prima/ScrollBar.pm b/Prima/ScrollBar.pm
index 449d244e..8fea7d80 100644
--- a/Prima/ScrollBar.pm
+++ b/Prima/ScrollBar.pm
@@ -249,7 +249,8 @@ sub on_paint
 
 		for my $part ( qw( left right))
 		{
-			my $p = $self->{$part} or next;
+			my $p = $self->{$part};
+			next unless $p->{rect};
 			my @r = @{$p-> {rect}};
 			if ( $skin ne 'flat') {
 				$canvas-> color( $c3d[1]);