r1458 - in packages/libdbd-csv-perl/branches/upstream/current: . lib/Bundle/DBD lib/DBD t

Gunnar Wolf gwolf at costa.debian.org
Thu Nov 3 15:54:11 UTC 2005


Author: gwolf
Date: 2005-11-03 15:54:10 +0000 (Thu, 03 Nov 2005)
New Revision: 1458

Added:
   packages/libdbd-csv-perl/branches/upstream/current/META.yml
Removed:
   packages/libdbd-csv-perl/branches/upstream/current/output/
Modified:
   packages/libdbd-csv-perl/branches/upstream/current/ChangeLog
   packages/libdbd-csv-perl/branches/upstream/current/MANIFEST
   packages/libdbd-csv-perl/branches/upstream/current/MANIFEST.SKIP
   packages/libdbd-csv-perl/branches/upstream/current/Makefile.PL
   packages/libdbd-csv-perl/branches/upstream/current/README
   packages/libdbd-csv-perl/branches/upstream/current/lib/Bundle/DBD/CSV.pm
   packages/libdbd-csv-perl/branches/upstream/current/lib/DBD/CSV.pm
   packages/libdbd-csv-perl/branches/upstream/current/t/00base.t
   packages/libdbd-csv-perl/branches/upstream/current/t/10dsnlist.t
   packages/libdbd-csv-perl/branches/upstream/current/t/20createdrop.t
   packages/libdbd-csv-perl/branches/upstream/current/t/30insertfetch.t
   packages/libdbd-csv-perl/branches/upstream/current/t/40bindparam.t
   packages/libdbd-csv-perl/branches/upstream/current/t/40blobs.t
   packages/libdbd-csv-perl/branches/upstream/current/t/40listfields.t
   packages/libdbd-csv-perl/branches/upstream/current/t/40nulls.t
   packages/libdbd-csv-perl/branches/upstream/current/t/40numrows.t
   packages/libdbd-csv-perl/branches/upstream/current/t/50chopblanks.t
   packages/libdbd-csv-perl/branches/upstream/current/t/50commit.t
   packages/libdbd-csv-perl/branches/upstream/current/t/Adabas.dbtest
   packages/libdbd-csv-perl/branches/upstream/current/t/Adabas.mtest
   packages/libdbd-csv-perl/branches/upstream/current/t/CSV.dbtest
   packages/libdbd-csv-perl/branches/upstream/current/t/CSV.mtest
   packages/libdbd-csv-perl/branches/upstream/current/t/README
   packages/libdbd-csv-perl/branches/upstream/current/t/ak-dbd.t
   packages/libdbd-csv-perl/branches/upstream/current/t/csv.t
   packages/libdbd-csv-perl/branches/upstream/current/t/dbdadmin.t
   packages/libdbd-csv-perl/branches/upstream/current/t/lib.pl
   packages/libdbd-csv-perl/branches/upstream/current/t/mSQL.dbtest
   packages/libdbd-csv-perl/branches/upstream/current/t/mSQL.mtest
   packages/libdbd-csv-perl/branches/upstream/current/t/mSQL1.dbtest
   packages/libdbd-csv-perl/branches/upstream/current/t/mSQL1.mtest
   packages/libdbd-csv-perl/branches/upstream/current/t/mysql.dbtest
   packages/libdbd-csv-perl/branches/upstream/current/t/mysql.mtest
   packages/libdbd-csv-perl/branches/upstream/current/t/pNET.dbtest
   packages/libdbd-csv-perl/branches/upstream/current/t/pNET.mtest
   packages/libdbd-csv-perl/branches/upstream/current/t/skeleton.test
Log:
Load /tmp/tmp.cnIc0a/libdbd-csv-perl-0.22 into
packages/libdbd-csv-perl/branches/upstream/current.


Modified: packages/libdbd-csv-perl/branches/upstream/current/ChangeLog
===================================================================
--- packages/libdbd-csv-perl/branches/upstream/current/ChangeLog	2005-11-03 15:20:35 UTC (rev 1457)
+++ packages/libdbd-csv-perl/branches/upstream/current/ChangeLog	2005-11-03 15:54:10 UTC (rev 1458)
@@ -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/branches/upstream/current/ChangeLog
___________________________________________________________________
Name: svn:executable
   + *

Modified: packages/libdbd-csv-perl/branches/upstream/current/MANIFEST
===================================================================
--- packages/libdbd-csv-perl/branches/upstream/current/MANIFEST	2005-11-03 15:20:35 UTC (rev 1457)
+++ packages/libdbd-csv-perl/branches/upstream/current/MANIFEST	2005-11-03 15:54:10 UTC (rev 1458)
@@ -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/branches/upstream/current/MANIFEST
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/MANIFEST.SKIP
___________________________________________________________________
Name: svn:executable
   + *

