lib/perl/NB/CGI.pm

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