| Subject: | Form reset routine for mod_perl broken |
When the .defaults parameter is encountered the current method is to undefine the cgi object. This causes mod_perl to die with an error of "Can't call method "send_cgi_header" on an undefined value at (eval 10) line 62."
When the object is undefined the response handler no longer has anything to work with. How about using the sub delete_all() instead? Snippet follows. I'm not sure when this happened..... maybe around 2.99
Running on FreeBSD with Apache 1.28 and mod_perl 1.27
sub init
{
............. snip ...............
# Special case. Erase everything if there is a field named
# .defaults.
if ($self->param('.defaults')) {
$self->delete_all();
# The method below is original CGI.pm and is broken.
#undef %{$self};
}
........ snip ...............