[Bast-commits] r8352 - DBIx-Class/0.08/branches/dbicadmin_refactor/script

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-01-17 21:51:21 +0000 (Sun, 17 Jan 2010)
New Revision: 8352

Modified:
   DBIx-Class/0.08/branches/dbicadmin_refactor/script/dbicadmin
Log:
Disallow mucking with INC

Modified: DBIx-Class/0.08/branches/dbicadmin_refactor/script/dbicadmin
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin_refactor/script/dbicadmin	2010-01-17 21:43:57 UTC (rev 8351)
+++ DBIx-Class/0.08/branches/dbicadmin_refactor/script/dbicadmin	2010-01-17 21:51:21 UTC (rev 8352)
@@ -1,4 +1,4 @@
-#!/usr/bin/perl 
+#!/usr/bin/perl
 
 use strict;
 use warnings;
@@ -6,7 +6,6 @@
 use Getopt::Long::Descriptive;
 use DBIx::Class::Admin;
 
-
 my ($opts, $usage) = describe_options(
   "%c: %o",
   (
@@ -40,7 +39,6 @@
     ['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 @@
   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 @@
 
 Aran Deltac <bluefeet at cpan.org>
 
-refactored by 
+refactored by
 Gordon Irving <goraxe at cpan.org>
 
 =head1 LICENSE