# vim: set ft=perl:
# -------------------------------------------------------------------
-# $Id: sqlt,v 1.9 2003-10-15 20:07:11 kycl4rk Exp $
+# $Id: sqlt,v 1.12 2004-02-06 17:48:16 kycl4rk Exp $
# -------------------------------------------------------------------
-# Copyright (C) 2002 Ken Y. Clark <kclar@cpan.org>,
-# darren chamberlain <darren@cpan.org>
+# Copyright (C) 2002-4 SQLFairy Authors
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
use SQL::Translator;
use vars qw( $VERSION );
-$VERSION = sprintf "%d.%02d", q$Revision: 1.9 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.12 $ =~ /(\d+)\.(\d+)/;
my $from; # the original database
my $to; # the destination database
'add-drop-table' => \$add_drop_table,
'attrib-values' => \$attrib_values,
'd|debug' => \$debug,
- 'emit_empty_tags' => \$emit_empty_tags,
+ 'emit-empty-tags' => \$emit_empty_tags,
'f|from|parser:s' => \$from,
'fs:s' => \$field_separator,
'h|help' => \$help,
my @files = @ARGV; # source files
unless ( @files ) {
- if ( $from eq 'DBI' ) {
+ if ( defined($from) && $from eq 'DBI' ) {
@files = ('!');
}
else {