X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fbackcompat%2F0.04006%2F22dump.t;h=cf757efad5fc66b09f1e2aebccbf892ca97e95d2;hb=494e020541e534ac7a097872eeeb344a0b13ec5a;hp=fa1a2da724f637b7f990b3416717279f607a8fe5;hpb=f8c2ca5eac1d4782c1d5be369c9bd0dcf680cb9d;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/t/backcompat/0.04006/22dump.t b/t/backcompat/0.04006/22dump.t
index fa1a2da..cf757ef 100644
--- a/t/backcompat/0.04006/22dump.t
+++ b/t/backcompat/0.04006/22dump.t
@@ -43,23 +43,23 @@ ok(!$@, 'no death with dump_directory set') or diag "Dump failed: $@";
 DBICTest::Schema::1->_loader_invoked(undef);
 
 SKIP: {
-  my @warnings_regexes = (
-      qr|Dumping manual schema|,
-      qr|Schema dump completed|,
-  );
+    my @warnings_regexes = (
+        qr|Dumping manual schema|,
+        qr|Schema dump completed|,
+    );
 
-  skip "ActiveState perl produces additional warnings", scalar @warnings_regexes
-    if ($^O eq 'MSWin32');
+    skip "ActiveState perl produces additional warnings", scalar @warnings_regexes
+        if ($^O eq 'MSWin32');
 
-  my @warn_output;
-  {
-      local $SIG{__WARN__} = sub { push(@warn_output, @_) };
-      DBICTest::Schema::1->connect($make_dbictest_db::dsn);
-  }
+    my @warn_output;
+    {
+        local $SIG{__WARN__} = sub { push(@warn_output, @_) };
+        DBICTest::Schema::1->connect($make_dbictest_db::dsn);
+    }
 
-  like(shift @warn_output, $_) foreach (@warnings_regexes);
+    like(shift @warn_output, $_) foreach (@warnings_regexes);
 
-  rmtree($dump_path, 1, 1);
+    rmtree($dump_path, 1, 1);
 }
 
 eval { DBICTest::Schema::2->connect($make_dbictest_db::dsn) };