Skip Menu |
 

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

Report information
The Basics
Id: 52926
Status: rejected
Priority: 0/
Queue: SQL-Statement

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

Bug Information
Severity: Important
Broken in: 1.23
Fixed in: (no value)



Subject: SQL::Statement::columns not set correctly.
Download (untitled) / with headers
text/plain 601b
Important and perhaps critical. It appears as though SQL::Statement::new is not setting the columns attribute. Using Perl, v5.10.0 and SQL::Statement 1.23, the columns attribute does not get populated. use strict; use warnings; use SQL::Statement; my $sql = " SELECT a FROM b JOIN c WHERE c=? AND e=7 ORDER BY f DESC LIMIT 5,2 "; my $parser = SQL::Parser->new(); my $stmt = SQL::Statement->new($sql,$parser); print "$SQL::Statement::VERSION\n"; # 1.23 print ref $stmt->{columns}; # Nothing!!! print join( "\n", sort keys %$stmt ); # columns is included. __END__
The columns attribute is created during opentables(). This is done in early phase of execute().


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.