From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sun, 11 Aug 2024 01:11:21 +0000 (-0700)
Subject: fix -asbl default
X-Git-Tag: 20240511.10~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1ec0a1b3e464466a43a4e8153a0906900ac9c521;p=perltidy.git

fix -asbl default
---

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};
         }
     }