svk-commitTn2OH.tmp

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

diff --git a/bin/sqlt-diagram b/bin/sqlt-diagram
index 930759c..1493605 100755 (executable)
--- a/bin/sqlt-diagram
+++ b/bin/sqlt-diagram
@@ -1,9 +1,9 @@
 #!/usr/bin/perl
 
 # -------------------------------------------------------------------
-# $Id: sqlt-diagram,v 1.4 2004-08-30 19:05:32 kycl4rk Exp $
+# $Id$
 # -------------------------------------------------------------------
-# Copyright (C) 2002-4 SQLFairy Authors
+# Copyright (C) 2002-2009 SQLFairy Authors
 #
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License as
@@ -35,7 +35,7 @@ sqlt-diagram - Automatically create a diagram from a database schema
     -t|--title         Title to give schema
     -c|--cols          Number of columns
     -n|--no-lines      Don't draw lines
-    -f|--font-size     Font size ("small," "medium," "large," or "huge,"
+    --font-size        Font size ("small," "medium," "large," or "huge,"
                        default "medium")
     --gutter           Gutter size between tables
     --color            Add colors
@@ -75,9 +75,6 @@ use Getopt::Long;
 use Pod::Usage;
 use SQL::Translator;
 
-use vars '$VERSION';
-$VERSION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;
-
 #
 # Get arguments.
 #
@@ -94,7 +91,7 @@ GetOptions(
     't|title:s'       => \$title,
     'c|columns:i'     => \$no_columns,
     'n|no-lines'      => \$no_lines,
-    'f|font-size:s'   => \$font_size,
+    'font-size:s'   => \$font_size,
     'gutter:i'        => \$gutter,
     'color'           => \$add_color,
     'show-fk-only'    => \$show_fk_only,