-#!/usr/bin/perl
+#!/usr/bin/env perl
use strict;
use warnings;
use DBIx::Class::Admin::Descriptive;
#use Getopt::Long::Descriptive;
use DBIx::Class::Admin;
-require lib;
my $short_description = "utility for administrating DBIx::Class schemata";
my $synopsis_text =q|
# FIXME - lowercasing will eventually go away when Getopt::Long::Descriptive is fixed
if($opts->{i}) {
- lib->import(delete $opts->{i});
+ require lib;
+ lib->import( @{delete $opts->{i}} );
}
if($opts->{help}) {
- $usage->die();
+ $usage->die();
}
# option compatability mangle