view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    * Support other database field types from tie
    * Test more binary data (without Storable)
    * Note I gave up on Firebird
    * Up copyright to 2015
    * Move repo to github
    * Make utf8/data test for CSV reliable

0.13	- 02 May 2014, H.Merijn Brand
    * Shorten connect failure messages in test
    * Only skip SQLite/RV test if mismatch under Windows (Storable's fault)
    * Do not use getpwuid on Windows
    * Rename the test files for Tie::Array::DBD
    * Skip the slow bulk tests on Firebird for now
    * Document that deep changes are not working
    * Require perl-5.8.3
    * Ignore unsupported streamers by just returning the data (was undef)

0.12	- 30 Apr 2014, H.Merijn Brand
    * Amend tests to not fail when not an error
    * Amend tests to show driver version
    * Skip Firebird tests unless local or ISC_USER is set

t/util.pl  view on Meta::CPAN

	$tempdb = "csv_$rnd";
	mkdir $tempdb, 0777;
	my $dsn = "dbi:CSV:f_dir=$tempdb;f_ext=.csv/r;csv_null=1";
	$xsv > 1.01 && $dbv > 0.47     and $dsn .= ";csv_decode_utf8=0";
	$dbv > 0.29 && $]   < 5.008009 and $dsn .= ";csv_auto_diag=0";
	return $dsn;
	}

    # We assume user "0" is illegal
    my $user   = $ENV{LOGNAME} || $ENV{USER};
       $user ||= getpwuid $< unless $^O eq "MSWin32";
       $user ||= "";

    if ($type eq "Oracle") {
	my @id = split m{/} => ($ENV{ORACLE_USERID} || "/"), -1;
	$ENV{DBI_USER} = $id[0];
	$ENV{DBI_PASS} = $id[1];

	($ENV{ORACLE_SID} || $ENV{TWO_TASK}) &&
	-d ($ENV{ORACLE_HOME} || "/-..\x03") &&
	   $ENV{DBI_USER} && $ENV{DBI_PASS} or