$ ./Porting/bisect.pl --expect-fail --with-module=DBI,DBD::mysql --no-module-tests --start=v5.16.3 --end=v5.18.4 -- ./perl -Ilib -T /tmp/test.pl 'foo@bar.com'
# good: [fd04d42d38f4751b981eb6e9213ee1ab8ef11ea6] final changes for release as 5.16.3
# bad: [51202371ba68f3f52f13124a3ea1bc3c171e0ee2] add v5.18.4 to perlhist
# good: [559550aea97a776e8aa784032f554f5a717ac19b] include some more data in new-perldelta output
# bad: [624a1c42c1b67cb5d676986900a9d4acab64883c] clean up vmem.h, remove unused instrumentation hooks
# good: [12f98b43fb8a44e8dfde5d99489b6a599bb91908] anonsub.t: Improve test for [perl #71154]
# bad: [a3d517785b3dcac4f3f7aa5c85386a1a8074f46d] perldelta for Unicode property performance gains
# bad: [7c70caa5333de92b09e138154bed7f78f783be3b] Forbid braces as format delimiters
# bad: [42409c4069deb2417b838a49810ecbce306a72b9] Stop truncate(word) from falling back to file name
# bad: [7ca04d94dfa99b3a611a70d3d9a08aa0ccc1fb04] update Module::CoreList for 5.17.2
# good: [ac7af3f615eb56bda50bf123662b15779da26826] fix RT#114068 optimizer handles MEOL in middle of pattern improperly
# bad: [a3314d5f77f945cb8f418a3f4f09bf8f69bb4c3e] mark blead-only modifications of Compress::Raw::{Bzip2,Zlib} with version bump
# good: [5d8673bca0104a9e3975238e86672281f7f71c03] pp_hot.c: Mention that pp_grepstart calls pp_pushmark
# good: [c55d2e076a02daf604c28e6725a61c1495171552] perly.y: Remove use of latefree from package foo {}
# good: [6e22b38560ae8c2f1293a7f9bc2709541ea4d528] dump.c: Dump op->op_s(labbed|avefree)
# bad: [4bac9ae47b5ad7845a24e26b0e95609805de688a] Magic flags harmonization.
# good: [b8a55fe78ae4ecc0a81a2d98dba9fead6df06efb] perldelta updates
# first bad commit: [4bac9ae47b5ad7845a24e26b0e95609805de688a] Magic flags harmonization.

##</code><code>##

#!/usr/bin/perl -T
use warnings;
use strict;
use feature 'say';
use Scalar::Util qw/tainted/;
use DBI;

my $email = shift;
my %data = ( email => $email );
die unless tainted($data{email});

my ($db_user,$db_pass) = ($ENV{USER}, 'barfoo');
my $dbh = DBI->connect(
	"DBI:mysql:database=testing;host=127.0.0.1", $db_user,
	$db_pass, { RaiseError=>1, AutoCommit=>1, TaintIn=>0 });

my ($test) = $dbh->selectrow_array(
	"SELECT idPerson FROM Person WHERE email = ?",
		undef, $data{email});
die "<$test>" unless $test==42;
say "OK!";