Downgrade global version - highest version in 9002 on cpan is 1.58 - thus go with...

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

diff --git a/bin/sqlt-diagram b/bin/sqlt-diagram
index 930759c..c47aca7 100755 (executable)
--- a/bin/sqlt-diagram
+++ b/bin/sqlt-diagram
@@ -1,9 +1,7 @@
 #!/usr/bin/perl
 
 # -------------------------------------------------------------------
-# $Id: sqlt-diagram,v 1.4 2004-08-30 19:05:32 kycl4rk Exp $
-# -------------------------------------------------------------------
-# 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 +33,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
@@ -76,7 +74,7 @@ use Pod::Usage;
 use SQL::Translator;
 
 use vars '$VERSION';
-$VERSION = sprintf "%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;
+$VERSION = '1.59';
 
 #
 # Get arguments.
@@ -94,7 +92,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,