Helps to actually pass the output-db option
Chris Hilton [Thu, 8 Mar 2007 23:11:20 +0000 (23:11 +0000)]
bin/sqlt-diff

index 8238b76..c9fb333 100755 (executable)
@@ -2,7 +2,7 @@
 # vim: set ft=perl:
 
 # -------------------------------------------------------------------
-# $Id: sqlt-diff,v 1.15 2007-03-06 23:49:42 duality72 Exp $
+# $Id: sqlt-diff,v 1.16 2007-03-08 23:11:20 duality72 Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2002-4 The SQLFairy Authors
 #
@@ -104,7 +104,7 @@ use SQL::Translator::Diff;
 use SQL::Translator::Schema::Constants;
 
 use vars qw( $VERSION );
-$VERSION = sprintf "%d.%02d", q$Revision: 1.15 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.16 $ =~ /(\d+)\.(\d+)/;
 
 my ( @input, $list, $help, $debug, $trace, $caseopt , $ignore_index_names, $ignore_constraint_names, $output_db );
 for my $arg ( @ARGV ) {
@@ -180,6 +180,7 @@ my $result = SQL::Translator::Diff::schema_diff($source_schema, $source_db,
                                                 { caseopt                 => $caseopt,
                                                   ignore_index_names      => $ignore_index_names,
                                                   ignore_constraint_names => $ignore_constraint_names,
+                                                  output_db               => $output_db,
                                                   debug                   => $debug,
                                                   trace                   => $trace });
 if($result)