From 842af784d7a2fa1974784bb03a2ebeda1b35b65c Mon Sep 17 00:00:00 2001 From: Nicolas Boisselier Date: Sat, 19 Oct 2024 10:19:30 +0200 Subject: [PATCH] lib/perl/NB/CGI.pm --- lib/perl/NB/CGI.pm | 4 ++++ 1 file changed, 4 insertions(+) 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); -- 2.47.3