CGI::Carp does not block eval errors all the time (bug?)

diff --git a/selfforum-cgi/shared/Posting/Cache.pm b/selfforum-cgi/shared/Posting/Cache.pm
index b940f35cb4a33de54bc23851f83aaac9d053ac8f..a6b3280653b651baa60bd653cfa0605a74d0005f 100644 (file)
--- a/selfforum-cgi/shared/Posting/Cache.pm
+++ b/selfforum-cgi/shared/Posting/Cache.pm
@@ -25,7 +25,7 @@ use Lock;
 #
 sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'}
 
-my $O_BINARY = eval "O_BINARY";
+my $O_BINARY = eval "local $SIG{__DIE__}; O_BINARY";
 $O_BINARY = 0 if ($@);
 
 ### sub new ####################################################################