};
for my $type (keys %$invocations) {
+ local $ENV{DBIC_UNSAFE_AUTOCOMMIT_OK};
# we can not use a cloner portably because of the coderef
# so compare dumps instead
warnings_exist (
sub { $storage->connect_info ($invocations->{$type}{args}) },
- $invocations->{$type}{warn} || (),
+ $invocations->{$type}{warn} || [],
'Warned about ignored attributes',
);