in reply to Re: Problem locating Carp::Heavy
in thread Problem locating Carp::Heavy
Thank you for your suggestion.
I tried with:
But I still got the same result.$db->{RaiseError} = 0; ... $sth->execute( $to || "-", $from || "-", $subject || "-", $date || "-", $body || "-", $headers || "-" ) or die $db->errstr;
And seems I do have Carp::Heavy on my system:
On the other hand, if I just do:~% slocate Heavy.pm /usr/lib/perl5/5.8.6/Carp/Heavy.pm /usr/lib/perl5/5.8.6/Exporter/Heavy.pm
All records are stored fine.#!/usr/bin/perl -Tw use diagnostics; use strict; use IO::All; use DBI; my $db = DBI->connect( "dbi:Pg:dbname=db;", "user", "password" ) or die( "error message ..." ); $db->{RaiseError} = 1; $db->{pg_server_prepare} = 1; $db->{AutoCommit} = 1; my $sql = " INSERT INTO tabmail(para,de,assunto,data,corpo,cabecalho) VALUES(?,?,?,?,?,?) "; my $sth = $db->prepare($sql); for ( 1 .. 2000) { $sth->execute($_,$_,$_,$_,$_,$_) or die $db->errstr; }
|
---|
In Section
Seekers of Perl Wisdom