bind_param () - did something change?

I have a table with 5 BLOB's. BLOB's are easy in DBD::CSV and
DBD::Unify, but they need "some help" in Oracle.

I had a script that did load a table from a CSV file by first inserting
all the records without the blob's and then update each blob in turn
((DBD::Oracle would not allow me to have 5 BLOB's in one insert or
update).

Given that c_ll + m_nr are a primary key, I had to change

foreach my $blob (qw( w_tl w_xml0 w_xml1 w_xml2 w_xml3 attr )) {
    print STDERR "Setting $blob in ll_verz_rel ...\n";
    my $sth = $dbh->prepare ("update ll_verz_rel set $blob = ? where c_ll = ? and m_nr = ?");
    for (@llvr) {
	$_->{$blob} or next;
	$sth->bind_param (1, $_->{$blob}, { ora_type => ORA_BLOB   });
	$sth->bind_param (2, $_->{c_ll},  { ora_type => ORA_NUMBER });
	$sth->bind_param (3, $_->{m_nr},  { ora_type => ORA_NUMBER });
	$sth->execute ();
	}
    }

to

foreach my $blob (qw( w_tl w_xml0 w_xml1 w_xml2 w_xml3 attr )) {
    print STDERR "Setting $blob\tin ll_verz_rel ... ";
    my $sth = prepar ("update ll_verz_rel set $blob = ? where c_ll = ? and m_nr = ?");
       $sth->bind_param (1, undef, { ora_type => ORA_BLOB, ora_field => $blob });
    for (@llvr) {
	$_->{$blob} or next;
	$sth->execute ($_->{$blob}, $_->{c_ll}, $_->{m_nr});
	}
    }

to get it to insert the records. It FAILED to work without the
ora_field addition

Now in this case I don't really mind the change. It makes my code
easier, but if I bind to one parameter only, the bind should/could know
what to bind to, it shouldn't need the ora_field entry in the hashref.
In above case, there is one ONE blob in the statement at any time, so
there is no conflict at all, ever.

-- 
H.Merijn Brand  http://tux.nl   Perl Monger  http://amsterdam.pm.org/
using perl5.00307 .. 5.17   porting perl5 on HP-UX, AIX, and openSUSE
http://mirrors.develooper.com/hpux/        http://www.test-smoke.org/
http://qa.perl.org   http://www.goldmark.org/jeff/stupid-disclaimers/