From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Mon, 11 Dec 2023 13:46:43 +0000 (+0100)
Subject: Add HEADERS_ONCE but not working
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=8a62fe487b849f0e75ff40ca265b2024e4a040ff;p=nb.git

Add HEADERS_ONCE but not working
---

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;