;
};
+ # DBD::Firebird and DBD::InterBase could very well talk to the same RDBMS
+ # make an educated guesstimate based on the DSN
+ # (worst case scenario we are wrong and the scripts have to wait on each
+ # other even without actually being able to interfere among themselves)
+ if (
+ ($locktype||'') eq 'InterBase'
+ and
+ $_[0] =~ /firebird/i
+ ) {
+ $locktype = 'Firebird';
+ }
# Never hold more than one lock. This solves the "lock in order" issues
# unrelated tests may have
# which is fine since the type does not match as checked above
undef $locker;
- my $lockpath = DBICTest::RunMode->tmpdir->file(".dbictest_$locktype.lock");
+ my $lockpath = DBICTest::RunMode->tmpdir->file("_dbictest_$locktype.lock");
#warn "$$ $0 $locktype GRABBING LOCK";
my $lock_fh;