Strip out quotes in the comparison area.

diff --git a/postgresql_autodoc.pl b/postgresql_autodoc.pl
index 1c6c81a4cce9499be8731c0db351b122bb892a84..cbc780fe6bbf7cce2429791ca47a91a7cea75c14 100755 (executable)
--- a/postgresql_autodoc.pl
+++ b/postgresql_autodoc.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 # -- # -*- Perl -*-w
-# $Header: /cvsroot/autodoc/autodoc/postgresql_autodoc.pl,v 1.4 2004/06/29 16:40:40 rbt Exp $
+# $Header: /cvsroot/autodoc/autodoc/postgresql_autodoc.pl,v 1.5 2004/10/12 13:33:46 rbt Exp $
 #  Imported 1.22 2002/02/08 17:09:48 into sourceforge
 
 # Postgres Auto-Doc Version 1.23
@@ -895,6 +895,8 @@ while ( my $tables = $sth_Tables->fetchrow_hashref ) {
                while ($column = pop(@collist) ) {
                        $column =~ s/\s$//;
                        $column =~ s/^\s//;
+                       $column =~ s/^"//;
+                       $column =~ s/"$//;
 
                        $structure{$group}{$relname}{'COLUMN'}{$column}{'CON'}{$con}{'TYPE'} = $index_type;