view release on metacpan or  search on metacpan

doc/tdatdbd.html  view on Meta::CPAN

report_sub() to be called with the current total sent tuple count
whenever the tuple count MOD $count is zero (ie, a progress indicator)
NOTE: this only applies to pre v2R6.0 (ie, execute tuple at a time)
</ul><p>

Release 8.001.04<p>

<ul>
<li>fix st::DESTROY to finish() if 'Active'

<li>weaken() $dbh->{_stmts}{CursorName} reference to $sth
	if Scalar::Util::weaken() is available, in order
	to permit sth->DESTROY() to be called when sth goes
	out of scope in application

<li>updated Makefile.PL to warn if Scalar::Util is not available

<li>removed perldoc from Makefile.PL (some platforms don't install it)
</ul><p>

Release 8.001.03<p>

lib/DBD/Teradata.pm  view on Meta::CPAN

	my $phsz = $ENV{TDAT_PH_SIZE};
	$phdfltsz = $phsz
		if defined($phsz) && ($phsz=~/^\d+$/) && ($phsz > 0) && ($phsz < 1024);
	($dechi, $declo) = ($platform == 7) ? (0, 1) : (1, 0);

	$debug = $ENV{TDAT_DBD_DEBUG} || 0;

	$use_arm = ($Config{archname}=~/^arm-linux/i);
our $HAS_WEAKEN = eval {
	    require Scalar::Util;
	    Scalar::Util::weaken(my $test = \"foo");
	    1;
	};
};

our %td_type_code2str = (
400, 'BLOB',
404, 'DEFERRED BLOB',
408, 'BLOB LOCATOR',
416, 'CLOB',
420, 'DEFERRED CLOB',

lib/DBD/Teradata.pm  view on Meta::CPAN

			Statement => $args->{Statement},
			CursorName => $args->{CursorName}
		})
		or return $dbh->set_err(-1, 'Unable to create statement handle.', 'S1000');
	$sth->STORE('NUM_OF_PARAMS', delete $args->{NUM_OF_PARAMS});
	$sth->STORE('NUM_OF_FIELDS', delete $args->{NUM_OF_FIELDS});
	my ($key, $val);
	$sth->{$key} = $val
		while (($key, $val) = each %$args);
	$dbh->{_stmts}{$sth->{CursorName}} = $sth;
	Scalar::Util::weaken($dbh->{_stmts}{$sth->{CursorName}})
		if $DBD::Teradata::HAS_WEAKEN;
	$dbh->{_cursors}{$sth->{CursorName}} = $sth,
	$sth->{tdat_keepresp} = 1,
	$sthp[16] = 1
		if ($#$stmtinfo == 1) &&
			($stmtinfo->[1]{ActivityType} eq 'Select') &&
			($sth->{Statement}=~/\s+FOR\s+CURSOR\s*;?\s*$/i);
	$dbh->{tdat_nowait} = $sth->{tdat_nowait}
		if ($dbh->{tdat_utility} ne 'DBC/SQL');
	$sth->{tdat_TYPESTR} = DBD::Teradata::st::map_type2str($sth)