Package: libsql-translator-perl
Version: 0.07-5
Severity: wishlist
Tags: patch

When producing GraphViz output there is no line break between table name
and first column name that makes image a bit unreadable.
This patch adds two formatting characters to each labels to make picture
prettier.

Gabor

-- System Information:
Debian Release: 4.0
  APT prefers stable
  APT policy: (990, 'stable'), (500, 'proposed-updates')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.20.3
Locale: LANG=en_US, LC_CTYPE=en_US (charmap=ISO-8859-1)

Versions of packages libsql-translator-perl depends on:
ii  libclass-base-perl          0.03-3       useful base class for deriving oth
ii  libclass-data-inheritable-p 0.04-1       Inheritable, overridable class dat
ii  libclass-makemethods-perl   1.01-3       Generate common types of methods
ii  libdbi-perl                 1.53-1etch1  Perl5 database interface by Tim Bu
ii  libgd-gd2-noxpm-perl        1:2.34-1     Perl module wrapper for libgd - gd
ii  libgraphviz-perl            2.02-1       Perl interface to the GraphViz gra
ii  liblog-log4perl-perl        1.07-1       A Perl port of the widely popular 
ii  libparse-recdescent-perl    1.94.free-3  Generates recursive-descent parser
ii  libspreadsheet-parseexcel-p 0.2603-5     access information from Excel Spre
ii  libtemplate-perl            2.14-1       template processing system written
ii  libxml-writer-perl          0.602-1      Perl module for writing XML docume
ii  libxml-xpath-perl           1.13-6       Perl module for processing XPath
ii  libyaml-perl                0.62-1       YAML Ain't Markup Language (tm)
ii  perl                        5.8.8-7etch3 Larry Wall's Practical Extraction 

libsql-translator-perl recommends no packages.

-- no debconf information
--- GraphViz.pm.orig    2008-07-22 14:38:11.885754294 +0200
+++ GraphViz.pm 2008-07-22 14:26:28.937181738 +0200
@@ -300,7 +300,9 @@
                 . '\ '
             } @fields
         ) . '\l';
-        my $label = $show_fields ? "{$table_name|$field_str}" : $table_name;
+        my $label = $show_fields ? "{$table_name|\\l$field_str}\\l" : 
$table_name;
         $gv->add_node( $table_name, label => $label );
 
         debug("Processing table '$table_name'");

Reply via email to