Tab/WS crusade

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

diff --git a/script/sqlt-diagram b/script/sqlt-diagram
index ca58dc6..767eb6e 100755 (executable)
--- a/script/sqlt-diagram
+++ b/script/sqlt-diagram
@@ -18,7 +18,7 @@
 # 02111-1307  USA
 # -------------------------------------------------------------------
 
-=head1 NAME 
+=head1 NAME
 
 sqlt-diagram - Automatically create a diagram from a database schema
 
@@ -37,13 +37,13 @@ sqlt-diagram - Automatically create a diagram from a database schema
                        default "medium")
     --gutter           Gutter size between tables
     --color            Add colors
-    --show-fk-only     Only show fields that act as primary 
+    --show-fk-only     Only show fields that act as primary
                        or foreign keys
 
     --natural-join     Perform natural joins
     --natural-join-pk  Perform natural joins from primary keys only
     -s|--skip          Fields to skip in natural joins
-    --skip-tables      Comma-separated list of table names to exclude 
+    --skip-tables      Comma-separated list of table names to exclude
     --skip-tables-like Comma-separated list of regexen to exclude tables
     --debug            Print debugging information
 
@@ -82,10 +82,10 @@ $VERSION = '1.59';
 #
 # Get arguments.
 #
-my ( 
-    $out_file, $image_type, $db_driver, $title, $num_columns, 
+my (
+    $out_file, $image_type, $db_driver, $title, $num_columns,
     $no_lines, $font_size, $add_color, $debug, $show_fk_only,
-    $gutter, $natural_join, $join_pk_only, $skip_fields, 
+    $gutter, $natural_join, $join_pk_only, $skip_fields,
     $skip_tables, $skip_tables_like, $help
 );
 
@@ -114,7 +114,7 @@ pod2usage(1) if $help;
 pod2usage( -message => "No db driver specified" ) unless $db_driver;
 pod2usage( -message => 'No input file'          ) unless @files;
 
-my $translator       =  SQL::Translator->new( 
+my $translator       =  SQL::Translator->new(
     from             => $db_driver,
     to               => 'Diagram',
     debug            => $debug || 0,