-#!/usr/local/bin/perl -w
+#!/usr/bin/perl -w
#-----------------------------------------------------
-# $Id: sql_translator.pl,v 1.2 2002-03-21 18:50:53 dlc Exp $
+# $Id: sql_translator.pl,v 1.3 2002-07-08 14:42:56 dlc Exp $
#-----------------------------------------------------
# Copyright (C) 2002 Ken Y. Clark <kycl4rk@users.sourceforge.net>,
# darren chamberlain <darren@cpan.org>
use Pod::Usage;
use SQL::Translator;
use vars qw( $VERSION );
-$VERSION = sprintf "%d.%02d", q$Revision: 1.2 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/;
my $from; # the original database
my $to; # the destination database