Add HEADERS_ONCE but not working

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index de9bd70d1397dfff38123ae425f56054f71f6f14..d68809788cfd718e30dd2ebe1ead92ec01d7c98c 100644 (file)
--- 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;