1 files changed, 3 insertions, 23 deletions
diff --git a/dist/Math-BigInt/t/sub_ali.t b/dist/Math-BigInt/t/sub_ali.t
index d6c17530f8..04512abd6c 100644
--- a/dist/Math-BigInt/t/sub_ali.t
+++ b/dist/Math-BigInt/t/sub_ali.t
@@ -2,34 +2,14 @@
 
 # test that the new alias names work
 
-use Test::More;
 use strict;
+use Test::More tests => 6;
 
-BEGIN
-  {
-  $| = 1;
-  # to locate the testing files
-  my $location = $0; $location =~ s/sub_ali.t//i;
-  unshift @INC, qw(../lib);
-  if (-d 't')
-    {
-    chdir 't';
-    require File::Spec;
-    unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
-    }
-  else
-    {
-    unshift @INC, $location;
-    }
-  print "# INC = @INC\n";
-
-  plan tests => 6;
-  }
+BEGIN { unshift @INC, 't'; }
 
 use Math::BigInt::Subclass;
 
 use vars qw/$CL $x/;
 $CL = 'Math::BigInt::Subclass';
 
-require 'alias.inc';
-
+require 't/alias.inc';