# vim: set ft=perl:
# -------------------------------------------------------------------
-# $Id: sqlt,v 1.9 2003-10-15 20:07:11 kycl4rk Exp $
+# $Id: sqlt,v 1.11 2004-02-03 13:27:21 dlc Exp $
# -------------------------------------------------------------------
# Copyright (C) 2002 Ken Y. Clark <kclar@cpan.org>,
# darren chamberlain <darren@cpan.org>
use SQL::Translator;
use vars qw( $VERSION );
-$VERSION = sprintf "%d.%02d", q$Revision: 1.9 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.11 $ =~ /(\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 {