From: Nicolas Boisselier <nicolas.boisselier@gmail.com>
Date: Sat, 19 Oct 2024 08:19:30 +0000 (+0200)
Subject: lib/perl/NB/CGI.pm
X-Git-Url: https://git.nbdom.net/?a=commitdiff_plain;h=842af784d7a2fa1974784bb03a2ebeda1b35b65c;p=nb.git

lib/perl/NB/CGI.pm
---

diff --git a/lib/perl/NB/CGI.pm b/lib/perl/NB/CGI.pm
index c5e7ef83..3f8f417f 100644
--- a/lib/perl/NB/CGI.pm
+++ b/lib/perl/NB/CGI.pm
@@ -22,6 +22,7 @@ sub _new {
 	my $retval = bless $self,ref $package || $package;
 	return $retval;
 }
+
 sub new {
 	my $cgi = &CGI::new(@_);
 	#$cgi->_setup_symbols;
@@ -252,9 +253,12 @@ sub text {
 }
 
 sub eot {
+	shift if ref($_[0]) eq __PACKAGE__; # _tag_func first arg must be tagname
 	return ($TEXT_OUTPUT ? "" : "\n");
 }
 
+#&CGI::eot { }
+
 sub script_code {
 	my ($self,@p) = @_;
 	return $self->_script(@p);