Some living people appeared in books when -l not given

gedcom

@@ -1284,6 +1284,7 @@ if($opts{'H'}) {
 		}
 
 		if($opts{'B'}) {
+			# Add the index pages at the end of the book
 			$pdfpage = NJH::PDFPage->new($pdf);
 			my $page = $pdf->page();
 
@@ -1653,6 +1654,8 @@ sub print_person
 		return;
 	}
 
+	return if((!$opts{'l'}) && is_alive($person));
+
 	my $marriage = $person->get_record('marriage') || $person->get_record('fams marriage');
 	# my $dateofmarriage = get_value({ person => $person, value => 'marriage date' });
 	# if((!$dateofmarriage) && $marriage) {