Skip Menu |

This queue is for tickets about the SQL-Translator CPAN distribution.

Report information
The Basics
Id: 52276
Status: resolved
Priority: 0/
Queue: SQL-Translator

People
Owner: Nobody in particular
Requestors: HMBRAND [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: 0.11005



Subject: [PATCH] debug output not guarded by debug in DBI/PostgreSQL
--- SQL/Translator/Parser/DBI/PostgreSQL.pm.org 2009-08-18 21:24:40.000000000 +0200 +++ SQL/Translator/Parser/DBI/PostgreSQL.pm 2009-11-30 15:09:22.000000000 +0100 @@ -184,7 +184,7 @@ ORDER BY 1; $fk_select->execute('public',$table_name) or die "Can't execute: $@"; my $fkeys = $fk_select->fetchall_arrayref({}); - print Dumper $fkeys; + $DEBUG and print STDERR Dumper $fkeys; for my $con (@$fkeys){ my $con_name = $con->{conname}; my $fields = $con->{fields};
On Mon Nov 30 09:26:32 2009, HMBRAND wrote: Show quoted text
> --- SQL/Translator/Parser/DBI/PostgreSQL.pm.org 2009-08-18 > 21:24:40.000000000 +0200 > +++ SQL/Translator/Parser/DBI/PostgreSQL.pm 2009-11-30 > 15:09:22.000000000 +0100 > @@ -184,7 +184,7 @@ ORDER BY 1; > > $fk_select->execute('public',$table_name) or die "Can't > execute: $@"; > my $fkeys = $fk_select->fetchall_arrayref({}); > - print Dumper $fkeys; > + $DEBUG and print STDERR Dumper $fkeys; > for my $con (@$fkeys){ > my $con_name = $con->{conname}; > my $fields = $con->{fields};
Patched in trunk, thanks!