diff -Nru libqbit-application-model-db-perl-0.001/Changes libqbit-application-model-db-perl-0.002/Changes
--- libqbit-application-model-db-perl-0.001/Changes	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/Changes	2013-10-13 14:22:25.000000000 +0000
@@ -1,11 +1,27 @@
 ==================================================
-Changes from 2012-09-14 00:00:00 +0000 to present.
+Changes from 2012-10-13 00:00:00 +0000 to present.
 ==================================================
 
 ------------------------------------------
-version 0.001 at 2013-09-14 10:06:53 +0000
+version 0.002 at 2013-10-13 14:22:24 +0000
 ------------------------------------------
 
+  Change: 3cfed29945fb84f8565f2b5295f387e8428002c1
+  Author: Sergei Svistunov <sergei-svistunov@yandex.ru>
+  Date : 2013-10-13 18:20:17 +0000
+
+    Fixed fork error: Each child must have its own connection 
+
+------------------------------------------
+version 0.001 at 2013-09-14 10:07:10 +0000
+------------------------------------------
+
+  Change: 7de0ac7954202b0eee575e39f442ee5890935a40
+  Author: Sergei Svistunov <sergei-svistunov@yandex.ru>
+  Date : 2013-09-14 14:07:10 +0000
+
+    Version 0.001 
+
   Change: aefead5d20d59917624eab8e9ddd080ecae2bb89
   Author: Sergei Svistunov <sergei-svistunov@yandex.ru>
   Date : 2013-09-14 14:05:00 +0000
diff -Nru libqbit-application-model-db-perl-0.001/META.yml libqbit-application-model-db-perl-0.002/META.yml
--- libqbit-application-model-db-perl-0.001/META.yml	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/META.yml	2013-10-13 14:22:25.000000000 +0000
@@ -22,4 +22,4 @@
   base: 0
   qbit: 0
   strict: 0
-version: 0.001
+version: 0.002
diff -Nru libqbit-application-model-db-perl-0.001/Makefile.PL libqbit-application-model-db-perl-0.002/Makefile.PL
--- libqbit-application-model-db-perl-0.001/Makefile.PL	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/Makefile.PL	2013-10-13 14:22:25.000000000 +0000
@@ -30,7 +30,7 @@
     "qbit" => 0,
     "strict" => 0
   },
-  "VERSION" => "0.001",
+  "VERSION" => "0.002",
   "test" => {
     "TESTS" => ""
   }
diff -Nru libqbit-application-model-db-perl-0.001/README libqbit-application-model-db-perl-0.002/README
--- libqbit-application-model-db-perl-0.001/README	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/README	2013-10-13 14:22:25.000000000 +0000
@@ -1,7 +1,7 @@
 
 
 This archive contains the distribution QBit-Application-Model-DB,
-version 0.001:
+version 0.002:
 
   Base class for working with databases
 
diff -Nru libqbit-application-model-db-perl-0.001/debian/changelog libqbit-application-model-db-perl-0.002/debian/changelog
--- libqbit-application-model-db-perl-0.001/debian/changelog	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/debian/changelog	2013-10-13 14:22:25.000000000 +0000
@@ -1,3 +1,9 @@
+libqbit-application-model-db-perl (0.002) raring; urgency=low
+
+  * Fixed fork error: Each child must have its own connection
+
+ -- Sergei Svistunov <sergei-svistunov@yandex.ru>  Sun, 13 Oct 2013 18:22:24 +0400
+
 libqbit-application-model-db-perl (0.001) raring; urgency=low
 
   * Initial commit
diff -Nru libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/Class.pm libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/Class.pm
--- libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/Class.pm	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/Class.pm	2013-10-13 14:22:25.000000000 +0000
@@ -1,6 +1,6 @@
 package QBit::Application::Model::DB::Class;
 {
-  $QBit::Application::Model::DB::Class::VERSION = '0.001';
+  $QBit::Application::Model::DB::Class::VERSION = '0.002';
 }
 
 use qbit;
