r57612 - in /branches/upstream/libsql-statement-perl/current: ./ 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:35:37 UTC 2010


Author: jawnsy-guest
Date: Thu May  6 22:35:29 2010
New Revision: 57612

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57612
Log:
[svn-upgrade] Integrating new upstream version, libsql-statement-perl (1.27)

Modified:
    branches/upstream/libsql-statement-perl/current/Changes
    branches/upstream/libsql-statement-perl/current/MANIFEST.SKIP
    branches/upstream/libsql-statement-perl/current/META.yml
    branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/ANSI.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/AnyData.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/CSV.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/Role.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Eval.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Parser.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Embed.pod
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Function.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Functions.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/GetInfo.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Operation.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Placeholder.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/RAM.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Structure.pod
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Term.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/TermFactory.pm
    branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Util.pm

Modified: branches/upstream/libsql-statement-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/Changes?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/Changes (original)
+++ branches/upstream/libsql-statement-perl/current/Changes Thu May  6 22:35:29 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: branches/upstream/libsql-statement-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/MANIFEST.SKIP?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libsql-statement-perl/current/MANIFEST.SKIP Thu May  6 22:35:29 2010
@@ -12,3 +12,4 @@
 bugsql
 .*\.csv
 \.tmp$
+SQL-Statement-.*

Modified: branches/upstream/libsql-statement-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/META.yml?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/META.yml (original)
+++ branches/upstream/libsql-statement-perl/current/META.yml Thu May  6 22:35:29 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: branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/ANSI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/ANSI.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/ANSI.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/ANSI.pm Thu May  6 22:35:29 2010
@@ -1,7 +1,7 @@
 package SQL::Dialects::ANSI;
 
 use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 use SQL::Dialects::Role;
 

Modified: branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/AnyData.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/AnyData.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/AnyData.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/AnyData.pm Thu May  6 22:35:29 2010
@@ -1,7 +1,7 @@
 package SQL::Dialects::AnyData;
 
 use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 use SQL::Dialects::Role;
 

Modified: branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/CSV.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/CSV.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/CSV.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/CSV.pm Thu May  6 22:35:29 2010
@@ -1,7 +1,7 @@
 package SQL::Dialects::CSV;
 
 use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 use SQL::Dialects::Role;
 

Modified: branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/Role.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/Role.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/Role.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Dialects/Role.pm Thu May  6 22:35:29 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: branches/upstream/libsql-statement-perl/current/lib/SQL/Eval.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Eval.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Eval.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Eval.pm Thu May  6 22:35:29 2010
@@ -6,7 +6,7 @@
 package SQL::Eval;
 
 use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 require SQL::Statement;
 

Modified: branches/upstream/libsql-statement-perl/current/lib/SQL/Parser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Parser.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Parser.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Parser.pm Thu May  6 22:35:29 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: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement.pm Thu May  6 22:35:29 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: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Embed.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Embed.pod?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Embed.pod (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Embed.pod Thu May  6 22:35:29 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: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Function.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Function.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Function.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Function.pm Thu May  6 22:35:29 2010
@@ -3,7 +3,7 @@
 require SQL::Statement::Term;
 @ISA = qw(SQL::Statement::Term);
 
-our $VERSION = '1.26';
+our $VERSION = '1.27';
 
 =pod
 

Modified: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Functions.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Functions.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Functions.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Functions.pm Thu May  6 22:35:29 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: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/GetInfo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/GetInfo.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/GetInfo.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/GetInfo.pm Thu May  6 22:35:29 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: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Operation.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Operation.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Operation.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Operation.pm Thu May  6 22:35:29 2010
@@ -5,7 +5,7 @@
 
 require SQL::Statement::Term;
 
-our $VERSION = '1.26';
+our $VERSION = '1.27';
 
 @ISA = qw(SQL::Statement::Term);
 

Modified: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Placeholder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Placeholder.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Placeholder.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Placeholder.pm Thu May  6 22:35:29 2010
@@ -5,7 +5,7 @@
 
 require SQL::Statement::Term;
 
-our $VERSION = '1.26';
+our $VERSION = '1.27';
 
 @ISA = qw(SQL::Statement::Term);
 

Modified: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/RAM.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/RAM.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/RAM.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/RAM.pm Thu May  6 22:35:29 2010
@@ -3,7 +3,7 @@
 ############################
 
 use vars qw($VERSION);
-$VERSION = '1.26';
+$VERSION = '1.27';
 
 sub new
 {

Modified: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Structure.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Structure.pod?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Structure.pod (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Structure.pod Thu May  6 22:35:29 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: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Term.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Term.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Term.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Term.pm Thu May  6 22:35:29 2010
@@ -1,6 +1,6 @@
 package SQL::Statement::Term;
 
-our $VERSION = '1.26';
+our $VERSION = '1.27';
 
 use Scalar::Util qw(weaken);
 

Modified: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/TermFactory.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/TermFactory.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/TermFactory.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/TermFactory.pm Thu May  6 22:35:29 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: branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Util.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Util.pm?rev=57612&op=diff
==============================================================================
--- branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Util.pm (original)
+++ branches/upstream/libsql-statement-perl/current/lib/SQL/Statement/Util.pm Thu May  6 22:35:29 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