comment on

Ok, to restore my credibility, here's a workaround:

It's a bug alright. At some point the code lines up the requested columns, and the columns the table has to offer. It chokes on the fact that the q{SET} eq q{"SET"} equality fails to hold. It's because at some point the double quotes need to be stripped away, to recover the bare column name underneath and that is not (no longer?) happening.

What is strange is that there appears to be code in there that does just this, but has been commented out. In any event, the following patch seems to do the trick, but one would have to run the full regression test suite to be sure.

--- Statement.pm        Tue Mar 11 13:13:43 2008
+++ /usr/local/lib/perl5/site_perl/5.8.8/SQL/Statement.pm       Tue Ma
+r 11 13:23:05 2008
@@ -1590,6 +1590,7 @@
                        );
        }
        next unless $col;
+       $col =~ s/\A"([^"]+)"\z/$1/;
 ###new
        if (ref $table eq 'SQL::Statement::Table') {
           $table = $table->name;
[download]

• another intruder with the mooring in the heart of the Perl

In reply to Re^3: SQL::Statement confusing literals and identifiers (now with workaround!) by grinder
in thread SQL::Statement confusing literals and identifiers by ikegami

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


"be consistent"
	PerlMonks