Fixed my name, Perl shebang.

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

diff --git a/bin/sqlt-dumper b/bin/sqlt-dumper
index 3cc0d75..0f80959 100755 (executable)
--- a/bin/sqlt-dumper
+++ b/bin/sqlt-dumper
@@ -1,8 +1,6 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 # -------------------------------------------------------------------
-# $Id$
-# -------------------------------------------------------------------
 # Copyright (C) 2002-2009 SQLFairy Authors
 #
 # This program is free software; you can redistribute it and/or
@@ -57,11 +55,15 @@ argument.
 # -------------------------------------------------------------------
 
 use strict;
+use warnings;
 use Pod::Usage;
 use Getopt::Long;
 use SQL::Translator;
 use File::Basename qw(basename);
 
+use vars '$VERSION';
+$VERSION = '1.59';
+
 my ( $help, $db, $skip, $skiplike, $db_user, $db_pass, $dsn );
 GetOptions(
     'h|help'        => \$help,
@@ -102,7 +104,7 @@ exit(0);
 
 =head1 AUTHOR
 
-Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
+Ken Youens-Clark E<lt>kclark@cpan.orgE<gt>.
 
 =head1 SEE ALSO