r1460 - in packages/libdbd-csv-perl/trunk: . debian lib/Bundle/DBD
lib/DBD t
Gunnar Wolf
gwolf at costa.debian.org
Thu Nov 3 16:05:13 UTC 2005
Author: gwolf
Date: 2005-11-03 16:05:11 +0000 (Thu, 03 Nov 2005)
New Revision: 1460
Added:
packages/libdbd-csv-perl/trunk/META.yml
Removed:
packages/libdbd-csv-perl/trunk/output/
Modified:
packages/libdbd-csv-perl/trunk/ChangeLog
packages/libdbd-csv-perl/trunk/MANIFEST
packages/libdbd-csv-perl/trunk/MANIFEST.SKIP
packages/libdbd-csv-perl/trunk/Makefile.PL
packages/libdbd-csv-perl/trunk/README
packages/libdbd-csv-perl/trunk/debian/changelog
packages/libdbd-csv-perl/trunk/lib/Bundle/DBD/CSV.pm
packages/libdbd-csv-perl/trunk/lib/DBD/CSV.pm
packages/libdbd-csv-perl/trunk/t/00base.t
packages/libdbd-csv-perl/trunk/t/30insertfetch.t
packages/libdbd-csv-perl/trunk/t/40listfields.t
packages/libdbd-csv-perl/trunk/t/Adabas.dbtest
packages/libdbd-csv-perl/trunk/t/Adabas.mtest
packages/libdbd-csv-perl/trunk/t/CSV.dbtest
packages/libdbd-csv-perl/trunk/t/CSV.mtest
packages/libdbd-csv-perl/trunk/t/README
packages/libdbd-csv-perl/trunk/t/ak-dbd.t
packages/libdbd-csv-perl/trunk/t/csv.t
packages/libdbd-csv-perl/trunk/t/lib.pl
packages/libdbd-csv-perl/trunk/t/mSQL.dbtest
packages/libdbd-csv-perl/trunk/t/mSQL.mtest
packages/libdbd-csv-perl/trunk/t/mSQL1.dbtest
packages/libdbd-csv-perl/trunk/t/mSQL1.mtest
packages/libdbd-csv-perl/trunk/t/mysql.dbtest
packages/libdbd-csv-perl/trunk/t/mysql.mtest
packages/libdbd-csv-perl/trunk/t/pNET.dbtest
packages/libdbd-csv-perl/trunk/t/pNET.mtest
Log:
New upstream version
Modified: packages/libdbd-csv-perl/trunk/ChangeLog
===================================================================
--- packages/libdbd-csv-perl/trunk/ChangeLog 2005-11-03 15:54:24 UTC (rev 1459)
+++ packages/libdbd-csv-perl/trunk/ChangeLog 2005-11-03 16:05:11 UTC (rev 1460)
@@ -1,5 +1,12 @@
-2004-04-18 Jeff Zucker <jeff at vpservices.com> (0.21)
+2005-04-01 Jeff Zucker <jzuckerATcpan.org> (0.22)
+ * removed DESTROY and disconnect - use DBD File's instead
+
+ * added ignore_missing_table flag to avoid warnings with
+ DROP TABLE IF EXISTS
+
+2004-04-18 Jeff Zucker <jzuckerATcpan.org> (0.21)
+
* added support for $dbh->{Active}, should now work
well with Class::DBI and other caching systems
@@ -9,7 +16,7 @@
* removed DBD::File from the distribution - it's now
distributed with DBI 1.42 and higher
-2002-03-01 Jeff Zucker <jeff at vpservices.com> (0.2002)
+2002-03-01 Jeff Zucker <jzuckerATcpan.org> (0.2002)
* added parser-caching for speedier operation,
see File.pm prepare()
@@ -18,7 +25,7 @@
prototypes to make it perl 5.8 compatible
-2002-01-21 Jeff Zucker <jeff at vpservices.com> (0.2001)
+2002-01-21 Jeff Zucker <jzuckerATcpan.org> (0.2001)
* adjusted docs to show Jeff as the new maintainer.
Property changes on: packages/libdbd-csv-perl/trunk/ChangeLog
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libdbd-csv-perl/trunk/MANIFEST
===================================================================
--- packages/libdbd-csv-perl/trunk/MANIFEST 2005-11-03 15:54:24 UTC (rev 1459)
+++ packages/libdbd-csv-perl/trunk/MANIFEST 2005-11-03 16:05:11 UTC (rev 1460)
@@ -34,3 +34,4 @@
t/pNET.dbtest
t/pNET.mtest
t/skeleton.test
+META.yml Module meta-data (added by MakeMaker)
Property changes on: packages/libdbd-csv-perl/trunk/MANIFEST
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/MANIFEST.SKIP
___________________________________________________________________
Name: svn:executable
+ *
Copied: packages/libdbd-csv-perl/trunk/META.yml (from rev 1459, packages/libdbd-csv-perl/branches/upstream/current/META.yml)
Property changes on: packages/libdbd-csv-perl/trunk/Makefile.PL
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/README
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libdbd-csv-perl/trunk/debian/changelog
===================================================================
--- packages/libdbd-csv-perl/trunk/debian/changelog 2005-11-03 15:54:24 UTC (rev 1459)
+++ packages/libdbd-csv-perl/trunk/debian/changelog 2005-11-03 16:05:11 UTC (rev 1460)
@@ -1,3 +1,9 @@
+libdbd-csv-perl (0.2200-1) unstable; urgency=low
+
+ * New upstream release
+
+ -- Gunnar Wolf <gwolf at debian.org> Thu, 3 Nov 2005 09:56:03 -0600
+
libdbd-csv-perl (0.2100-2) unstable; urgency=low
* Added debian/watch file
Property changes on: packages/libdbd-csv-perl/trunk/lib/Bundle/DBD/CSV.pm
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libdbd-csv-perl/trunk/lib/DBD/CSV.pm
===================================================================
--- packages/libdbd-csv-perl/trunk/lib/DBD/CSV.pm 2005-11-03 15:54:24 UTC (rev 1459)
+++ packages/libdbd-csv-perl/trunk/lib/DBD/CSV.pm 2005-11-03 16:05:11 UTC (rev 1460)
@@ -33,7 +33,7 @@
@ISA = qw(DBD::File);
-$VERSION = '0.21'; # jumped from 0.2002 to shorten version number
+$VERSION = '0.22';
$err = 0; # holds error code for DBI::err
$errstr = ""; # holds error string for DBI::errstr
@@ -96,17 +96,6 @@
return $parser;
}
-sub DESTROY {
- my $dbh = shift;
- $dbh->STORE('Active',0);
- undef;
-}
-sub disconnect {
- my $dbh = shift;
- $dbh->STORE('Active',0);
- 1;
-}
-
package DBD::CSV::st; # ====== STATEMENT ======
$DBD::CSV::st::imp_data_size = 0;
@@ -164,7 +153,7 @@
}
$tbl->{types} = $t;
}
- if (!$createMode and !$self->{ignore_missing_table}) {
+ if (!$createMode and !$self->{ignore_missing_table} and $self->command ne 'DROP') {
my($array, $skipRows);
if (exists($meta->{skip_rows})) {
$skipRows = $meta->{skip_rows};
@@ -277,13 +266,6 @@
$sth = $dbh->prepare("SELECT * FROM info");
-=head1 WARNING
-
-THIS IS ALPHA SOFTWARE. It is *only* 'Alpha' because the interface (API)
-is not finalized. The Alpha status does not reflect code quality or
-stability.
-
-
=head1 DESCRIPTION
The DBD::CSV module is yet another driver for the DBI (Database independent
Property changes on: packages/libdbd-csv-perl/trunk/lib/DBD/CSV.pm
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libdbd-csv-perl/trunk/t/00base.t
===================================================================
--- packages/libdbd-csv-perl/trunk/t/00base.t 2005-11-03 15:54:24 UTC (rev 1459)
+++ packages/libdbd-csv-perl/trunk/t/00base.t 2005-11-03 16:05:11 UTC (rev 1460)
@@ -10,8 +10,10 @@
#
# Include lib.pl
#
+use lib '/home/jeff/data/module/SQL-Statement/SQL-Statement-1.12/lib';
+use SQL::Statement;
+warn $SQL::Statement::VERSION;
-
$mdriver = "";
foreach $file ("lib.pl", "t/lib.pl") {
do $file; if ($@) { print STDERR "Error while executing lib.pl: $@\n";
Modified: packages/libdbd-csv-perl/trunk/t/30insertfetch.t
===================================================================
--- packages/libdbd-csv-perl/trunk/t/30insertfetch.t 2005-11-03 15:54:24 UTC (rev 1459)
+++ packages/libdbd-csv-perl/trunk/t/30insertfetch.t 2005-11-03 16:05:11 UTC (rev 1460)
@@ -55,6 +55,8 @@
#
Test($state or $table = FindNewTable($dbh), 'FindNewTable')
or DbiError($dbh->err, $dbh->errstr);
+ $table ||= 'tmp';
+ eval {$dbh->do("DROP TABLE $table")};
#
# Create a new table; EDIT THIS!
@@ -67,7 +69,6 @@
$dbh->do($def)), 'create', $def)
or DbiError($dbh->err, $dbh->errstr);
-
#
# Insert a row into the test table.......
#
@@ -91,7 +92,7 @@
Test($state or (defined($row = $cursor->fetchrow_arrayref) &&
!($cursor->errstr)), 'fetch select')
or DbiError($cursor->err, $cursor->errstr);
-
+
Test($state or ($row->[0] == 1 &&
$row->[1] eq 'Alligator Descartes' &&
$row->[2] == 1111 &&
Modified: packages/libdbd-csv-perl/trunk/t/40listfields.t
===================================================================
--- packages/libdbd-csv-perl/trunk/t/40listfields.t 2005-11-03 15:54:24 UTC (rev 1459)
+++ packages/libdbd-csv-perl/trunk/t/40listfields.t 2005-11-03 16:05:11 UTC (rev 1460)
@@ -83,7 +83,6 @@
if (!$state && $verbose) {
printf("Number of fields: %s\n", defined($res) ? $res : "undef");
}
-
Test($state or ($ref = $cursor->{'NAME'}) && @$ref == @table_def
&& (lc $$ref[0]) eq $table_def[0][0]
&& (lc $$ref[1]) eq $table_def[1][0])
Property changes on: packages/libdbd-csv-perl/trunk/t/Adabas.dbtest
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/Adabas.mtest
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/CSV.dbtest
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/CSV.mtest
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/README
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libdbd-csv-perl/trunk/t/ak-dbd.t
===================================================================
--- packages/libdbd-csv-perl/trunk/t/ak-dbd.t 2005-11-03 15:54:24 UTC (rev 1459)
+++ packages/libdbd-csv-perl/trunk/t/ak-dbd.t 2005-11-03 16:05:11 UTC (rev 1460)
@@ -248,19 +248,21 @@
### Test whether or not a char field containing a blank is returned
### correctly as blank, or something much more bizarre
+
# if ($SVERSION > 1) {
- $query = "INSERT INTO $test_table VALUES (2, NULL)";
+### $query = "INSERT INTO $test_table VALUES (2, NULL)";
# }
# else {
-# $query = "INSERT INTO $test_table VALUES (2, '')";
+ $query = "INSERT INTO $test_table VALUES (2, '')";
# }
+
Test($state or $dbh->do($query))
or ErrMsg("INSERT failed: query $query, error %s.\n", $dbh->errstr);
# if ($SVERSION > 1) {
- $query = "SELECT name FROM $test_table WHERE id = 2 AND name IS NULL";
+### $query = "SELECT name FROM $test_table WHERE id = 2 AND name IS NULL";
# }
# else {
-# $query = "SELECT name FROM $test_table WHERE id = 2 AND name = ''";
+ $query = "SELECT name FROM $test_table WHERE id = 2 AND name = ''";
# }
Test($state or ($sth = $dbh->prepare($query)))
@@ -268,8 +270,8 @@
Test($state or $sth->execute)
or ErrMsg("execute failed: query $query, error %s.\n", $dbh->errstr);
$rv = undef;
- Test($state or defined($ref = $sth->fetch))
- or ErrMsgF("fetchrow failed: query $query, error %s.\n", $sth->errstr);
+### Test($state or defined($ref = $sth->fetch))
+### or ErrMsgF("fetchrow failed: query $query, error %s.\n", $sth->errstr);
# if ($SVERSION > 1) {
Test($state or !defined($$ref[0]) )
or ErrMsgF("blank value returned as [%s].\n", $$ref[0]);
Property changes on: packages/libdbd-csv-perl/trunk/t/csv.t
___________________________________________________________________
Name: svn:executable
+ *
Modified: packages/libdbd-csv-perl/trunk/t/lib.pl
===================================================================
--- packages/libdbd-csv-perl/trunk/t/lib.pl 2005-11-03 15:54:24 UTC (rev 1459)
+++ packages/libdbd-csv-perl/trunk/t/lib.pl 2005-11-03 16:05:11 UTC (rev 1460)
@@ -259,7 +259,7 @@
}
$table = $testtable;
$testtable++;
- $table;
+ return $table;
}
}
Property changes on: packages/libdbd-csv-perl/trunk/t/lib.pl
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/mSQL.dbtest
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/mSQL.mtest
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/mSQL1.dbtest
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/mSQL1.mtest
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/mysql.dbtest
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/mysql.mtest
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/pNET.dbtest
___________________________________________________________________
Name: svn:executable
+ *
Property changes on: packages/libdbd-csv-perl/trunk/t/pNET.mtest
___________________________________________________________________
Name: svn:executable
+ *
More information about the Pkg-perl-cvs-commits
mailing list