From: Ivan Kohler Date: Thu, 7 May 2015 05:14:58 +0000 (-0700) Subject: remove warning X-Git-Url: http://git.freeside.biz/gitweb/?p=DBIx-DBSchema.git;a=commitdiff_plain;h=c4eb08e82262857274f453c911833eae9ca45e7f remove warning --- diff --git a/DBSchema/DBD/Pg.pm b/DBSchema/DBD/Pg.pm index 0bf4ae4..d76e446 100644 --- 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,