Sorry, forgot to log on before posting my question.
Perl is v5.8.0.
DBD::Oracle::VERSION = '1.14'
I'm mainly looking for something that will just scan the calls and print out a report, just so I have a list of candidates to narrow down my search as to what's broken, like:
'open' behavior has changed, IO internals have been modified
etc.
pseudocode:
open(INF,"<$filename") || die "Couldn't open in file\n";
my $id = 0;
my $data = "";
...
my $statement = $dbh->prepare("insert into data_table values(:1,:2)");
while(<INF>) {
if (s/^ID:[\s]+//g) {
$id = lc($_);
}
elsif (s/^Data:[\s]+//g) {
$data = lc($_);
}
#repeat for several labels
$statement->execute($id,$data);
$id = 0;
$data = "";
}
There's several pieces of data that get pulled out and and compared to the data that exists in the table for a given ID, but this should give an idea of what it's doing.
As far as Devel::Leak, no haven't used it before. Will investigate.
I'll try and break down the code to demonstrate the leak, but I have to figure out for certain what's causing it first.
|