r55930 - in /trunk/libsql-statement-perl: ./ debian/ debian/patches/ lib/SQL/ lib/SQL/Dialects/ lib/SQL/Statement/ t/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sun Apr 11 03:20:45 UTC 2010
Author: ansgar-guest
Date: Sun Apr 11 03:20:37 2010
New Revision: 55930
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55930
Log:
* New upstream release.
* No longer install README.
* Add myself to Uploaders.
Added:
trunk/libsql-statement-perl/t/06aggregate.t
- copied unchanged from r55926, branches/upstream/libsql-statement-perl/current/t/06aggregate.t
Removed:
trunk/libsql-statement-perl/t/06group.t
Modified:
trunk/libsql-statement-perl/Changes
trunk/libsql-statement-perl/MANIFEST
trunk/libsql-statement-perl/MANIFEST.SKIP
trunk/libsql-statement-perl/META.yml
trunk/libsql-statement-perl/Todo
trunk/libsql-statement-perl/debian/changelog
trunk/libsql-statement-perl/debian/control
trunk/libsql-statement-perl/debian/libsql-statement-perl.docs
trunk/libsql-statement-perl/debian/patches/fix-pod-spelling.patch
trunk/libsql-statement-perl/lib/SQL/Dialects/ANSI.pm
trunk/libsql-statement-perl/lib/SQL/Dialects/AnyData.pm
trunk/libsql-statement-perl/lib/SQL/Dialects/CSV.pm
trunk/libsql-statement-perl/lib/SQL/Dialects/Role.pm
trunk/libsql-statement-perl/lib/SQL/Eval.pm
trunk/libsql-statement-perl/lib/SQL/Parser.pm
trunk/libsql-statement-perl/lib/SQL/Statement.pm
trunk/libsql-statement-perl/lib/SQL/Statement/Function.pm
trunk/libsql-statement-perl/lib/SQL/Statement/Functions.pm
trunk/libsql-statement-perl/lib/SQL/Statement/GetInfo.pm
trunk/libsql-statement-perl/lib/SQL/Statement/Operation.pm
trunk/libsql-statement-perl/lib/SQL/Statement/Placeholder.pm
trunk/libsql-statement-perl/lib/SQL/Statement/RAM.pm
trunk/libsql-statement-perl/lib/SQL/Statement/Syntax.pod
trunk/libsql-statement-perl/lib/SQL/Statement/Term.pm
trunk/libsql-statement-perl/lib/SQL/Statement/TermFactory.pm
trunk/libsql-statement-perl/lib/SQL/Statement/Util.pm
Modified: trunk/libsql-statement-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/Changes?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/Changes (original)
+++ trunk/libsql-statement-perl/Changes Sun Apr 11 03:20:37 2010
@@ -1,4 +1,19 @@
Changes log for Perl extension SQL::Statement
+
+Version 1.26, release April 09th, 2010
+----------------------------------------------
+
+[Bug fixes]
+* Handle NULL columns in concatenation as empty strings
+
+[Improvements]
+* Change regex's in parser to use \p{Word} instead of \w to allow unicode
+ support
+
+[Documentation]
+* Make clear, that identifiers are handled case insensetive and there is
+ a real good solution provided by DBI which allows to live great with
+ that behaviour.
Version 1.25, release March 15th, 2010
----------------------------------------------
Modified: trunk/libsql-statement-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/MANIFEST?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/MANIFEST (original)
+++ trunk/libsql-statement-perl/MANIFEST Sun Apr 11 03:20:37 2010
@@ -29,7 +29,7 @@
t/03executeDBD.t
t/04names.t
t/05create.t
-t/06group.t
+t/06aggregate.t
t/07case.t
t/08join.t
t/09ops.t
Modified: trunk/libsql-statement-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/MANIFEST.SKIP?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/MANIFEST.SKIP (original)
+++ trunk/libsql-statement-perl/MANIFEST.SKIP Sun Apr 11 03:20:37 2010
@@ -4,10 +4,11 @@
\.rej$
\.old$
\..*sw[po]
-.*~
+.*~$
Makefile$
\.project
\bblib\b
pm_to_blib
bugsql
.*\.csv
+\.tmp$
Modified: trunk/libsql-statement-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/META.yml?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/META.yml (original)
+++ trunk/libsql-statement-perl/META.yml Sun Apr 11 03:20:37 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: SQL-Statement
-version: 1.25
+version: 1.26
abstract: SQL parsing and processing engine
author:
- Jeff Zucker <jeff at vpservices.com>, Jens Rehsack <rehsack at cpan.org>
Modified: trunk/libsql-statement-perl/Todo
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/Todo?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/Todo (original)
+++ trunk/libsql-statement-perl/Todo Sun Apr 11 03:20:37 2010
@@ -1,9 +1,3 @@
-Open to do actions for SQL::Statement 1.xx
-~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-* re-add support for case-sensitive column names, either as typed in query
- or as known by the table
-
Open to do actions for SQL::Statement 2.xx
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Modified: trunk/libsql-statement-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/debian/changelog?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/debian/changelog (original)
+++ trunk/libsql-statement-perl/debian/changelog Sun Apr 11 03:20:37 2010
@@ -1,3 +1,11 @@
+libsql-statement-perl (1.26-1) unstable; urgency=low
+
+ * New upstream release.
+ * No longer install README.
+ * Add myself to Uploaders.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Sun, 11 Apr 2010 12:20:15 +0900
+
libsql-statement-perl (1.25-1) unstable; urgency=low
[ Jonathan Yu ]
Modified: trunk/libsql-statement-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/debian/control?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/debian/control (original)
+++ trunk/libsql-statement-perl/debian/control Sun Apr 11 03:20:37 2010
@@ -10,7 +10,8 @@
Krzysztof Krzyzaniak (eloy) <eloy at debian.org>,
gregor herrmann <gregoa at debian.org>,
Rene Mayorga <rmayorga at debian.org>,
- Ryan Niebur <ryan at debian.org>
+ Ryan Niebur <ryan at debian.org>,
+ Ansgar Burchardt <ansgar at 43-1.org>
Standards-Version: 3.8.4
Homepage: http://search.cpan.org/dist/SQL-Statement/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libsql-statement-perl/
Modified: trunk/libsql-statement-perl/debian/libsql-statement-perl.docs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/debian/libsql-statement-perl.docs?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/debian/libsql-statement-perl.docs (original)
+++ trunk/libsql-statement-perl/debian/libsql-statement-perl.docs Sun Apr 11 03:20:37 2010
@@ -1,2 +1,1 @@
-README
Todo
Modified: trunk/libsql-statement-perl/debian/patches/fix-pod-spelling.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/debian/patches/fix-pod-spelling.patch?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/debian/patches/fix-pod-spelling.patch (original)
+++ trunk/libsql-statement-perl/debian/patches/fix-pod-spelling.patch Sun Apr 11 03:20:37 2010
@@ -1,9 +1,9 @@
Description: fix POD spelling
Author: Jonathan Yu <jawnsy at cpan.org>
Origin: vendor
-Forwarded: no
---- a/lib/SQL/Parser.pm
-+++ b/lib/SQL/Parser.pm
+Forwarded: https://rt.cpan.org/Ticket/Display.html?id=56475
+--- libsql-statement-perl.orig/lib/SQL/Parser.pm
++++ libsql-statement-perl/lib/SQL/Parser.pm
@@ -3117,7 +3117,7 @@
=head1 Subclassing SQL::Parser
@@ -22,9 +22,9 @@
use the SQL::Statement object interface to the structure instead. See L<SQL::Statement>.
B<Parse Structures>
---- a/lib/SQL/Statement.pm
-+++ b/lib/SQL/Statement.pm
-@@ -2136,7 +2136,7 @@
+--- libsql-statement-perl.orig/lib/SQL/Statement.pm
++++ libsql-statement-perl/lib/SQL/Statement.pm
+@@ -2139,7 +2139,7 @@
SQL::Statement is a small embeddable Database Management System (DBMS), this
means that it provides all of the services of a simple DBMS except that
@@ -33,7 +33,7 @@
storage mechanism that allows you to prepare, execute, and fetch from SQL
statements using temporary tables and 2) a set of software sockets where
any author can plug in any storage mechanism.
-@@ -2149,7 +2149,7 @@
+@@ -2152,7 +2152,7 @@
=head1 INSTALLATION
There are no prerequisites for using this as a standalone parser. If you want
@@ -42,7 +42,7 @@
one of the DBI DBD drivers. You can install this module using CPAN.pm,
CPANPLUS.pm, PPM, apt-get, or other packaging tools. Or you can download the
tar.gz file form CPAN and use the standard perl mantra:
-@@ -2312,7 +2312,7 @@
+@@ -2313,7 +2313,7 @@
only. To get patches for earlier versions, you need to get an
agreement with a developer of your choice - who might or might
not report the issue and a suggested fix upstream (depends on
@@ -51,8 +51,8 @@
=head2 Business support and maintenance
---- a/lib/SQL/Statement/Embed.pod
-+++ b/lib/SQL/Statement/Embed.pod
+--- libsql-statement-perl.orig/lib/SQL/Statement/Embed.pod
++++ libsql-statement-perl/lib/SQL/Statement/Embed.pod
@@ -22,7 +22,7 @@
Consider what needs to happen to perform a SELECT query on our 'Foo' data:
@@ -69,8 +69,8 @@
-=cut
\ No newline at end of file
+=cut
---- a/lib/SQL/Statement/Functions.pm
-+++ b/lib/SQL/Statement/Functions.pm
+--- libsql-statement-perl.orig/lib/SQL/Statement/Functions.pm
++++ libsql-statement-perl/lib/SQL/Statement/Functions.pm
@@ -94,7 +94,7 @@
sprintf "%02s::%02s::%02s",(localtime)[2,1,0]
}
@@ -80,8 +80,8 @@
sub FOO {
my($self,$sth,$rowhash, at params);
---- a/lib/SQL/Statement/Structure.pod
-+++ b/lib/SQL/Statement/Structure.pod
+--- libsql-statement-perl.orig/lib/SQL/Statement/Structure.pod
++++ libsql-statement-perl/lib/SQL/Statement/Structure.pod
@@ -149,7 +149,7 @@
This would return two instances of C<SQL::Statement::Param>. Param objects
Modified: trunk/libsql-statement-perl/lib/SQL/Dialects/ANSI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Dialects/ANSI.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Dialects/ANSI.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Dialects/ANSI.pm Sun Apr 11 03:20:37 2010
@@ -1,7 +1,7 @@
package SQL::Dialects::ANSI;
use vars qw($VERSION);
-$VERSION = '1.25';
+$VERSION = '1.26';
use SQL::Dialects::Role;
Modified: trunk/libsql-statement-perl/lib/SQL/Dialects/AnyData.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Dialects/AnyData.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Dialects/AnyData.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Dialects/AnyData.pm Sun Apr 11 03:20:37 2010
@@ -1,7 +1,7 @@
package SQL::Dialects::AnyData;
use vars qw($VERSION);
-$VERSION = '1.25';
+$VERSION = '1.26';
use SQL::Dialects::Role;
Modified: trunk/libsql-statement-perl/lib/SQL/Dialects/CSV.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Dialects/CSV.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Dialects/CSV.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Dialects/CSV.pm Sun Apr 11 03:20:37 2010
@@ -1,7 +1,7 @@
package SQL::Dialects::CSV;
use vars qw($VERSION);
-$VERSION = '1.25';
+$VERSION = '1.26';
use SQL::Dialects::Role;
Modified: trunk/libsql-statement-perl/lib/SQL/Dialects/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Dialects/Role.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Dialects/Role.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Dialects/Role.pm Sun Apr 11 03:20:37 2010
@@ -5,7 +5,7 @@
use base qw(Exporter);
our @EXPORT = qw(get_config_as_hash);
-our $VERSION = '1.25';
+our $VERSION = '1.26';
sub get_config_as_hash
{
Modified: trunk/libsql-statement-perl/lib/SQL/Eval.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Eval.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Eval.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Eval.pm Sun Apr 11 03:20:37 2010
@@ -6,7 +6,7 @@
package SQL::Eval;
use vars qw($VERSION);
-$VERSION = '1.25';
+$VERSION = '1.26';
require SQL::Statement;
Modified: trunk/libsql-statement-perl/lib/SQL/Parser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Parser.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Parser.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Parser.pm Sun Apr 11 03:20:37 2010
@@ -19,7 +19,7 @@
use Params::Util qw(_ARRAY0 _ARRAY _HASH);
use Scalar::Util qw(looks_like_number);
-$VERSION = '1.25';
+$VERSION = '1.26';
BEGIN
{
@@ -146,7 +146,7 @@
; # FIXME SUBSTR('*')
my $orgname = $col->{fullorg};
my $colname = $orgname;
- $colname = lc $colname unless ( $colname =~ m/^(?:\w+\.)?"/ );
+ $colname = lc $colname unless ( $colname =~ m/^(?:\p{Word}+\.)?"/ );
unless ( defined( $self->{struct}->{ORG_NAME}->{$colname} ) )
{
$self->{struct}->{ORG_NAME}->{$colname} = $self->{struct}->{ORG_NAME}->{$orgname};
@@ -1155,7 +1155,7 @@
);
my $tmpname = $name;
- $tmpname = lc $tmpname unless ( $tmpname =~ m/^(?:\w+\.)?"/ );
+ $tmpname = lc $tmpname unless ( $tmpname =~ m/^(?:\p{Word}+\.)?"/ );
return $self->do_err("Duplicate column names!") if $is_col_name{$tmpname}++;
}
@@ -1326,7 +1326,7 @@
# DAA:
# need better alias test here, since AS is a common
# keyword that might be used in a function
- my ( $fld, $alias ) = ( $col =~ m/^(.+?)\s+(?:AS\s+)?([A-Z]\w*|\?QI\d+\?)$/i ) ? ( $1, $2 ) : ( $col, undef );
+ my ( $fld, $alias ) = ( $col =~ m/^(.+?)\s+(?:AS\s+)?([A-Z]\p{Word}*|\?QI\d+\?)$/i ) ? ( $1, $2 ) : ( $col, undef );
$col = $fld;
if ( $col =~ m/^(\S+)\.\*$/ )
{
@@ -1693,7 +1693,7 @@
#
my $xstr = $str;
my ( $k, $v );
- if ( $str =~ /^\s*([A-Z]\w*)\s*\[/gcs )
+ if ( $str =~ /^\s*([A-Z]\p{Word}*)\s*\[/gcs )
{
#
@@ -1832,7 +1832,7 @@
# DAA
# optimize regex
#
- if ( $str =~ m/\(([\w \*\/\+\-\[\]\?]+)\)/ )
+ if ( $str =~ m/\(([\p{Word} \*\/\+\-\[\]\?]+)\)/ )
{
my $match = $1;
if ( $match !~ m/(LIKE |IS|BETWEEN|IN)/i )
@@ -1850,7 +1850,7 @@
# DAA
# remove scoped recursion
#
- return ( !$has_op and $str =~ /\(([\w \*\/\+\-\[\]\?]+)\)/ )
+ return ( !$has_op and $str =~ /\(([\p{Word} \*\/\+\-\[\]\?]+)\)/ )
? nongroup_numeric($str)
: $str;
}
@@ -2490,7 +2490,7 @@
#
# JZ addition to RR's alias patch
#
- or ( $col_name =~ m/^(?:\w+\.)?"/ )
+ or ( $col_name =~ m/^(?:\p{Word}+\.)?"/ )
);
}
Modified: trunk/libsql-statement-perl/lib/SQL/Statement.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement.pm Sun Apr 11 03:20:37 2010
@@ -26,15 +26,9 @@
use List::Util qw(first);
use Params::Util qw(_INSTANCE _STRING _ARRAY _ARRAY0 _HASH0 _HASH);
-BEGIN
-{
- eval { local $SIG{__DIE__}; local $SIG{__WARN__}; require 'Data/Dumper.pm'; $Data::Dumper::Indent = 1 };
- *bug = ($@) ? sub { warn @_ } : sub { print Data::Dumper::Dumper( \@_ ) };
-}
-
#use locale;
-$VERSION = '1.25';
+$VERSION = '1.26';
sub new
{
@@ -970,7 +964,7 @@
if ( $self->distinct() )
{
my %seen;
- @{$rows} = map { $seen{ join( "\0", @{$_} ) }++ ? () : $_ } @{$rows};
+ @{$rows} = map { $seen{ join( "\0", ( map { defined($_) ? $_ : '' } @{$_} ) ) }++ ? () : $_ } @{$rows};
}
if ( $self->{has_set_functions} )
@@ -1854,7 +1848,7 @@
my $empty_agg = {
uniq => [],
count => 0,
- sum => 0,
+ sum => undef,
min => undef,
max => undef,
};
@@ -1912,7 +1906,7 @@
{
if ( $coldef->{name} eq 'COUNT' )
{
- push( @row, $result->{agg}->[$colidx]->{count} );
+ push( @row, $result->{agg}->[$colidx]->{count} || 0 );
}
elsif ( $coldef->{name} eq 'MAX' )
{
@@ -1990,11 +1984,20 @@
$self->do_calc();
- foreach my $key ( keys( %{ $self->{final_rows} } ) )
- {
- my $final_row = $self->build_row( $self->{final_rows}->{$key} );
- push( @final_table, $final_row );
- }
+ if( scalar( keys( %{ $self->{final_rows} } ) ) )
+ {
+ foreach my $key ( keys( %{ $self->{final_rows} } ) )
+ {
+ my $final_row = $self->build_row( $self->{final_rows}->{$key} );
+ push( @final_table, $final_row );
+ }
+ }
+ else
+ {
+ my $final_row = $self->build_row( {} );
+ push( @final_table, $final_row );
+ }
+
return \@final_table;
}
@@ -2219,8 +2222,6 @@
=head2 _anycmp
-=head2 bug
-
=head2 buildColumnObjects
=head2 buildSortSpecList
@@ -2384,7 +2385,30 @@
For SQL::Statement 1.xx it's not planned to add new XS parts.
+=item *
+
+Wildcards are expanded to lower cased identifiers. This might confuse
+some people, but it was easier to implement.
+
+The warning from L<DBI>, never trust on case sensetiveness of returned column
+names should be read more often. If you need to rely on identifiers, always
+use C<sth-E<gt>{NAME_lc}> or C<sth-E<gt>{NAME_uc}> - never rely on
+C<sth-E<gt>{NAME}>:
+
+ $dbh->{FetchHashKeyName} = 'NAME_lc';
+ $sth = $dbh->prepare("SELECT FOO, BAR, ID, NAME, BAZ FROM TABLE");
+ $sth->execute;
+ $hash_ref = $sth->fetchall_hashref('id');
+ print "Name for id 42 is $hash_ref->{42}->{name}\n";
+
+See L<DBI/FetchHashKeyName> for more information.
+
=back
+
+Patches to fix those bugs/limitations (or a grant to do it) would be very
+welcome. Please note, that these patches B<must> pass successful all tests
+of C<SQL::Statement>, L<DBD::File> and L<DBD::CSV> and must be a general
+improvement.
=head1 AUTHOR AND COPYRIGHT
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/Function.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/Function.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Function.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Function.pm Sun Apr 11 03:20:37 2010
@@ -3,7 +3,7 @@
require SQL::Statement::Term;
@ISA = qw(SQL::Statement::Term);
-our $VERSION = '1.25';
+our $VERSION = '1.26';
=pod
@@ -455,7 +455,8 @@
my $rc = '';
foreach my $val ( @{ $_[0]->{PARAMS} } )
{
- $rc .= $val->value( $_[1] );
+ my $catval = $val->value( $_[1] );
+ $rc .= defined( $catval ) ? $catval : '';
}
return $rc;
}
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/Functions.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/Functions.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Functions.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Functions.pm Sun Apr 11 03:20:37 2010
@@ -198,7 +198,7 @@
=cut
use vars qw($VERSION);
-$VERSION = '1.25';
+$VERSION = '1.26';
=pod
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/GetInfo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/GetInfo.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/GetInfo.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/GetInfo.pm Sun Apr 11 03:20:37 2010
@@ -1,7 +1,7 @@
package SQL::Statement::GetInfo;
use vars qw($VERSION);
-$VERSION = '1.25';
+$VERSION = '1.26';
use SQL::Statement();
use vars qw(%info);
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/Operation.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/Operation.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Operation.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Operation.pm Sun Apr 11 03:20:37 2010
@@ -5,7 +5,7 @@
require SQL::Statement::Term;
-our $VERSION = '1.25';
+our $VERSION = '1.26';
@ISA = qw(SQL::Statement::Term);
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/Placeholder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/Placeholder.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Placeholder.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Placeholder.pm Sun Apr 11 03:20:37 2010
@@ -5,7 +5,7 @@
require SQL::Statement::Term;
-our $VERSION = '1.25';
+our $VERSION = '1.26';
@ISA = qw(SQL::Statement::Term);
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/RAM.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/RAM.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/RAM.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/RAM.pm Sun Apr 11 03:20:37 2010
@@ -3,7 +3,7 @@
############################
use vars qw($VERSION);
-$VERSION = '1.25';
+$VERSION = '1.26';
sub new
{
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/Syntax.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/Syntax.pod?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Syntax.pod (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Syntax.pod Sun Apr 11 03:20:37 2010
@@ -407,6 +407,10 @@
the same as C<SELECT FOO FROM BAR> (C<FOO> will be evaluated as C<foo>,
similar for C<BAR>).
+Since SQL::Statement is internally using lower cased identifiers (unquoted),
+everytime a wildcard is used, the delivered names of the identifiers are
+lower cased.
+
=back
=head1 Extending SQL syntax using SQL
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/Term.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/Term.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Term.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Term.pm Sun Apr 11 03:20:37 2010
@@ -1,6 +1,6 @@
package SQL::Statement::Term;
-our $VERSION = '1.25';
+our $VERSION = '1.26';
use Scalar::Util qw(weaken);
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/TermFactory.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/TermFactory.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/TermFactory.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/TermFactory.pm Sun Apr 11 03:20:37 2010
@@ -9,7 +9,7 @@
use Params::Util qw(_HASH _ARRAY0 _INSTANCE);
use Scalar::Util qw(blessed weaken);
-our $VERSION = '1.25';
+our $VERSION = '1.26';
my %oplist = (
'=' => 'Equal',
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/Util.pm?rev=55930&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Util.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Util.pm Sun Apr 11 03:20:37 2010
@@ -1,7 +1,7 @@
package SQL::Statement::Util;
use vars qw($VERSION);
-$VERSION = '1.25';
+$VERSION = '1.26';
sub type
{
More information about the Pkg-perl-cvs-commits
mailing list