X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fdbicadmin;fp=script%2Fdbicadmin;h=cc24560600a54427c7fdfe5ba1dc805f7d6e4016;hb=099f10d17d95b08b12a9c88129c65b4bab0b60e2;hp=3be43c2a30e79e6535bfea8792646587790733ef;hpb=fb50ae66893dadd76a192a53e65d5d9ba171d1f3;p=dbsrgits%2FDBIx-Class.git diff --git a/script/dbicadmin b/script/dbicadmin index 3be43c2..cc24560 100755 --- a/script/dbicadmin +++ b/script/dbicadmin @@ -62,8 +62,7 @@ my ($opts, $usage) = describe_options( ['force' => 'Be forceful with some operations'], ['trace' => 'Turn on DBIx::Class trace output'], ['quiet' => 'Be less verbose'], - ['debug' => 'Print debug information'], - ['I:s@' => 'Same as perl\'s -I'], + ['I:s@' => 'Same as perl\'s -I, prepended to current @INC'], ) ); @@ -88,6 +87,7 @@ if($opts->{selfinject_pod}) { ); } +# FIXME - lowercasin will eventually go away when Getopt::Long::Descriptive is fixed if($opts->{i}) { $opts->{include_dirs} = delete $opts->{i}; }