diff -Nru libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/Field.pm libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/Field.pm
--- libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/Field.pm	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/Field.pm	2013-10-13 14:22:25.000000000 +0000
@@ -1,6 +1,6 @@
 package QBit::Application::Model::DB::Field;
 {
-  $QBit::Application::Model::DB::Field::VERSION = '0.001';
+  $QBit::Application::Model::DB::Field::VERSION = '0.002';
 }
 
 use qbit;
diff -Nru libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/Filter.pm libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/Filter.pm
--- libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/Filter.pm	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/Filter.pm	2013-10-13 14:22:25.000000000 +0000
@@ -1,6 +1,6 @@
 package QBit::Application::Model::DB::Filter;
 {
-  $QBit::Application::Model::DB::Filter::VERSION = '0.001';
+  $QBit::Application::Model::DB::Filter::VERSION = '0.002';
 }
 
 use qbit;
diff -Nru libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/Query.pm libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/Query.pm
--- libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/Query.pm	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/Query.pm	2013-10-13 14:22:25.000000000 +0000
@@ -1,6 +1,6 @@
 package QBit::Application::Model::DB::Query;
 {
-  $QBit::Application::Model::DB::Query::VERSION = '0.001';
+  $QBit::Application::Model::DB::Query::VERSION = '0.002';
 }
 
 use qbit;
diff -Nru libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/Table.pm libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/Table.pm
--- libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/Table.pm	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/Table.pm	2013-10-13 14:22:25.000000000 +0000
@@ -1,6 +1,6 @@
 package QBit::Application::Model::DB::Table;
 {
-  $QBit::Application::Model::DB::Table::VERSION = '0.001';
+  $QBit::Application::Model::DB::Table::VERSION = '0.002';
 }
 
 use qbit;
diff -Nru libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/VirtualTable.pm libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/VirtualTable.pm
--- libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB/VirtualTable.pm	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB/VirtualTable.pm	2013-10-13 14:22:25.000000000 +0000
@@ -1,6 +1,6 @@
 package QBit::Application::Model::DB::VirtualTable;
 {
-  $QBit::Application::Model::DB::VirtualTable::VERSION = '0.001';
+  $QBit::Application::Model::DB::VirtualTable::VERSION = '0.002';
 }
 
 use qbit;
diff -Nru libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB.pm libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB.pm
--- libqbit-application-model-db-perl-0.001/lib/QBit/Application/Model/DB.pm	2013-09-14 10:06:54.000000000 +0000
+++ libqbit-application-model-db-perl-0.002/lib/QBit/Application/Model/DB.pm	2013-10-13 14:22:25.000000000 +0000
@@ -1,18 +1,18 @@
 package Exception::DB;
 {
-  $Exception::DB::VERSION = '0.001';
+  $Exception::DB::VERSION = '0.002';
 }
 use base qw(Exception);
 
 package Exception::DB::DuplicateEntry;
 {
-  $Exception::DB::DuplicateEntry::VERSION = '0.001';
+  $Exception::DB::DuplicateEntry::VERSION = '0.002';
 }
 use base qw(Exception::DB);
 
 package QBit::Application::Model::DB;
 {
-  $QBit::Application::Model::DB::VERSION = '0.001';
+  $QBit::Application::Model::DB::VERSION = '0.002';
 }
 
 use qbit;
@@ -107,7 +107,7 @@
     my ($res) = $self->_sub_with_connected_dbh(
         sub {
             my ($self, $name) = @_;
-            return $self->{'__DBH__'}->quote($name);
+            return $self->{'__DBH__'}{$$}->quote($name);
         },
         [$self, $name]
     );
