Fixed problems in POD.
Ken Youens-Clark [Mon, 30 Aug 2004 18:59:09 +0000 (18:59 +0000)]
bin/sqlt-graph

index c8f72cf..804dd35 100755 (executable)
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 # -------------------------------------------------------------------
-# $Id: sqlt-graph,v 1.5 2004-03-15 22:47:23 kycl4rk Exp $
+# $Id: sqlt-graph,v 1.6 2004-08-30 18:59:09 kycl4rk Exp $
 # -------------------------------------------------------------------
 # Copyright (C) 2002-4 SQLFairy Authors
 #
@@ -49,8 +49,8 @@ sqlt-graph - Automatically create a graph from a database schema
                        set to "0" to undefine)
     --natural-join     Perform natural joins
     --natural-join-pk  Perform natural joins from primary keys only
-    --show_datatypes   Show datatype of each field
-    --show_sizes       Show column sizes for VARCHAR and CHAR fields
+    --show-datatypes   Show datatype of each field
+    --show-sizes       Show column sizes for VARCHAR and CHAR fields
     --show-constraints Show list of constraints for each field
     -s|--skip          Fields to skip in natural joins
     --debug            Print debugging information
@@ -91,7 +91,7 @@ use Pod::Usage;
 use SQL::Translator;
 
 use vars '$VERSION';
-$VERSION = sprintf "%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/;
+$VERSION = sprintf "%d.%02d", q$Revision: 1.6 $ =~ /(\d+)\.(\d+)/;
 
 #
 # Get arguments.