From 7d59cf94b44761dbf7e8924c1bcced4400e80d0f Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 5 Jan 2019 17:46:15 -0800
Subject: [PATCH] -fbl has priority over -kgbd

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

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 4eb8ec82..237d95a7 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -1523,6 +1523,9 @@ sub break_lines {
                 my $kgb_keep = !( defined( $rwant_blank_line_after->{$i} )
                     && $rwant_blank_line_after->{$i} == 2 );
 
+		# But the keep-old-blank-lines flag has priority over kgb flags
+		$kgb_keep = 1 if ($rOpts_keep_old_blank_lines == 2 );
+
                 if ($rOpts_keep_old_blank_lines && $kgb_keep) {
                     $self->flush();
                     $file_writer_object->write_blank_code_line(
-- 
2.39.5