#!/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
#
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
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.