r57614 - in /trunk/libsql-statement-perl: ./ debian/ debian/patches/ lib/SQL/ lib/SQL/Dialects/ lib/SQL/Statement/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Thu May 6 22:38:48 UTC 2010
Author: jawnsy-guest
Date: Thu May 6 22:38:40 2010
New Revision: 57614
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57614
Log:
* New upstream release
* Remove POD spelling patch, applied upstream
Removed:
trunk/libsql-statement-perl/debian/patches/
Modified:
trunk/libsql-statement-perl/Changes
trunk/libsql-statement-perl/MANIFEST.SKIP
trunk/libsql-statement-perl/META.yml
trunk/libsql-statement-perl/debian/changelog
trunk/libsql-statement-perl/debian/copyright
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/Embed.pod
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/Structure.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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/Changes (original)
+++ trunk/libsql-statement-perl/Changes Thu May 6 22:38:40 2010
@@ -1,4 +1,16 @@
Changes log for Perl extension SQL::Statement
+
+Version 1.27, release May 06th, 2010
+----------------------------------------------
+
+[Bug fixes]
+* use originally given table name for open_table() on SELECT, too
+ (all other command still use the originally given name)
+* warn/die -> carp/croak
+* fix delete_one_row & update_one_row ability using
+
+[Documentation]
+* Apply spelling fix patch from Ansgar Burchardt (RT#56475)
Version 1.26, release April 09th, 2010
----------------------------------------------
Modified: trunk/libsql-statement-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/MANIFEST.SKIP?rev=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/MANIFEST.SKIP (original)
+++ trunk/libsql-statement-perl/MANIFEST.SKIP Thu May 6 22:38:40 2010
@@ -12,3 +12,4 @@
bugsql
.*\.csv
\.tmp$
+SQL-Statement-.*
Modified: trunk/libsql-statement-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/META.yml?rev=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/META.yml (original)
+++ trunk/libsql-statement-perl/META.yml Thu May 6 22:38:40 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: SQL-Statement
-version: 1.26
+version: 1.27
abstract: SQL parsing and processing engine
author:
- Jeff Zucker <jeff at vpservices.com>, Jens Rehsack <rehsack at cpan.org>
Modified: trunk/libsql-statement-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/debian/changelog?rev=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/debian/changelog (original)
+++ trunk/libsql-statement-perl/debian/changelog Thu May 6 22:38:40 2010
@@ -1,3 +1,10 @@
+libsql-statement-perl (1.27-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * Remove POD spelling patch, applied upstream
+
+ -- Jonathan Yu <jawnsy at cpan.org> Thu, 06 May 2010 19:15:38 -0400
+
libsql-statement-perl (1.26-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libsql-statement-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/debian/copyright?rev=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/debian/copyright (original)
+++ trunk/libsql-statement-perl/debian/copyright Thu May 6 22:38:40 2010
@@ -1,4 +1,4 @@
-Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=59
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
Maintainer: Jeff Zucker <jzucker at cpan.org>
Source: http://search.cpan.org/dist/SQL-Statement/
Name: SQL-Statement
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Dialects/ANSI.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Dialects/ANSI.pm Thu May 6 22:38:40 2010
@@ -1,7 +1,7 @@
package SQL::Dialects::ANSI;
use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Dialects/AnyData.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Dialects/AnyData.pm Thu May 6 22:38:40 2010
@@ -1,7 +1,7 @@
package SQL::Dialects::AnyData;
use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Dialects/CSV.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Dialects/CSV.pm Thu May 6 22:38:40 2010
@@ -1,7 +1,7 @@
package SQL::Dialects::CSV;
use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Dialects/Role.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Dialects/Role.pm Thu May 6 22:38:40 2010
@@ -5,7 +5,7 @@
use base qw(Exporter);
our @EXPORT = qw(get_config_as_hash);
-our $VERSION = '1.26';
+our $VERSION = '1.27';
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Eval.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Eval.pm Thu May 6 22:38:40 2010
@@ -6,7 +6,7 @@
package SQL::Eval;
use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Parser.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Parser.pm Thu May 6 22:38:40 2010
@@ -15,11 +15,12 @@
use warnings;
use vars qw($VERSION);
use constant FUNCTION_NAMES => join( '|', qw(TRIM SUBSTRING) );
+use Carp qw(carp croak);
use Data::Dumper;
use Params::Util qw(_ARRAY0 _ARRAY _HASH);
use Scalar::Util qw(looks_like_number);
-$VERSION = '1.26';
+$VERSION = '1.27';
BEGIN
{
@@ -108,7 +109,7 @@
my @tables = @{ $self->{struct}->{table_names} } if ( defined( _ARRAY0( $self->{struct}->{table_names} ) ) );
push( @{ $self->{struct}->{org_table_names} }, @tables );
# REMOVE schema.table infor if present
- @tables = map { s/^.*\.([^\.]+)$/$1/; $_ } @tables;
+ @tables = map { s/^.*\.([^\.]+)$/$1/; ( -1 == index( $_, '"' ) ) ? lc $_ : $_ } @tables;
if ( exists( $self->{struct}->{join} ) && !defined( _HASH( $self->{struct}->{join} ) ) )
{
@@ -313,7 +314,7 @@
package $dest;
use $role;
1;
- } or die "Can't inject $role into $dest: $@";
+ } or croak "Can't inject $role into $dest: $@";
}
sub create_op_regexen
@@ -508,7 +509,7 @@
&& !defined( _ARRAY( $self->{struct}->{group_by} ) ) )
{
delete $self->{struct}->{set_quantifier};
- warn "Specifying DISTINCT when using aggregate functions isn't reasonable - ignored."
+ carp "Specifying DISTINCT when using aggregate functions isn't reasonable - ignored."
if ( $self->{PrintError} );
}
@@ -1326,7 +1327,8 @@
# 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]\p{Word}*|\?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+)\.\*$/ )
{
@@ -1456,8 +1458,6 @@
{
my ( $self, $order_clause ) = @_;
return 1 if !$order_clause;
- my %is_table_name = %{ $self->{tmp}->{is_table_name} };
- my %is_table_alias = %{ $self->{tmp}->{is_table_alias} };
my @ocols;
my @order_columns = split ',', $order_clause;
for my $col (@order_columns)
@@ -1481,19 +1481,7 @@
if ( $newcol =~ /^(.+)\..+$/s )
{
my $table = $1;
- if ( $table =~ /^'/ )
- {
- if ( !$is_table_name{$table}
- and !$is_table_alias{$table} )
- {
- return $self->do_err( "Table '$table' in ORDER BY clause " . "not in FROM clause." );
- }
- }
- elsif ( !$is_table_name{"\L$table"}
- and !$is_table_alias{"\L$table"} )
- {
- return $self->do_err( "Table '$table' in ORDER BY clause " . "not in FROM clause." );
- }
+ $self->_verify_tablename( $table, "ORDER BY" );
}
push @ocols, { $newcol => $newarg };
}
@@ -2373,19 +2361,7 @@
if ( $str =~ m/^(.*)\./ )
{
my $table_name = $1;
- if ( $table_name =~ m/^"/ )
- {
- if ( !$self->{tmp}->{is_table_name}->{$table_name}
- and !$self->{tmp}->{is_table_alias}->{$table_name} )
- {
- return $self->do_err("Table '$table_name' in WHERE clause not in FROM clause!");
- }
- }
- elsif ( !$self->{tmp}->{is_table_name}->{"\L$table_name"}
- and !$self->{tmp}->{is_table_alias}->{"\L$table_name"} )
- {
- return $self->do_err("Table '$table_name' in WHERE clause not in FROM clause!");
- }
+ $self->_verify_tablename( $table_name, "WHERE" );
}
# push @{ $self->{struct}->{where_cols}},$str
@@ -2439,20 +2415,7 @@
}
return undef unless ( $table_name = $self->TABLE_NAME($table_name) );
$table_name = $self->replace_quoted_ids($table_name);
- my $ref;
- if ( $table_name =~ m/^"/ )
- {
- if ( !$self->{tmp}->{is_table_name}->{$table_name}
- and !$self->{tmp}->{is_table_alias}->{$table_name} )
- {
- return $self->do_err("Table '$table_name' referenced but not found in FROM list!");
- }
- }
- elsif ( !$self->{tmp}->{is_table_name}->{"\L$table_name"}
- and !$self->{tmp}->{is_table_alias}->{"\L$table_name"} )
- {
- return $self->do_err("Table '$table_name' referenced but not found in FROM list!");
- }
+ $self->_verify_tablename($table_name);
}
else
{
@@ -2599,11 +2562,11 @@
}
$table = $self->replace_quoted_ids($table);
- push( @tables, $table =~ m/^"/ ? $table : lc $table );
+ push( @tables, $table =~ m/^"/ ? $table : $table );
if ($alias)
{
- return undef unless ( $self->TABLE_NAME($alias) );
+ return unless ( $self->TABLE_NAME($alias) );
$alias = $self->replace_quoted_ids($alias);
if ( $alias =~ m/^"/ )
{
@@ -2659,6 +2622,41 @@
# return undef if !($self->IDENTIFIER($table_name));
# return 1;
+}
+
+sub _verify_tablename
+{
+ my ( $self, $table_name, $location ) = @_;
+ if ( defined($location) )
+ {
+ $location = " in $location";
+ }
+ else
+ {
+ $location = "";
+ }
+
+ if ( $table_name =~ m/^"/ )
+ {
+ if ( !$self->{tmp}->{is_table_name}->{$table_name}
+ and !$self->{tmp}->{is_table_alias}->{$table_name} )
+ {
+ return $self->do_err("Table '$table_name' referenced$location but not found in FROM list!");
+ }
+ }
+ else
+ {
+ my @tblnamelist = ( keys( %{ $self->{tmp}->{is_table_name} } ), keys( %{ $self->{tmp}->{is_table_alias} } ) );
+ my $tblnames = join( "|", @tblnamelist );
+ unless ( $table_name =~ m/^(?:$tblnames)$/i )
+ {
+ return $self->do_err( "Table '$table_name' referenced$location but not found in FROM list ("
+ . join( ",", @tblnamelist )
+ . ")!" );
+ }
+ }
+
+ return 1;
}
###################################################################
@@ -2890,8 +2888,8 @@
# $err = $errtype ? "DIALECT ERROR: $err" : "SQL ERROR: $err";
$self->{struct}->{errstr} = $err;
- warn $err if ( $self->{PrintError} );
- die $err if ( $self->{RaiseError} );
+ carp $err if ( $self->{PrintError} );
+ croak $err if ( $self->{RaiseError} );
return;
}
@@ -3117,7 +3115,7 @@
=head1 Subclassing SQL::Parser
In the event you need to either extend or modify SQL::Parser's
-default behavior, the following methods may be overriden
+default behavior, the following methods may be overridden
to modify the behavior:
=over
@@ -3146,7 +3144,7 @@
=head1 The parse structure
This section outlines the B<now-deprecated> hash interface to the parsed
-structure. It is included B<for backwards compatability only>. You should
+structure. It is included B<for backwards compatibility only>. You should
use the SQL::Statement object interface to the structure instead. See L<SQL::Statement>.
B<Parse Structures>
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement.pm Thu May 6 22:38:40 2010
@@ -21,6 +21,7 @@
require SQL::Statement::TermFactory;
require SQL::Statement::Util;
+use Carp qw(carp croak);
use Clone qw(clone);
use Scalar::Util qw(blessed looks_like_number);
use List::Util qw(first);
@@ -28,7 +29,7 @@
#use locale;
-$VERSION = '1.26';
+$VERSION = '1.27';
sub new
{
@@ -304,7 +305,7 @@
{
my ( $self, $data, $params ) = @_;
my ( $eval, $all_cols ) = $self->open_tables( $data, 0, 1 );
- return undef unless $eval;
+ return unless $eval;
$eval->params($params);
$self->verify_columns( $data, $eval, $all_cols );
my ($table) = $eval->table( $self->tables(0)->name() );
@@ -318,13 +319,15 @@
if ( $self->eval_where( $eval, '', $array ) )
{
++$affected;
- $array = $self->{fetched_value} if $self->{fetched_from_key};
+ $array = $self->{fetched_value} if ( $self->{fetched_from_key} );
$table->delete_one_row( $data, $array );
- return ( $affected, 0 ) if $self->{fetched_from_key};
- }
- }
+ return ( $affected, 0 ) if ( $self->{fetched_from_key} );
+ }
+ }
+
return ( $affected, 0 );
}
+
while ( $array = $table->fetch_row($data) )
{
if ( $self->eval_where( $eval, '', $array ) )
@@ -350,7 +353,7 @@
my ( $self, $data, $params ) = @_;
my ( $eval, $all_cols ) = $self->open_tables( $data, 0, 1 );
- return undef unless $eval;
+ return unless $eval;
my $valnum = $self->{num_val_placeholders};
my @val_params = splice( @{$params}, 0, $valnum ) if ($valnum);
@@ -409,18 +412,27 @@
# Martin Fabiani <martin at fabiani.net>:
# the following block is the most important enhancement to SQL::Statement::UPDATE
- if ( !$self->{fetched_from_key} && $table->can('update_specific_row') )
- {
- $table->update_specific_row( $data, $array, $originalValues );
- next;
- }
- }
- if ( $self->{fetched_from_key} )
- {
- $table->update_one_row( $data, $array );
- return ( $affected, 0 );
- }
- push( @rows, $array );
+ if ( !$self->{fetched_from_key} )
+ {
+ if ( $table->can('update_specific_row') )
+ {
+ $table->update_specific_row( $data, $array, $originalValues );
+ next;
+ }
+ elsif ( $table->can('update_one_row') )
+ {
+ $table->update_one_row( $data, $array );
+ next;
+ }
+ }
+ else
+ {
+ $table->update_one_row( $data, $array );
+ return ( $affected, 0 );
+ }
+ }
+
+ push( @rows, $array ) unless ( $table->can('update_one_row') || $table->can('update_specific_row') );
}
unless ( $table->can('update_one_row') || $table->can('update_specific_row') )
@@ -804,15 +816,14 @@
my ( $eval, $all_cols, $tableName, $table );
if ( defined( $self->{join} ) )
{
- return $self->JOIN( $data, $params )
- if !defined $self->{join}->{table};
+ return $self->JOIN( $data, $params ) if ( !defined $self->{join}->{table} );
$tableName = $self->{dlm} . 'tmp';
$table = $self->{join}->{table};
}
else
{
( $eval, $all_cols ) = $self->open_tables( $data, 0, 0 );
- return undef unless $eval;
+ return unless $eval;
$eval->params($params);
$self->verify_columns( $data, $eval, $all_cols );
$tableName = $self->tables(0)->name();
@@ -964,7 +975,10 @@
if ( $self->distinct() )
{
my %seen;
- @{$rows} = map { $seen{ join( "\0", ( map { defined($_) ? $_ : '' } @{$_} ) ) }++ ? () : $_ } @{$rows};
+ @{$rows} = map
+ {
+ $seen{ join( "\0", ( map { defined($_) ? $_ : '' } @{$_} ) ) }++ ? () : $_
+ } @{$rows};
}
if ( $self->{has_set_functions} )
@@ -1254,9 +1268,15 @@
else
{
# FIXME add '\0' constants between items?
- my $colSep = $self->{termFactory}->buildCondition( { type => 'string', value => "\0", } );
+ my $colSep =
+ $self->{termFactory}->buildCondition(
+ {
+ type => 'string',
+ value => "\0",
+ }
+ );
@cols = map { $_->[2], $colSep } @cols;
- pop(@cols);
+ pop(@cols);
$col = $self->{termFactory}->buildCondition(
{
type => 'function',
@@ -1760,8 +1780,8 @@
$err = "\nExecution ERROR: $err$prog.\n\n";
$self->{errstr} = $err;
- warn $err if $self->{PrintError};
- die "$err" if $self->{RaiseError};
+ carp $err if $self->{PrintError};
+ croak "$err" if $self->{RaiseError};
return;
}
@@ -1984,18 +2004,18 @@
$self->do_calc();
- 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 );
- }
+ 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 );
+ my $final_row = $self->build_row( {} );
+ push( @final_table, $final_row );
}
return \@final_table;
@@ -2139,7 +2159,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
-instead of a persistant storage mechanism, it has two things: 1) an in-memory
+instead of a persistent storage mechanism, it has two things: 1) an in-memory
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.
@@ -2152,7 +2172,7 @@
=head1 INSTALLATION
There are no prerequisites for using this as a standalone parser. If you want
-to access persistant stored data, you either need to write a subclass or use
+to access persistent stored data, you either need to write a subclass or use
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:
@@ -2313,7 +2333,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
-the license you've choosen).
+the license you've chosen).
=head2 Business support and maintenance
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/Embed.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/Embed.pod?rev=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Embed.pod (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Embed.pod Thu May 6 22:38:40 2010
@@ -22,7 +22,7 @@
Consider what needs to happen to perform a SELECT query on our 'Foo' data:
- * recieve a SQL string
+ * receive a SQL string
* parse the SQL string into a request structure
* open the table(s) specified in the request
* define column names and postions for the table
@@ -230,4 +230,4 @@
This document may be freely modified and distributed under the same terms as Perl itself.
-=cut
+=cut
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Function.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Function.pm Thu May 6 22:38:40 2010
@@ -3,7 +3,7 @@
require SQL::Statement::Term;
@ISA = qw(SQL::Statement::Term);
-our $VERSION = '1.26';
+our $VERSION = '1.27';
=pod
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Functions.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Functions.pm Thu May 6 22:38:40 2010
@@ -94,7 +94,7 @@
sprintf "%02s::%02s::%02s",(localtime)[2,1,0]
}
-More complex functions can make use of a number of arguments always passed to functions automatically. Functions always recieve these values in @_:
+More complex functions can make use of a number of arguments always passed to functions automatically. Functions always receive these values in @_:
sub FOO {
my($self,$sth,$rowhash, at params);
@@ -198,7 +198,7 @@
=cut
use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
=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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/GetInfo.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/GetInfo.pm Thu May 6 22:38:40 2010
@@ -1,7 +1,7 @@
package SQL::Statement::GetInfo;
use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Operation.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Operation.pm Thu May 6 22:38:40 2010
@@ -5,7 +5,7 @@
require SQL::Statement::Term;
-our $VERSION = '1.26';
+our $VERSION = '1.27';
@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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Placeholder.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Placeholder.pm Thu May 6 22:38:40 2010
@@ -5,7 +5,7 @@
require SQL::Statement::Term;
-our $VERSION = '1.26';
+our $VERSION = '1.27';
@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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/RAM.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/RAM.pm Thu May 6 22:38:40 2010
@@ -3,7 +3,7 @@
############################
use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
sub new
{
Modified: trunk/libsql-statement-perl/lib/SQL/Statement/Structure.pod
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsql-statement-perl/lib/SQL/Statement/Structure.pod?rev=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Structure.pod (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Structure.pod Thu May 6 22:38:40 2010
@@ -149,7 +149,7 @@
This would return two instances of C<SQL::Statement::Param>. Param objects
implement a single method, C<$param->num()>, which retrieves the parameter
-number. (0 and 1, in the above example). As of now, not very usefull ... :-)
+number. (0 and 1, in the above example). As of now, not very useful ... :-)
=head2 B<row_values>
@@ -304,7 +304,7 @@
=head2 execute
When called from a DBD or other subclass of SQL::Statement, the execute()
-method will be executed against whatever datasource (persistant storage) is
+method will be executed against whatever datasource (persistent storage) is
supplied by the DBD or the subclass (e.g. CSV files for L<DBD::CSV>, or
BerkeleyDB for L<DBD::DBM>). If you are using L<SQL::Statement> directly
rather than as a subclass, you can call the execute() method and the
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Term.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Term.pm Thu May 6 22:38:40 2010
@@ -1,6 +1,6 @@
package SQL::Statement::Term;
-our $VERSION = '1.26';
+our $VERSION = '1.27';
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/TermFactory.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/TermFactory.pm Thu May 6 22:38:40 2010
@@ -9,7 +9,7 @@
use Params::Util qw(_HASH _ARRAY0 _INSTANCE);
use Scalar::Util qw(blessed weaken);
-our $VERSION = '1.26';
+our $VERSION = '1.27';
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=57614&op=diff
==============================================================================
--- trunk/libsql-statement-perl/lib/SQL/Statement/Util.pm (original)
+++ trunk/libsql-statement-perl/lib/SQL/Statement/Util.pm Thu May 6 22:38:40 2010
@@ -1,7 +1,7 @@
package SQL::Statement::Util;
use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
sub type
{
More information about the Pkg-perl-cvs-commits
mailing list