in reply to DBIx::Simple
and it looks like your presumes autocommit turned on. This is not normally the case, so in that case why not add thesesub oracle_escape { my $self = shift; my ($ret_value) = @{{@_}}{qw/dirty/}; $ret_value =~ s/\'/\'\'/g; return $ret_value; }
Just some food for thought. Please tell me if you put these in, would be cool to know I helped with something on CPAN ;).sub commit { my $self = shift; $self->{'dbh'}->commit(); } sub rollback { my $self = shift; $self->{'dbh'}->rollback(); }
|
---|