r55125 - in /branches/upstream/libdbd-csv-perl/current: ChangeLog MANIFEST MANIFEST.SKIP META.yml Makefile.PL lib/Bundle/DBD/CSV.pm lib/DBD/CSV.pm t/00_minimumversion.t t/71_csv-ext.t t/lib.pl
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Tue Mar 30 16:18:29 UTC 2010
Author: gregoa
Date: Tue Mar 30 16:18:23 2010
New Revision: 55125
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55125
Log:
[svn-upgrade] Integrating new upstream version, libdbd-csv-perl (0.2800)
Removed:
branches/upstream/libdbd-csv-perl/current/t/00_minimumversion.t
Modified:
branches/upstream/libdbd-csv-perl/current/ChangeLog
branches/upstream/libdbd-csv-perl/current/MANIFEST
branches/upstream/libdbd-csv-perl/current/MANIFEST.SKIP
branches/upstream/libdbd-csv-perl/current/META.yml
branches/upstream/libdbd-csv-perl/current/Makefile.PL
branches/upstream/libdbd-csv-perl/current/lib/Bundle/DBD/CSV.pm
branches/upstream/libdbd-csv-perl/current/lib/DBD/CSV.pm
branches/upstream/libdbd-csv-perl/current/t/71_csv-ext.t
branches/upstream/libdbd-csv-perl/current/t/lib.pl
Modified: branches/upstream/libdbd-csv-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-csv-perl/current/ChangeLog?rev=55125&op=diff
==============================================================================
--- branches/upstream/libdbd-csv-perl/current/ChangeLog (original)
+++ branches/upstream/libdbd-csv-perl/current/ChangeLog Tue Mar 30 16:18:23 2010
@@ -1,3 +1,11 @@
+2010-03-16 0.28 H.Merijn Brand
+
+ * Remove t/00_minimumversion.t from distribution
+ * Dropped YAML spec to 1.0
+ * Sync up with SQL::Statement 1.25
+ NOTE: Internals of both modules changed. They will change again for
+ SQL::Statement 2.0
+
2010-02-17 0.27 H.Merijn Brand
* Upped copyright to 2010
Modified: branches/upstream/libdbd-csv-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-csv-perl/current/MANIFEST?rev=55125&op=diff
==============================================================================
--- branches/upstream/libdbd-csv-perl/current/MANIFEST (original)
+++ branches/upstream/libdbd-csv-perl/current/MANIFEST Tue Mar 30 16:18:23 2010
@@ -6,7 +6,6 @@
lib/Bundle/DBD/CSV.pm
lib/DBD/CSV.pm
t/00_meta.t
-t/00_minimumversion.t
t/00_pod_cov.t
t/00_pod.t
t/10_base.t
Modified: branches/upstream/libdbd-csv-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-csv-perl/current/MANIFEST.SKIP?rev=55125&op=diff
==============================================================================
--- branches/upstream/libdbd-csv-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libdbd-csv-perl/current/MANIFEST.SKIP Tue Mar 30 16:18:23 2010
@@ -15,3 +15,4 @@
^xx
META.yml
valgrind.log
+xt/00_minimumversion.t
Modified: branches/upstream/libdbd-csv-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-csv-perl/current/META.yml?rev=55125&op=diff
==============================================================================
--- branches/upstream/libdbd-csv-perl/current/META.yml (original)
+++ branches/upstream/libdbd-csv-perl/current/META.yml Tue Mar 30 16:18:23 2010
@@ -1,6 +1,6 @@
---- #YAML:1.1
+--- #YAML:1.0
name: DBD::CSV
-version: 0.27
+version: 0.28
abstract: DBI driver for CSV files
license: perl
author:
@@ -12,12 +12,12 @@
provides:
DBD::CSV:
file: lib/DBD/CSV.pm
- version: 0.27
+ version: 0.28
requires:
perl: 5.005003
DBI: 1.00
DBD::File: 0.37
- SQL::Statement: 1.23
+ SQL::Statement: 1.25
Text::CSV_XS: 0.64
configure_requires:
ExtUtils::MakeMaker: 0
Modified: branches/upstream/libdbd-csv-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-csv-perl/current/Makefile.PL?rev=55125&op=diff
==============================================================================
--- branches/upstream/libdbd-csv-perl/current/Makefile.PL (original)
+++ branches/upstream/libdbd-csv-perl/current/Makefile.PL Tue Mar 30 16:18:23 2010
@@ -34,7 +34,7 @@
PREREQ_PM => {
"DBI" => 1.00,
"Text::CSV_XS" => 0.64,
- "SQL::Statement" => 1.22,
+ "SQL::Statement" => 1.25,
"DBD::File" => 0.37,
"Test::More" => 0,
},
@@ -56,7 +56,7 @@
sub postamble
{
- my $min_vsn = ($] >= 5.010 && -d "xt" && -d "tmp" && ($ENV{AUTOMATED_TESTING} || 0) != 1)
+ my $min_vsn = ($] >= 5.010 && -d "xt" && ($ENV{AUTOMATED_TESTING} || 0) != 1)
? join "\n" =>
'test ::',
' - at env TEST_FILES="xt/*.t" make -e test_dynamic',
Modified: branches/upstream/libdbd-csv-perl/current/lib/Bundle/DBD/CSV.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-csv-perl/current/lib/Bundle/DBD/CSV.pm?rev=55125&op=diff
==============================================================================
--- branches/upstream/libdbd-csv-perl/current/lib/Bundle/DBD/CSV.pm (original)
+++ branches/upstream/libdbd-csv-perl/current/lib/Bundle/DBD/CSV.pm Tue Mar 30 16:18:23 2010
@@ -2,7 +2,7 @@
package Bundle::DBD::CSV;
-$VERSION = "1.02";
+$VERSION = "1.03";
1;
@@ -18,15 +18,15 @@
=head1 CONTENTS
-DBI 1.609
+DBI 1.611
-Text::CSV_XS 0.65
+Text::CSV_XS 0.71
-SQL::Statement 1.20
+SQL::Statement 1.25
-DBD::File 0.37
+DBD::File 0.38
-DBD::CSV 0.25
+DBD::CSV 0.28
=head1 DESCRIPTION
Modified: branches/upstream/libdbd-csv-perl/current/lib/DBD/CSV.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-csv-perl/current/lib/DBD/CSV.pm?rev=55125&op=diff
==============================================================================
--- branches/upstream/libdbd-csv-perl/current/lib/DBD/CSV.pm (original)
+++ branches/upstream/libdbd-csv-perl/current/lib/DBD/CSV.pm Tue Mar 30 16:18:23 2010
@@ -34,7 +34,7 @@
@ISA = qw( DBD::File );
-$VERSION = "0.27";
+$VERSION = "0.28";
$err = 0; # holds error code for DBI::err
$errstr = ""; # holds error string for DBI::errstr
@@ -125,22 +125,23 @@
# Being a bit dirty here, as SQL::Statement::Structure does not offer
# me an interface to the data I want
- my $struct = $sth->{f_stmt}{struct} || {};
- my @cols = @{ $struct->{column_names} || [] };
+ my $struct = $sth->{f_stmt}{struct} || {};
+ my @coldefs = @{ $struct->{column_defs} || [] };
+ my @colnames = map { $_->{name} || $_->{value} } @coldefs;
$attr eq "TYPE" and
- return [ map { $struct->{column_defs}{$_}{data_type} || "CHAR" }
- @cols ];
+ return [ map { $struct->{table_defs}->{columns}{$_}{data_type} || "CHAR" }
+ @colnames ];
$attr eq "PRECISION" and
- return [ map { $struct->{column_defs}{$_}{data_length} || 0 }
- @cols ];
+ return [ map { $struct->{table_defs}->{columns}{$_}{data_length} || 0 }
+ @colnames ];
$attr eq "NULLABLE" and
return [ map { ( grep m/^NOT NULL$/ =>
- @{ $struct->{column_defs}{$_}{constraints} || [] } )
+ @{ $struct->{table_defs}->{columns}{$_}{constraints} || [] } )
? 0 : 1 }
- @cols ];
+ @colnames ];
return $sth->SUPER::FETCH ($attr);
} # FETCH
Modified: branches/upstream/libdbd-csv-perl/current/t/71_csv-ext.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-csv-perl/current/t/71_csv-ext.t?rev=55125&op=diff
==============================================================================
--- branches/upstream/libdbd-csv-perl/current/t/71_csv-ext.t (original)
+++ branches/upstream/libdbd-csv-perl/current/t/71_csv-ext.t Tue Mar 30 16:18:23 2010
@@ -34,8 +34,9 @@
ok (!-f DbFile ($tbl), "does not exist");
foreach my $ext (@ext) {
- like (my $def = TableDefinition ($tbl.$ext, @tbl_def),
- qr{^create table $tbl}i, "table definition");
+ my $qt = '"'.$tbl.$ext.'"';
+ like (my $def = TableDefinition ($qt, @tbl_def),
+ qr{^create table $qt}i, "table definition");
ok ($dbh->do ($def), "create table $ext");
ok (-f DbFile ($tbl.$ext), "does exists");
}
Modified: branches/upstream/libdbd-csv-perl/current/t/lib.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libdbd-csv-perl/current/t/lib.pl?rev=55125&op=diff
==============================================================================
--- branches/upstream/libdbd-csv-perl/current/t/lib.pl (original)
+++ branches/upstream/libdbd-csv-perl/current/t/lib.pl Tue Mar 30 16:18:23 2010
@@ -70,7 +70,8 @@
push @colDefs, $colDef;
}
my $keyDef = @keys ? ", PRIMARY KEY (" . join (", ", @keys) . ")" : "";
- return sprintf "CREATE TABLE %s (%s%s)", $tablename,
+ my $tq = $tablename =~ m/^\w+\./ ? qq{"$tablename"} : $tablename;
+ return sprintf "CREATE TABLE %s (%s%s)", $tq,
join (", ", @colDefs), $keyDef;
} # TableDefinition
More information about the Pkg-perl-cvs-commits
mailing list