Fixed my name, Perl shebang.

[dbsrgits/SQL-Translator.git] / bin / sqlt-diff

diff --git a/bin/sqlt-diff b/bin/sqlt-diff
index 341e073..3a5a6a5 100755 (executable)
--- a/bin/sqlt-diff
+++ b/bin/sqlt-diff
@@ -1,9 +1,7 @@
-#!/usr/bin/perl -w
+#!/usr/bin/env perl
 # vim: set ft=perl:
 
 # -------------------------------------------------------------------
-# $Id: sqlt-diff 1440 2009-01-17 16:31:57Z jawnsy $
-# -------------------------------------------------------------------
 # Copyright (C) 2002-2009 The SQLFairy Authors
 #
 # This program is free software; you can redistribute it and/or
@@ -105,12 +103,16 @@ Currently (v0.0900), only MySQL is supported by this code.
 # -------------------------------------------------------------------
 
 use strict;
+use warnings;
 use Pod::Usage;
 use Data::Dumper;
 use SQL::Translator;
 use SQL::Translator::Diff;
 use SQL::Translator::Schema::Constants;
 
+use vars qw( $VERSION );
+$VERSION = '1.59';
+
 my ( @input, $list, $help, $debug, $trace, $caseopt, $ignore_index_names, 
        $ignore_constraint_names, $output_db, $mysql_parser_version,
        $ignore_view_sql, $ignore_proc_sql, $no_batch_alters );
@@ -231,7 +233,7 @@ else
 
 =head1 AUTHOR
 
-Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
+Ken Youens-Clark E<lt>kclark@cpan.orgE<gt>.
 
 =head1 SEE ALSO