summaryrefslogtreecommitdiffabout
path: root/lib/App/Glacier/DB/GDBM.pm
Unidiff
Diffstat (limited to 'lib/App/Glacier/DB/GDBM.pm') (more/less context) (ignore whitespace changes)
-rw-r--r--lib/App/Glacier/DB/GDBM.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/lib/App/Glacier/DB/GDBM.pm b/lib/App/Glacier/DB/GDBM.pm
index 0e14a65..f7cc29a 100644
--- a/lib/App/Glacier/DB/GDBM.pm
+++ b/lib/App/Glacier/DB/GDBM.pm
@@ -8,2 +8,6 @@ use File::Path qw(make_path);
8 8
9# Avoid coredumps in threaded code.
10# See https://rt.perl.org/Public/Bug/Display.html?id=61912.
11sub CLONE_SKIP { 1 }
12
9sub new { 13sub new {
@@ -54,7 +58,4 @@ sub configtest {
54 58
55# We can't tie the DB to $self->{_map} at once, in the new method, because 59# Tie in the database, run $code, and untie it again. Correctly handle
56# this will cause coredumps in threaded code (see 60# nested invocations to avoid deadlocking.
57# https://rt.perl.org/Public/Bug/Display.html?id=61912). So, the following
58# auxiliary method is used, which calls &$code with $self->{_map} tied
59# to the DB.
60sub _tied { 61sub _tied {

Return to:

Send suggestions and report system problems to the System administrator.