Standardize on 2-space tab

[p5sagit/Devel-GlobalDestruction.git] / t / 01_basic.t

diff --git a/t/01_basic.t b/t/01_basic.t
index ac7f07a..b156506 100644 (file)
--- a/t/01_basic.t
+++ b/t/01_basic.t
@@ -2,21 +2,21 @@ use strict;
 use warnings;
 
 BEGIN {
-    if ($ENV{DEVEL_GLOBALDESTRUCTION_PP_TEST}) {
-        require DynaLoader;
-        no warnings 'redefine';
-        my $orig = \&DynaLoader::bootstrap;
-        *DynaLoader::bootstrap = sub {
-            die 'no XS' if $_[0] eq 'Devel::GlobalDestruction';
-            goto $orig;
-        };
-    }
+  if ($ENV{DEVEL_GLOBALDESTRUCTION_PP_TEST}) {
+    require DynaLoader;
+    no warnings 'redefine';
+    my $orig = \&DynaLoader::bootstrap;
+    *DynaLoader::bootstrap = sub {
+      die 'no XS' if $_[0] eq 'Devel::GlobalDestruction';
+      goto $orig;
+    };
+  }
 }
 
 BEGIN {
-    package Test::Scope::Guard;
-    sub new { my ($class, $code) = @_; bless [$code], $class; }
-    sub DESTROY { my $self = shift; $self->[0]->() }
+  package Test::Scope::Guard;
+  sub new { my ($class, $code) = @_; bless [$code], $class; }
+  sub DESTROY { my $self = shift; $self->[0]->() }
 }
 
 print "1..6\n";
@@ -24,10 +24,10 @@ print "1..6\n";
 my $had_error = 0;
 END { $? = $had_error };
 sub ok ($$) {
-    $had_error++, print "not " if !$_[0];
-    print "ok";
-    print " - $_[1]" if defined $_[1];
-    print "\n";
+  $had_error++, print "not " if !$_[0];
+  print "ok";
+  print " - $_[1]" if defined $_[1];
+  print "\n";
 }
 
 ok( eval "use Devel::GlobalDestruction; 1", "use Devel::GlobalDestruction" );