fix -asbl default

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 7943cad055eaf6b34132d69afdb3213e9b00dcc4..6b77ce605e80f48dbd7f0bc9fcc5a53ffbceb0be 100644 (file)
--- 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};
         }
     }