view release on metacpan or  search on metacpan

doc/tdatdbd.html  view on Meta::CPAN

2338
2339
2340
2341
2342
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
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

69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
        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

1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
                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)