Hello community, here is the log from the commit of package perl-DBD-CSV for openSUSE:Factory checked in at 2015-04-18 10:40:50 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-DBD-CSV (Old) and /work/SRC/openSUSE:Factory/.perl-DBD-CSV.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-DBD-CSV" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-DBD-CSV/perl-DBD-CSV.changes 2014-09-22 09:23:36.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-DBD-CSV.new/perl-DBD-CSV.changes 2015-04-18 10:40:52.000000000 +0200 @@ -1,0 +2,21 @@ +Fri Apr 17 09:20:55 UTC 2015 - [email protected] + +- updated to 0.48 + see /usr/share/doc/packages/perl-DBD-CSV/ChangeLog + + 0.48 - 2015-02-11, H.Merijn Brand + * Update list of valid Text::CSV_XS attributes + + 0.47 - 2015-02-11, H.Merijn Brand + * Updated copyright to 2015 + * Make test-tablename unique for parallel testing + * Remove perl recommendation from META as it breaks cpan clients + + 0.46 - 2014-11-08, H.Merijn Brand + * Column type CHAR should return 1 + + 0.45 - 2014-10-23, H.Merijn Brand + * Test unauthorized folder access (RT#99508). Requires DBD::File-0.43 + * Fix DBI requirement phase (depend more on toolchain) (RT#99732) + +------------------------------------------------------------------- Old: ---- DBD-CSV-0.44.tgz New: ---- DBD-CSV-0.48.tgz cpanspec.yml ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-DBD-CSV.spec ++++++ --- /var/tmp/diff_new_pack.000jm2/_old 2015-04-18 10:40:53.000000000 +0200 +++ /var/tmp/diff_new_pack.000jm2/_new 2015-04-18 10:40:53.000000000 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-DBD-CSV # -# Copyright (c) 2014 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,14 +17,15 @@ Name: perl-DBD-CSV -Version: 0.44 +Version: 0.48 Release: 0 %define cpan_name DBD-CSV Summary: DBI driver for CSV files License: Artistic-1.0 or GPL-1.0+ Group: Development/Libraries/Perl Url: http://search.cpan.org/dist/DBD-CSV/ -Source: http://www.cpan.org/authors/id/H/HM/HMBRAND/%{cpan_name}-%{version}.tgz +Source0: http://www.cpan.org/authors/id/H/HM/HMBRAND/%{cpan_name}-%{version}.tgz +Source1: cpanspec.yml BuildArch: noarch BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl @@ -39,9 +40,10 @@ Requires: perl(SQL::Statement) >= 1.405 Requires: perl(Test::More) >= 0.9 Requires: perl(Text::CSV_XS) >= 1.01 -Recommends: perl(DBI) >= 1.631 -Recommends: perl(Test::More) >= 1.001003 -Recommends: perl(Text::CSV_XS) >= 1.10 +Recommends: perl(DBD::File) >= 0.44 +Recommends: perl(DBI) >= 1.633 +Recommends: perl(Test::More) >= 1.001014 +Recommends: perl(Text::CSV_XS) >= 1.15 %{perl_requires} %description ++++++ DBD-CSV-0.44.tgz -> DBD-CSV-0.48.tgz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/ChangeLog new/DBD-CSV-0.48/ChangeLog --- old/DBD-CSV-0.44/ChangeLog 2014-08-04 21:27:01.000000000 +0200 +++ new/DBD-CSV-0.48/ChangeLog 2015-02-11 21:48:05.000000000 +0100 @@ -1,3 +1,18 @@ +0.48 - 2015-02-11, H.Merijn Brand + * Update list of valid Text::CSV_XS attributes + +0.47 - 2015-02-11, H.Merijn Brand + * Updated copyright to 2015 + * Make test-tablename unique for parallel testing + * Remove perl recommendation from META as it breaks cpan clients + +0.46 - 2014-11-08, H.Merijn Brand + * Column type CHAR should return 1 + +0.45 - 2014-10-23, H.Merijn Brand + * Test unauthorized folder access (RT#99508). Requires DBD::File-0.43 + * Fix DBI requirement phase (depend more on toolchain) (RT#99732) + 0.44 - 2014-08-04, H.Merijn Brand * Table names case sensitiveness not tested case-problematic FS's * Fix defaults in doc (annocpan) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/META.json new/DBD-CSV-0.48/META.json --- old/DBD-CSV-0.44/META.json 2014-08-04 21:44:20.000000000 +0200 +++ new/DBD-CSV-0.48/META.json 2015-02-11 21:50:35.000000000 +0100 @@ -1,16 +1,5 @@ { - "version" : "0.44", - "generated_by" : "Author", - "resources" : { - "license" : [ - "http://dev.perl.org/licenses/"; - ], - "repository" : { - "type" : "git", - "web" : "https://github.com/perl5-dbi/DBD-CSV.git";, - "url" : "https://github.com/perl5-dbi/DBD-CSV.git"; - } - }, + "release_status" : "stable", "prereqs" : { "build" : { "requires" : { @@ -18,59 +7,71 @@ } }, "test" : { + "recommends" : { + "Test::More" : "1.001014" + }, "requires" : { "Test::Harness" : "0", "charnames" : "0", "Cwd" : "0", - "Encode" : "0", - "Test::More" : "0.90" - }, - "recommends" : { - "Test::More" : "1.001003" + "Test::More" : "0.90", + "Encode" : "0" + } + }, + "configure" : { + "requires" : { + "DBI" : "1.628", + "ExtUtils::MakeMaker" : "0" } }, "runtime" : { "recommends" : { - "Text::CSV_XS" : "1.10", - "perl" : "5.020000", - "DBI" : "1.631" + "DBD::File" : "0.44", + "Text::CSV_XS" : "1.15", + "DBI" : "1.633" }, "requires" : { - "SQL::Statement" : "1.405", - "DBI" : "1.628", "Text::CSV_XS" : "1.01", + "DBI" : "1.628", + "SQL::Statement" : "1.405", "DBD::File" : "0.42", "perl" : "5.008001" } - }, - "configure" : { - "requires" : { - "ExtUtils::MakeMaker" : "0" - } - } - }, - "provides" : { - "DBD::CSV" : { - "version" : "0.44", - "file" : "lib/DBD/CSV.pm" } }, "meta-spec" : { "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";, "version" : "2" }, - "license" : [ - "perl_5" - ], + "dynamic_config" : 1, + "abstract" : "DBI driver for CSV files", + "name" : "DBD-CSV", + "resources" : { + "license" : [ + "http://dev.perl.org/licenses/"; + ], + "repository" : { + "type" : "git", + "url" : "https://github.com/perl5-dbi/DBD-CSV.git";, + "web" : "https://github.com/perl5-dbi/DBD-CSV.git"; + } + }, "author" : [ "Jochen Wiedmann", "Jeff Zucker", "H.Merijn Brand <[email protected]>", "Jens Rehsack <[email protected]>" ], - "abstract" : "DBI driver for CSV files", - "name" : "DBD-CSV", + "generated_by" : "Author", "x_installdirs" : "site", - "dynamic_config" : 1, - "release_status" : "stable" + "provides" : { + "DBD::CSV" : { + "version" : "0.48", + "file" : "lib/DBD/CSV.pm" + } + }, + "version" : "0.48", + "license" : [ + "perl_5" + ] } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/META.yml new/DBD-CSV-0.48/META.yml --- old/DBD-CSV-0.44/META.yml 2014-08-04 21:44:20.000000000 +0200 +++ new/DBD-CSV-0.48/META.yml 2015-02-11 21:50:35.000000000 +0100 @@ -8,9 +8,10 @@ build_requires: Config: 0 configure_requires: + DBI: '1.628' ExtUtils::MakeMaker: 0 dynamic_config: 1 -generated_by: Author, CPAN::Meta::Converter version 2.142060 +generated_by: Author, CPAN::Meta::Converter version 2.143240 license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -19,12 +20,12 @@ provides: DBD::CSV: file: lib/DBD/CSV.pm - version: '0.44' + version: '0.48' recommends: - DBI: '1.631' - Test::More: '1.001003' - Text::CSV_XS: '1.10' - perl: '5.020000' + DBD::File: '0.44' + DBI: '1.633' + Test::More: '1.001014' + Text::CSV_XS: '1.15' requires: Cwd: 0 DBD::File: '0.42' @@ -39,5 +40,5 @@ resources: license: http://dev.perl.org/licenses/ repository: https://github.com/perl5-dbi/DBD-CSV.git -version: '0.44' +version: '0.48' x_installdirs: site diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/Makefile.PL new/DBD-CSV-0.48/Makefile.PL --- old/DBD-CSV-0.44/Makefile.PL 2014-06-30 12:39:45.000000000 +0200 +++ new/DBD-CSV-0.48/Makefile.PL 2014-12-31 15:49:48.000000000 +0100 @@ -1,6 +1,6 @@ # -*- perl -*- -# Copyright (c) 2009-2014 H.Merijn Brand +# Copyright (c) 2009-2015 H.Merijn Brand require 5.008001; @@ -16,8 +16,11 @@ DBD::CSV requires DBI and it cannot be loaded: $@ +Please be sure your toolchain picks up the dependency requirement and +installs DBI before tests start + MSG - exit 1; + sleep 10; } if ($DBI::VERSION < 1.628) { print <<"MSG"; @@ -26,8 +29,11 @@ DBD::CSV is relying on DBD::File, bundled in the DBI release and does require features not present in this version of DBI. +Please be sure your toolchain picks up the dependency requirement and +installs DBI-1.628 or newer before tests start + MSG - exit 0; + sleep 10; } eval { require DBD::CSV; }; if (!$@ && $DBD::CSV::VERSION < 0.1010) { @@ -48,8 +54,8 @@ use vars qw( $DBI_INC_DIR ); { my $tmp_dir = File::Spec->tmpdir (); - my $default = $ENV{AUTOMATED_TESTING} ? "n" : "y"; - if (prompt ("Enable the use of $tmp_dir for tests?", $default) =~ m/[Yy]/) { + if (!$ENV{AUTOMATED_TESTING} && + prompt ("Enable the use of $tmp_dir for tests?", "y") =~ m/[Yy]/) { unlink "tests.skip"; } else { @@ -91,10 +97,10 @@ eval "use DBI::Test::Conf ();"; if ($@) { - warn "******\n", - "******\tDBI::Test is not installed.\n", - "******\tIt will be required in one of the upcoming releases.\n", - "******\n"; +# warn "******\n", +# "******\tDBI::Test is not installed.\n", +# "******\tIt will be required in one of the upcoming releases.\n", +# "******\n"; } else { use lib "lib"; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/README new/DBD-CSV-0.48/README --- old/DBD-CSV-0.44/README 2014-01-01 11:42:19.000000000 +0100 +++ new/DBD-CSV-0.48/README 2014-12-31 15:49:41.000000000 +0100 @@ -9,7 +9,7 @@ values). Copying - Copyright (C) 2009-2014 by H.Merijn Brand + Copyright (C) 2009-2015 by H.Merijn Brand Copyright (C) 2004-2009 by Jeff Zucker Copyright (C) 1998-2004 by Jochen Wiedmann diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/lib/Bundle/DBD/CSV.pm new/DBD-CSV-0.48/lib/Bundle/DBD/CSV.pm --- old/DBD-CSV-0.44/lib/Bundle/DBD/CSV.pm 2014-08-04 21:28:26.000000000 +0200 +++ new/DBD-CSV-0.48/lib/Bundle/DBD/CSV.pm 2015-02-11 15:55:54.000000000 +0100 @@ -21,15 +21,15 @@ =head1 CONTENTS -DBI 1.631 +DBI 1.633 -Text::CSV_XS 1.10 +Text::CSV_XS 1.15 SQL::Statement 1.405 -DBD::File 0.42 +DBD::File 0.44 -DBD::CSV 0.44 +DBD::CSV 0.48 =head1 DESCRIPTION @@ -44,7 +44,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 2009-2014 by H.Merijn Brand +Copyright (C) 2009-2015 by H.Merijn Brand Copyright (C) 2004-2009 by Jeff Zucker Copyright (C) 1998-2004 by Jochen Wiedmann diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/lib/DBD/CSV/TypeInfo.pm new/DBD-CSV-0.48/lib/DBD/CSV/TypeInfo.pm --- old/DBD-CSV-0.44/lib/DBD/CSV/TypeInfo.pm 2013-07-29 17:41:42.000000000 +0200 +++ new/DBD-CSV-0.48/lib/DBD/CSV/TypeInfo.pm 2014-11-15 15:47:14.000000000 +0100 @@ -38,7 +38,7 @@ [ "VARCHAR", SQL_VARCHAR, undef, "'", "'", undef, 0, 1, 1, 0, undef, undef, undef, 1, 999999, undef, undef, undef, undef, ], - [ "CHAR", DBIstcf_DISCARD_STRING, undef, "'", "'", undef, 0, 1, 1, 0, + [ "CHAR", SQL_CHAR, undef, "'", "'", undef, 0, 1, 1, 0, undef, undef, undef, 1, 999999, undef, undef, undef, undef, ], [ "INTEGER", SQL_INTEGER, undef, "", "", undef, 0, 0, 1, 0, undef, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/lib/DBD/CSV.pm new/DBD-CSV-0.48/lib/DBD/CSV.pm --- old/DBD-CSV-0.44/lib/DBD/CSV.pm 2014-08-04 18:10:42.000000000 +0200 +++ new/DBD-CSV-0.48/lib/DBD/CSV.pm 2015-02-11 21:49:34.000000000 +0100 @@ -23,7 +23,7 @@ @ISA = qw( DBD::File ); -$VERSION = "0.44"; +$VERSION = "0.48"; $ATTRIBUTION = "DBD::CSV $DBD::CSV::VERSION by H.Merijn Brand"; $err = 0; # holds error code for DBI::err @@ -71,7 +71,7 @@ { my ($drh, $dbname, $user, $auth, $attr) = @_; my $dbh = $drh->DBD::File::dr::connect ($dbname, $user, $auth, $attr); - $dbh->{Active} = 1; + $dbh and $dbh->{Active} = 1; $dbh; } # connect @@ -97,11 +97,31 @@ { my $dbh = shift; + # Straight from Text::CSV_XS.pm my @xs_attr = qw( - allow_loose_escapes allow_loose_quotes allow_whitespace - always_quote auto_diag binary blank_is_undef empty_is_undef - eol escape_char keep_meta_info quote_char quote_null - quote_space sep_char types verbatim ); + eol + sep_char + quote_char + escape_char + binary + decode_utf8 + auto_diag + diag_verbose + blank_is_undef + empty_is_undef + allow_whitespace + allow_loose_quotes + allow_loose_escapes + allow_unquoted_escape + always_quote + quote_space + escape_null + quote_binary + keep_meta_info + verbatim + types + callbacks + ); @csv_xs_attr{@xs_attr} = (); $dbh->{csv_xs_valid_attrs} = [ @xs_attr ]; @@ -136,7 +156,7 @@ my $dtype = $meta->{csv_class}; $dvsn and $dtype .= " ($dvsn)"; return sprintf "%s using %s", $dbh->{csv_version}, $dtype; - } # get_csv_versions + } # get_csv_versions sub get_info { @@ -1196,7 +1216,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 2009-2014 by H.Merijn Brand +Copyright (C) 2009-2015 by H.Merijn Brand Copyright (C) 2004-2009 by Jeff Zucker Copyright (C) 1998-2004 by Jochen Wiedmann diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/t/42_bindparam.t new/DBD-CSV-0.48/t/42_bindparam.t --- old/DBD-CSV-0.44/t/42_bindparam.t 2013-07-29 17:00:48.000000000 +0200 +++ new/DBD-CSV-0.48/t/42_bindparam.t 2014-11-08 10:28:53.000000000 +0100 @@ -16,9 +16,6 @@ do "t/lib.pl"; -defined &SQL_VARCHAR or *SQL_VARCHAR = sub { 12 }; -defined &SQL_INTEGER or *SQL_INTEGER = sub { 4 }; - my @tbl_def = ( [ "id", "INTEGER", 4, 0 ], [ "name", "CHAR", 64, &COL_NULLABLE ], diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/t/44_listfields.t new/DBD-CSV-0.48/t/44_listfields.t --- old/DBD-CSV-0.44/t/44_listfields.t 2013-07-30 12:32:17.000000000 +0200 +++ new/DBD-CSV-0.48/t/44_listfields.t 2014-11-16 12:44:27.000000000 +0100 @@ -9,10 +9,6 @@ BEGIN { use_ok ("DBI") } do "t/lib.pl"; -defined &SQL_CHAR or *SQL_CHAR = sub { 1 }; -defined &SQL_VARCHAR or *SQL_VARCHAR = sub { 12 }; -defined &SQL_INTEGER or *SQL_INTEGER = sub { 4 }; - my $nano = $ENV{DBI_SQL_NANO}; my @tbl_def = ( [ "id", "INTEGER", 4, &COL_KEY ], @@ -36,7 +32,7 @@ is ($sth->{NAME_uc}[1], uc $tbl_def[1][0], "NAME_uc"); is_deeply ($sth->{NAME_lc_hash}, { map { ( lc $tbl_def[$_][0] => $_ ) } 0 .. $#tbl_def }, "NAME_lc_hash"); -if ($DBD::File::VERSION gt "0.42") { +if ($DBD::File::VERSION gt "0.43") { is ($sth->{TYPE}[0], $nano ? &SQL_VARCHAR : &SQL_INTEGER, "TYPE 1"); is ($sth->{TYPE}[1], $nano ? &SQL_VARCHAR : &SQL_CHAR, "TYPE 2"); is ($sth->{PRECISION}[0], 0, "PRECISION 1"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/t/55_dir_search.t new/DBD-CSV-0.48/t/55_dir_search.t --- old/DBD-CSV-0.44/t/55_dir_search.t 2013-08-11 10:59:42.000000000 +0200 +++ new/DBD-CSV-0.48/t/55_dir_search.t 2015-01-07 08:22:35.000000000 +0100 @@ -36,15 +36,15 @@ } @dsn; # Use $test_dir -$dbh->do ("create table foo (c_foo integer, foo char (1))"); -$dbh->do ("insert into foo values ($_, $_)") for 1, 2, 3; +$dbh->do ("create table fox (c_fox integer, fox char (1))"); +$dbh->do ("insert into fox values ($_, $_)") for 1, 2, 3; my @test_dirs = ($tstdir, @extdir); is ($dir{$_}, 1, "DSN for $_") for @test_dirs; my %tbl = map { $_ => 1 } $dbh->tables (undef, undef, undef, undef); -is ($tbl{$_}, 1, "Table $_ found") for qw( tmp foo ); +is ($tbl{$_}, 1, "Table $_ found") for qw( tmp fox ); my %data = ( tmp => { # t/tmp.csv @@ -52,19 +52,40 @@ 2 => "monkey", 3 => "gorilla", }, - foo => { # output123/foo.csv + fox => { # output123/fox.csv 1 => 1, 2 => 2, 3 => 3, }, ); -foreach my $tbl ("tmp", "foo") { +foreach my $tbl ("tmp", "fox") { my $sth = $dbh->prepare ("select * from $tbl"); $sth->execute; while (my $row = $sth->fetch) { is ($row->[1], $data{$tbl}{$row->[0]}, "$tbl ($row->[0], ...)"); } } -ok ($dbh->do ("drop table foo"), "Drop foo"); +# Do not drop table fox yet + +ok ($dbh->disconnect, "disconnect"); + +chdir DbDir (); +my @f = grep m/^fox\.csv/i => glob "*.*"; +is (scalar @f, 1, "fox.csv still here"); + +SKIP: { + $DBD::File::VERSION < 0.43 and skip "DBD::File-0.43 required", 1; + is (DBI->connect ("dbi:CSV:", undef, undef, { + f_schema => undef, + f_dir => "./undefined", + f_ext => ".csv/r", + + RaiseError => 0, + PrintError => 0, + }), undef, "Should not be able to connect to non-exiting folder"); + } + +# drop table fox; +@f and unlink @f; done_testing; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/t/61_meta.t new/DBD-CSV-0.48/t/61_meta.t --- old/DBD-CSV-0.44/t/61_meta.t 2014-05-12 08:05:36.000000000 +0200 +++ new/DBD-CSV-0.48/t/61_meta.t 2014-11-15 16:06:27.000000000 +0100 @@ -20,34 +20,38 @@ ok ($tbl = FindNewTable ($dbh), "find new test table"); } -if ($DBD::File::VERSION gt "0.42") { - note ("ScalarIO - no col_names"); - my $dbh = Connect (); - open my $data, "<", \$cnt; - $dbh->{csv_tables}->{data} = { - f_file => $data, - skip_rows => 4, - }; - my $sth = $dbh->prepare ("SELECT * FROM data"); - $sth->execute (); - my $rows = $sth->fetchall_arrayref (); - is_deeply ($rows, $expect, "all rows found - mem-io w/o col_names"); - } +TODO: { + local $TODO = "Streaming support"; + + if ($DBD::File::VERSION gt "0.44") { + note ("ScalarIO - no col_names"); + my $dbh = Connect (); + open my $data, "<", \$cnt; + $dbh->{csv_tables}->{data} = { + f_file => $data, + skip_rows => 4, + }; + my $sth = $dbh->prepare ("SELECT * FROM data"); + $sth->execute (); + my $rows = $sth->fetchall_arrayref (); + is_deeply ($rows, $expect, "all rows found - mem-io w/o col_names"); + } -if ($DBD::File::VERSION gt "0.42") { - note ("ScalarIO - with col_names"); - my $dbh = Connect (); - open my $data, "<", \$cnt; + if ($DBD::File::VERSION gt "0.44") { + note ("ScalarIO - with col_names"); + my $dbh = Connect (); + open my $data, "<", \$cnt; - $dbh->{csv_tables}->{data} = { - f_file => $data, - skip_rows => 4, - col_names => [qw(id name color)], - }; - my $sth = $dbh->prepare ("SELECT * FROM data"); - $sth->execute (); - my $rows = $sth->fetchall_arrayref (); - is_deeply ($rows, $expect, "all rows found - mem-io w col_names"); + $dbh->{csv_tables}->{data} = { + f_file => $data, + skip_rows => 4, + col_names => [qw(id name color)], + }; + my $sth = $dbh->prepare ("SELECT * FROM data"); + $sth->execute (); + my $rows = $sth->fetchall_arrayref (); + is_deeply ($rows, $expect, "all rows found - mem-io w col_names"); + } } my $fn = File::Spec->rel2abs (DbFile ($tbl)); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-CSV-0.44/t/lib.pl new/DBD-CSV-0.48/t/lib.pl --- old/DBD-CSV-0.44/t/lib.pl 2014-08-04 21:41:59.000000000 +0200 +++ new/DBD-CSV-0.48/t/lib.pl 2014-11-08 09:17:32.000000000 +0100 @@ -16,6 +16,11 @@ my $test_user = $ENV{DBI_USER} || ""; my $test_pass = $ENV{DBI_PASS} || ""; +DBI->import (":sql_types"); +defined &SQL_CHAR or *SQL_CHAR = sub { 1 }; +defined &SQL_VARCHAR or *SQL_VARCHAR = sub { 12 }; +defined &SQL_INTEGER or *SQL_INTEGER = sub { 4 }; + sub COL_NULLABLE () { 1 } sub COL_KEY () { 2 } ++++++ cpanspec.yml ++++++ --- #description_paragraphs: 3 #no_testing: broken upstream #sources: # - source1 # - source2 #patches: # foo.patch: -p1 # bar.patch: #preamble: |- # BuildRequires: gcc-c++ #post_prep: |- # hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s, *,,g'` # sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL #post_install: |- # sed on %{name}.files #license: SUSE-NonFree #skip_noarch: 1 #custom_build: - #./Build build flags=%{?_smp_mflags} --myflag
