X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fadmin%2F02ddl.t;h=90a553db0db7ab42354c8d5d549a1bc3cfdf5cc2;hb=topic%2Fmooification%2Btype-tiny;hp=b2414c356b4c43837dc161235566ee35102bf2a3;hpb=1e1cc55ea27a0f41b4f300b41de94e4d2f45d12d;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/admin/02ddl.t b/t/admin/02ddl.t
index b2414c3..90a553d 100644
--- a/t/admin/02ddl.t
+++ b/t/admin/02ddl.t
@@ -14,6 +14,11 @@ use DBICTest;
 use DBIx::Class::_Util 'sigwarn_silencer';
 
 use DBIx::Class::Admin;
+BEGIN {
+  no warnings 'redefine';
+  # no questions asked
+  sub DBIx::Class::Admin::_confirm { 1 };
+}
 
 # lock early
 DBICTest->init_schema(no_deploy => 1, no_populate => 1);
@@ -96,7 +101,6 @@ clean_dir($ddl_dir);
 my $admin = DBIx::Class::Admin->new(
   schema_class  => 'DBICVersion::Schema',
   sql_dir      => $ddl_dir,
-  _confirm    => 1,
   connect_info  => \@connect_info,
 );