Скачать или смотреть How can you prevent forked child processes from disconnecting DBD::Pg connections, when you have no

Hello everyone! I hope this video has helped solve your questions and issues. This video is shared because a solution has been found for the question/problem. I create videos for questions that have solutions. If you have any other issues, feel free to reach out to me on Instagram:   / ky.emrah  

Below, you can find the text related to the question/problem. In the video, the question will be presented first, followed by the answers. If the video moves too fast, feel free to pause and review the answers. If you need more detailed information, you can find the necessary sources and links at the bottom of this description. I hope this video has been helpful, and even if it doesn't directly solve your problem, it will guide you to the source of the solution. I'd appreciate it if you like the video and subscribe to my channel!How can you prevent forked child processes from disconnecting DBD::Pg connections, when you have no access to $dbh?

I have a library that needs to fork() to fire-and-forget some code. However when the child process spawned by fork() is destroyed, the DBD::Pg's END is called and inadvertently kills the parents connection. On-top of this, the code has no access to the $dbh, and can't use DBI.
fork()
fork()
DBD::Pg
END
$dbh
can't
use DBI
Here is some code that reproduces the issue:
use strict;
use warnings;

use DBI;

my $dbh = DBI- connect('dbi:Pg:dbname=foo', '', '');

if (!fork()) {
CORE::say 'In child, doing stuff!';
exit 0;
}

sleep 2; # Provide adequate time for the child to be reaped.


my $sth = $dbh- prepare(q[select NOW();]);
$sth- execute(); # Error! Something, something, connection terminated!
my $time = $sth- fetch- [0];
CORE::say "It is $time o'clock";

use strict;
use warnings;

use DBI;

my $dbh = DBI- connect('dbi:Pg:dbname=foo', '', '');

if (!fork()) {
CORE::say 'In child, doing stuff!';
exit 0;
}

sleep 2; # Provide adequate time for the child to be reaped.


my $sth = $dbh- prepare(q[select NOW();]);
$sth- execute(); # Error! Something, something, connection terminated!
my $time = $sth- fetch- [0];
CORE::say "It is $time o'clock";

Here is the error:
DBD::Pg::st execute failed: server closed the connection unexpectedly
This probably means the server terminated abnormally

DBD::Pg::st execute failed: server closed the connection unexpectedly
This probably means the server terminated abnormally



Tags: postgresql,perlSource of the question:
https://stackoverflow.com/questions/7...

Question and source license information:
https://meta.stackexchange.com/help/l...
https://stackoverflow.com/