Author: turnstep
Date: Thu Jan 10 14:10:12 2008
New Revision: 10511
Modified:
DBD-Pg/trunk/Pg.pm
Log:
Remove apparently unused and certainly undocumented code for prepare args.
Modified: DBD-Pg/trunk/Pg.pm
==============================================================================
--- DBD-Pg/trunk/Pg.pm (original)
+++ DBD-Pg/trunk/Pg.pm Thu Jan 10 14:10:12 2008
@@ -211,20 +211,7 @@
'Statement' => $statement,
});
- my $ph = DBD::Pg::st::_prepare($sth, $statement, @attribs) || 0;
-
- if ($ph < 0) {
- return undef;
- }
-
- if (@attribs and ref $attribs[0] and ref $attribs[0] eq 'HASH')
{
- # Feel ambitious? Move all this to dbdimp.c! :)
- if (exists $attribs[0]->{bind_types}) {
- my $bind = $attribs[0]->{bind_types};
- ## Until we are allowed to set just the type,
we use a null
- $sth->bind_param("$1",undef,"foo");
- }
- }
+ DBD::Pg::st::_prepare($sth, $statement, @attribs) || 0;
$sth;
}
