Fixed my name, Perl shebang.

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

diff --git a/bin/sqlt-diagram b/bin/sqlt-diagram
index 0f088e7..7e38a04 100755 (executable)
--- a/bin/sqlt-diagram
+++ b/bin/sqlt-diagram
@@ -1,8 +1,6 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 # -------------------------------------------------------------------
-# $Id: sqlt-diagram 1440 2009-01-17 16:31:57Z jawnsy $
-# -------------------------------------------------------------------
 # Copyright (C) 2002-2009 SQLFairy Authors
 #
 # This program is free software; you can redistribute it and/or
@@ -70,13 +68,14 @@ to achieve this.
 =cut
 
 use strict;
+use warnings;
 use Data::Dumper;
 use Getopt::Long;
 use Pod::Usage;
 use SQL::Translator;
 
 use vars '$VERSION';
-$VERSION = '1.99';
+$VERSION = '1.59';
 
 #
 # Get arguments.
@@ -147,6 +146,6 @@ for my $file (@files) {
 
 =head1 AUTHOR
 
-Ken Y. Clark E<lt>kclark@cpan.orgE<gt>.
+Ken Youens-Clark E<lt>kclark@cpan.orgE<gt>.
 
 =cut