On Wed, Nov 25, 2009 at 20:46, Gordon Irving <[email protected]> wrote:
> Hi
hi,
> I have knocked up a script, dbic_ddl_admin.pl for creating ddl files and sql
> diffs. The script can also be used to deploy to new databases or upgrade
> existing schemas. I have found it useful and would like to share it with
> other DBIC users.
just two typos i spotted glancing over the script, see attached patch
cheers m
--
siggen.pl: Segmentation Fault
--- dbic_ddl_admin.pl 2009-11-26 10:24:42.000000000 +0100
+++ dbic_ddl_admin_new.pl 2009-11-26 10:28:12.000000000 +0100
@@ -42,7 +42,7 @@
['config|C:s' => 'Supply the config file for parsing by Config::Any', { depends => 'config_stanza'} ],
['connect-info|n:s%' => ' supply the connect info as additonal options ie -I dsn=<dsn> user=<user> password=<pass> '],
['sql-dir|q:s' => 'The directory where sql diffs will be created'],
- ['sql-type|t:s' => 'The RDBMs falvour you wish to use'],
+ ['sql-type|t:s' => 'The RDBMs flavour you wish to use'],
['version|v:i' => 'Supply a version install'],
['preversion|p:s' => 'The previous version to diff against',],
)
@@ -67,7 +67,7 @@
# just load the config, return a hash
my $config;
if ($opts->{config}) {
- eval "require Config::Anyf;" or die "Config::Any is required to parse the config";
+ eval "require Config::Any;" or die "Config::Any is required to parse the config";
my $cfg = Config::Any->load_files ( {files => [$opts->{config}], use_ext =>1, flatten_to_hash=>1});
# just grab the config from the config file
_______________________________________________
List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
Searchable Archive: http://www.grokbase.com/group/[email protected]
