X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/1e5e0364f9fc5f0a3dbac69f9affbb3931115a58..7cfc9e17caf89a9b009e8fa2c65351255687706e:/selfforum-cgi/shared/Posting/Cache.pm diff --git a/selfforum-cgi/shared/Posting/Cache.pm b/selfforum-cgi/shared/Posting/Cache.pm index a6b3280..5e27d0b 100644 --- a/selfforum-cgi/shared/Posting/Cache.pm +++ b/selfforum-cgi/shared/Posting/Cache.pm @@ -25,7 +25,10 @@ use Lock; # sub VERSION {(q$Revision$ =~ /([\d.]+)\s*$/)[0] or '0.0'} -my $O_BINARY = eval "local $SIG{__DIE__}; O_BINARY"; +my $O_BINARY = eval q{ + local $SIG{__DIE__}; + O_BINARY; +}; $O_BINARY = 0 if ($@); ### sub new ####################################################################