S
Seansan
Hi there,
I have just moved my server to an new hosting provider. Now I am seeing
a lot of error messages in the server log related to "([error]
ModPerl::Util::exit: (120000) exit was called at ...". I have pasted
the coded below that causes the error.
The error is caused at the line "exit 1;". I have always used this code
before, only now it causes an error. This code come from a PM module
that I call from my main .PL file/program.
How would I do this correctly so that ModPerl does not complain?
<code>
sub PRINT_ERROR($) {
my ($msg) = shift; $msg = 'Unknown error' if (!$msg);
my $tmp=&READ_FILE($error_tmp);
print $tmp;
exit 1; # <== ERROR HERE
}
</code>
Kind regards, Sean
I have just moved my server to an new hosting provider. Now I am seeing
a lot of error messages in the server log related to "([error]
ModPerl::Util::exit: (120000) exit was called at ...". I have pasted
the coded below that causes the error.
The error is caused at the line "exit 1;". I have always used this code
before, only now it causes an error. This code come from a PM module
that I call from my main .PL file/program.
How would I do this correctly so that ModPerl does not complain?
<code>
sub PRINT_ERROR($) {
my ($msg) = shift; $msg = 'Unknown error' if (!$msg);
my $tmp=&READ_FILE($error_tmp);
print $tmp;
exit 1; # <== ERROR HERE
}
</code>
Kind regards, Sean