De-tabardize

[p5sagit/Devel-GlobalDestruction.git] / t / basic.t

diff --git a/t/basic.t b/t/basic.t
index 27157c7..84db72a 100644 (file)
--- a/t/basic.t
+++ b/t/basic.t
@@ -7,15 +7,19 @@ use warnings;
 # use Test::More tests => 3;
 # use ok 'Devel::GlobalDestruction';
 
-use Scope::Guard;
+BEGIN {
+    package Test::Scope::Guard;
+    sub new { my ($class, $code) = @_; bless [$code], $class; }
+    sub DESTROY { my $self = shift; $self->[0]->() }
+}
 
 print "1..4\n";
 
 sub ok ($$) {
-       print "not " if !$_[0];
-       print "ok";
-       print " - $_[1]" if defined $_[1];
-       print "\n";
+    print "not " if !$_[0];
+    print "ok";
+    print " - $_[1]" if defined $_[1];
+    print "\n";
 }
 
 ok( eval "use Devel::GlobalDestruction; 1", "use Devel::GlobalDestruction" );
@@ -24,6 +28,6 @@ ok( defined &in_global_destruction, "exported" );
 
 ok( !in_global_destruction(), "not in GD" );
 
-our $sg = Scope::Guard->new(sub { ok( in_global_destruction(), "in GD" ) });
+our $sg = Test::Scope::Guard->new(sub { ok( in_global_destruction(), "in GD" ) });