From: Peter Rabbitson <ribasushi@cpan.org>
Date: Sun, 17 Jan 2010 21:51:21 +0000 (+0000)
Subject: Disallow mucking with INC
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9274250dcbe5fede67cfeb2373aa03ae7ec6cf0b;p=dbsrgits%2FDBIx-Class-Historic.git

Disallow mucking with INC
---

diff --git a/script/dbicadmin b/script/dbicadmin
index 8c64dfd..51bbf0e 100755
--- 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