From: Justin Hunter Date: Sun, 23 Aug 2009 07:04:34 +0000 (-0700) Subject: remove comments X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=77bdd3a83c24c97b26715f4e742ae9cb36fa4784;p=dbsrgits%2FSQL-Translator-2.0-ish.git remove comments --- diff --git a/lib/SQL/Translator/Parser/DDL/PostgreSQL.pm b/lib/SQL/Translator/Parser/DDL/PostgreSQL.pm index 14d4ccd..e049e82 100644 --- a/lib/SQL/Translator/Parser/DDL/PostgreSQL.pm +++ b/lib/SQL/Translator/Parser/DDL/PostgreSQL.pm @@ -18,9 +18,6 @@ role SQL::Translator::Parser::DDL::PostgreSQL { my $translator = $self->translator; my $parser = Parse::RecDescent->new($self->grammar); -# $::RD_TRACE = $translator->trace ? 1 : undef; -# $DEBUG = $translator->debug; - unless (defined $parser) { return $translator->error("Error instantiating Parse::RecDescent ". "instance: Bad grammer"); @@ -28,7 +25,6 @@ role SQL::Translator::Parser::DDL::PostgreSQL { my $result = $parser->startrule($data); die "Parse failed.\n" unless defined $result; -# warn Dumper($result) if $DEBUG; my $schema = $translator->schema; my @tables = @@ -111,6 +107,6 @@ sort { $tdata->{'fields'}{ $a }{'order'} <=> $tdata->{'fields'}{ $b }{'order'} } $view->extra ( temporary => 1 ) if $vinfo->{is_temporary}; } - return 1; #$schema; + return 1; } }