@@ -121,7 +121,7 @@
     my ($res) = $self->_sub_with_connected_dbh(
         sub {
             my ($self, $name) = @_;
-            return $self->{'__DBH__'}->quote_identifier($name);
+            return $self->{'__DBH__'}{$$}->quote_identifier($name);
         },
         [$self, $name]
     );
@@ -224,9 +224,9 @@
             my ($self, $sql, @params) = @_;
 
             my $err_code;
-            return $self->{'__DBH__'}->do($sql, undef, @params)
-              || ($err_code = $self->{'__DBH__'}->err())
-              && throw Exception::DB $self->{'__DBH__'}->errstr() . " ($err_code)\n" . $self->_log_sql($sql, \@params),
+            return $self->{'__DBH__'}{$$}->do($sql, undef, @params)
+              || ($err_code = $self->{'__DBH__'}{$$}->err())
+              && throw Exception::DB $self->{'__DBH__'}{$$}->errstr() . " ($err_code)\n" . $self->_log_sql($sql, \@params),
               errorcode => $err_code;
         },
         \@_
@@ -248,30 +248,30 @@
 
             my $err_code;
             $self->timelog->start(gettext('DBH prepare'));
-            my $sth = $self->{'__DBH__'}->prepare($sql)
-              || ($err_code = $self->{'__DBH__'}->err())
-              && throw Exception::DB $self->{'__DBH__'}->errstr() . " ($err_code)\n" . $self->_log_sql($sql, \@params),
+            my $sth = $self->{'__DBH__'}{$$}->prepare($sql)
+              || ($err_code = $self->{'__DBH__'}{$$}->err())
+              && throw Exception::DB $self->{'__DBH__'}{$$}->errstr() . " ($err_code)\n" . $self->_log_sql($sql, \@params),
               errorcode => $err_code;
 
             $self->timelog->finish();
 
             $self->timelog->start(gettext('STH execute'));
             $sth->execute(@params)
-              || ($err_code = $self->{'__DBH__'}->err())
+              || ($err_code = $self->{'__DBH__'}{$$}->err())
               && throw Exception::DB $sth->errstr() . " ($err_code)\n" . $self->_log_sql($sql, \@params),
               errorcode => $err_code;
             $self->timelog->finish();
 
             $self->timelog->start(gettext('STH fetch_all'));
             my $data = $sth->fetchall_arrayref({})
-              || ($err_code = $self->{'__DBH__'}->err())
+              || ($err_code = $self->{'__DBH__'}{$$}->err())
               && throw Exception::DB $sth->errstr() . " ($err_code)\n" . $self->_log_sql($sql, \@params),
               errorcode => $err_code;
             $self->timelog->finish();
 
             $self->timelog->start(gettext('STH finish'));
             $sth->finish()
-              || ($err_code = $self->{'__DBH__'}->err())
+              || ($err_code = $self->{'__DBH__'}{$$}->err())
               && throw Exception::DB $sth->errstr() . " ($err_code)\n" . $self->_log_sql($sql, \@params),
               errorcode => $err_code;
             $self->timelog->finish();
@@ -345,11 +345,11 @@
 
         if (
             $try < 3
-            && (!exists($self->{'__DBH__'})
-                || $self->_is_connection_error($exception->{'errorcode'} || $self->{'__DBH__'}->err()))
+            && (!exists($self->{'__DBH__'}{$$})
+                || $self->_is_connection_error($exception->{'errorcode'} || $self->{'__DBH__'}{$$}->err()))
            )
         {
-            delete($self->{'__DBH__'});
+            delete($self->{'__DBH__'}{$$}) if exists($self->{'__DBH__'}{$$});
 
             if ($self->{'__SAVEPOINTS__'}) {
                 throw $exception;
@@ -367,7 +367,7 @@
 sub DESTROY {
     my ($self) = @_;
 
-    $self->{'__DBH__'}->disconnect() if exists($self->{'__DBH__'});
+    $self->{'__DBH__'}{$$}->disconnect() if exists($self->{'__DBH__'}{$$});
 }
 
 TRUE;