- if ($@) {
+ if ($@ || undef($response) ) {
$@ =~ s/ at .* line \d+.*//s; # remove file/line number
$response =
HTTP::Response->new(&HTTP::Status::RC_INTERNAL_SERVER_ERROR,
That new line of code is undefining $response, not checking to see if it's not defined. You mean:
if ( $@ || !defined($response) )
xoa -- Andy Lester => [EMAIL PROTECTED] => www.petdance.com => AIM:petdance