Added: packages/libdbd-csv-perl/branches/upstream/current/META.yml
===================================================================
--- packages/libdbd-csv-perl/branches/upstream/current/META.yml	2005-11-03 15:20:35 UTC (rev 1457)
+++ packages/libdbd-csv-perl/branches/upstream/current/META.yml	2005-11-03 15:54:10 UTC (rev 1458)
@@ -0,0 +1,14 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
+name:         DBD-CSV
+version:      0.22
+version_from: lib/DBD/CSV.pm
+installdirs:  site
+requires:
+    DBD::File:                     0.30
+    DBI:                           1.00
+    SQL::Statement:                0.1011
+    Text::CSV_XS:                  0.16
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.17


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/Makefile.PL
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/README
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/lib/Bundle/DBD/CSV.pm
___________________________________________________________________
Name: svn:executable
   + *

Modified: packages/libdbd-csv-perl/branches/upstream/current/lib/DBD/CSV.pm
===================================================================
--- packages/libdbd-csv-perl/branches/upstream/current/lib/DBD/CSV.pm	2005-11-03 15:20:35 UTC (rev 1457)
+++ packages/libdbd-csv-perl/branches/upstream/current/lib/DBD/CSV.pm	2005-11-03 15:54:10 UTC (rev 1458)
@@ -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/branches/upstream/current/lib/DBD/CSV.pm
___________________________________________________________________
Name: svn:executable
   + *

Modified: packages/libdbd-csv-perl/branches/upstream/current/t/00base.t
===================================================================
--- packages/libdbd-csv-perl/branches/upstream/current/t/00base.t	2005-11-03 15:20:35 UTC (rev 1457)
+++ packages/libdbd-csv-perl/branches/upstream/current/t/00base.t	2005-11-03 15:54:10 UTC (rev 1458)
@@ -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";


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/00base.t
___________________________________________________________________
Name: svn:executable
   - 
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/10dsnlist.t
___________________________________________________________________
Name: svn:executable
   - 
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/20createdrop.t
___________________________________________________________________
Name: svn:executable
   - 
   + *

Modified: packages/libdbd-csv-perl/branches/upstream/current/t/30insertfetch.t
===================================================================
--- packages/libdbd-csv-perl/branches/upstream/current/t/30insertfetch.t	2005-11-03 15:20:35 UTC (rev 1457)
+++ packages/libdbd-csv-perl/branches/upstream/current/t/30insertfetch.t	2005-11-03 15:54:10 UTC (rev 1458)
@@ -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 &&    


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/30insertfetch.t
___________________________________________________________________
Name: svn:executable
   - 
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/40bindparam.t
___________________________________________________________________
Name: svn:executable
   - 
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/40blobs.t
___________________________________________________________________
Name: svn:executable
   - 
   + *

Modified: packages/libdbd-csv-perl/branches/upstream/current/t/40listfields.t
===================================================================
--- packages/libdbd-csv-perl/branches/upstream/current/t/40listfields.t	2005-11-03 15:20:35 UTC (rev 1457)
+++ packages/libdbd-csv-perl/branches/upstream/current/t/40listfields.t	2005-11-03 15:54:10 UTC (rev 1458)
@@ -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/branches/upstream/current/t/40listfields.t
___________________________________________________________________
Name: svn:executable
   - 
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/40nulls.t
___________________________________________________________________
Name: svn:executable
   - 
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/40numrows.t
___________________________________________________________________
Name: svn:executable
   - 
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/50chopblanks.t
___________________________________________________________________
Name: svn:executable
   - 
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/50commit.t
___________________________________________________________________
Name: svn:executable
   - 
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/Adabas.dbtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/Adabas.mtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/CSV.dbtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/CSV.mtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/README
___________________________________________________________________
Name: svn:executable
   + *

Modified: packages/libdbd-csv-perl/branches/upstream/current/t/ak-dbd.t
===================================================================
--- packages/libdbd-csv-perl/branches/upstream/current/t/ak-dbd.t	2005-11-03 15:20:35 UTC (rev 1457)
+++ packages/libdbd-csv-perl/branches/upstream/current/t/ak-dbd.t	2005-11-03 15:54:10 UTC (rev 1458)
@@ -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/branches/upstream/current/t/ak-dbd.t
___________________________________________________________________
Name: svn:executable
   - 
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/csv.t
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/dbdadmin.t
___________________________________________________________________
Name: svn:executable
   - 
   + *

Modified: packages/libdbd-csv-perl/branches/upstream/current/t/lib.pl
===================================================================
--- packages/libdbd-csv-perl/branches/upstream/current/t/lib.pl	2005-11-03 15:20:35 UTC (rev 1457)
+++ packages/libdbd-csv-perl/branches/upstream/current/t/lib.pl	2005-11-03 15:54:10 UTC (rev 1458)
@@ -259,7 +259,7 @@
 	}
 	$table = $testtable;
 	$testtable++;
-	$table;
+	return $table;
     }
 }
 


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/lib.pl
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/mSQL.dbtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/mSQL.mtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/mSQL1.dbtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/mSQL1.mtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/mysql.dbtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/mysql.mtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/pNET.dbtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/pNET.mtest
___________________________________________________________________
Name: svn:executable
   + *


Property changes on: packages/libdbd-csv-perl/branches/upstream/current/t/skeleton.test
___________________________________________________________________
Name: svn:executable
   - 
   + *




More information about the Pkg-perl-cvs-commits mailing list