uawdijnntqw1x1x1
IP : 216.73.216.155
Hostname : vm5018.vps.agava.net
Kernel : Linux vm5018.vps.agava.net 3.10.0-1127.8.2.vz7.151.14 #1 SMP Tue Jun 9 12:58:54 MSK 2020 x86_64
Disable Function : None :)
OS : Linux
PATH:
/
var
/
..
/
usr
/
share
/
doc
/
libsasl2-modules
/
..
/
libdbd-mysql-perl
/
examples
/
bug14979.pl
/
/
#! /usr/bin/perl -wT use strict; use DBI(); MAIN: { $ENV{'DBI_DSN'} ||= 'dbi:mysql:dbname=mysql:mysql_server_prepare=1'; $ENV{'DBI_USER'} ||= 'root'; $ENV{'DBI_PASS'} ||= ''; my ($dbh) = DBI->connect($ENV{DBI_DSN}, $ENV{DBI_USER}, $ENV{DBI_PASS}, {RaiseError => 1, PrintError => 0, AutoCommit => 0}); $dbh->trace(3,"bug14979.trace"); my ($sql) = qq[SELECT * FROM mysql.user WHERE user LIKE ?]; my ($sth) = $dbh->prepare($sql); $sth->execute('foo'); $sth->finish(); my ($pid); if ($pid = fork()) { waitpid($pid, 0); unless ($? == 0) { die("Child failed to execute successfully\n"); } } elsif (defined $pid) { $dbh->{'InactiveDestroy'} = 1; exit(0); } else { die("Failed to fork:$!\n"); } $sth->execute('foo'); $sth->finish(); $dbh->disconnect(); }
/var/../usr/share/doc/libsasl2-modules/../libdbd-mysql-perl/examples/bug14979.pl