remove warning

diff --git a/DBSchema/DBD/Pg.pm b/DBSchema/DBD/Pg.pm
index 0bf4ae4..d76e446 100644 (file)
--- a/DBSchema/DBD/Pg.pm
+++ b/DBSchema/DBD/Pg.pm
@@ -200,7 +200,6 @@ END
         my $match = ( $etc =~ /MATCH (\w+)/i ) ? "MATCH $1" : '';
         my $on_delete = ( $etc =~ /ON DELETE ((NO |SET )?\w+)/i ) ? $1 : '';
         my $on_update = ( $etc =~ /ON UPDATE ((NO |SET )?\w+)/i ) ? $1 : '';
-        warn $etc if $etc;
         +{ 'constraint' => $_->{conname},
            'columns'    => [ split(/,\s*/, $columns) ],
            'table'      => $table,