From 8a62fe487b849f0e75ff40ca265b2024e4a040ff Mon Sep 17 00:00:00 2001
From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Mon, 11 Dec 2023 14:46:43 +0100
Subject: [PATCH] Add HEADERS_ONCE but not working

---
 lib/perl/NB/CGI.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index de9bd70d..d6880978 100644
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -129,6 +129,8 @@ sub header_status {
 	);
 	return "" if $NO_HEADERS;
 	my($self,@p) = &self_or_default(@_);
+  return "" if $self->{'.header_status_printed'}++ and $CGI::HEADERS_ONCE;
+  return "" if $self->{'.header_printed'} and $CGI::HEADERS_ONCE;
 	my $status = shift @p;
 	return '' unless $status;
 	#die $status;
-- 
2.47.3