This is a quick untested fix. In Community.pm about 3/4 of the way down change:
# -------------------------------------------------------------------
$error = shift; # Set the global $Communtiy::error
require Carp;
Carp::croak $error;
}
...to...
# -------------------------------------------------------------------
$error = shift; # Set the global $Communtiy::error
print $IN->header();
print "An error occured: $error";
}
Code:
sub comm_fatal { # -------------------------------------------------------------------
$error = shift; # Set the global $Communtiy::error
require Carp;
Carp::croak $error;
}
...to...
Code:
sub comm_fatal { # -------------------------------------------------------------------
$error = shift; # Set the global $Communtiy::error
print $IN->header();
print "An error occured: $error";
}