Disallow mucking with INC

diff --git a/script/dbicadmin b/script/dbicadmin
index 8c64dfd..51bbf0e 100755 (executable)
--- a/script/dbicadmin
+++ b/script/dbicadmin
@@ -1,4 +1,4 @@
-#!/usr/bin/perl 
+#!/usr/bin/perl
 
 use strict;
 use warnings;
@@ -6,7 +6,6 @@ use warnings;
 use Getopt::Long::Descriptive;
 use DBIx::Class::Admin;
 
-
 my ($opts, $usage) = describe_options(
   "%c: %o",
   (
@@ -40,7 +39,6 @@ my ($opts, $usage) = describe_options(
     ['where:s' => 'JSON string to be used for the where clause of search'],
     ['force' => 'Be forceful with some operations'],
     ['trace' => 'Turn on DBIx::Class trace output'],
-    ['tlibs' => 'Include test dirs in @INC'],
     ['quiet' => 'Be less verbose'],
   )
 );
@@ -51,10 +49,6 @@ if ($opts->{help}) {
   exit 0;
 }
 
-if ($opts->{tlibs}) {
-    unshift( @INC, 't/lib', 'lib' );
-}
-
 die "please only use one of --config or --connect-info" if ($opts->{config} and $opts->{connect_info});
 
 # option compatability mangle
@@ -99,7 +93,7 @@ if ($action eq 'select') {
 
 Aran Deltac <bluefeet@cpan.org>
 
-refactored by 
+refactored by
 Gordon Irving <goraxe@cpan.org>
 
 =head1 LICENSE