Escape the closing quote character when quoting indentifiers

[dbsrgits/SQL-Translator.git] / lib / SQL / Translator / Generator / DDL / PostgreSQL.pm

diff --git a/lib/SQL/Translator/Generator/DDL/PostgreSQL.pm b/lib/SQL/Translator/Generator/DDL/PostgreSQL.pm
index b3cc1b8..cdf5049 100644 (file)
--- a/lib/SQL/Translator/Generator/DDL/PostgreSQL.pm
+++ b/lib/SQL/Translator/Generator/DDL/PostgreSQL.pm
@@ -12,7 +12,11 @@ I<documentation volunteers needed>
 =cut
 use Moo;
 
-has quote_chars => (is => 'rw', default => sub { +[qw(" ")] } );
+has quote_chars => (
+  is => 'rw',
+  default => sub { +[qw(" ")] },
+  trigger => sub { $_[0]->clear_escape_char },
+);
 
 with 'SQL::Translator::Generator::Role::Quote';