From 1ec0a1b3e464466a43a4e8153a0906900ac9c521 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 10 Aug 2024 18:11:21 -0700
Subject: [PATCH] fix -asbl default

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

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 7943cad0..6b77ce60 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -5862,10 +5862,14 @@ sub make_bl_pattern {
 
     # for -bl, a list with '*' turns on -sbl and -asbl
     if ( $bl_pattern =~ /\.\*/ ) {
+
         if ( !defined( $rOpts->{$sbl_long_name} ) ) {
             $rOpts->{$sbl_long_name} = $rOpts->{$bl_long_name};
         }
-        if ( !defined( $rOpts->{$asbl_long_name} ) ) {
+
+        if (  !defined( $rOpts->{$asbl_long_name} )
+            && defined( $rOpts->{$bll_long_name} ) )
+        {
             $rOpts->{$asbl_long_name} = $rOpts->{$bl_long_name};
         }
     }
-- 
2.39.5