Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re^2: Problem locating Carp::Heavy

by Miguel (Friar)
on Apr 07, 2005 at 03:06 UTC ( #445523=note: print w/replies, xml ) Need Help??

in reply to Re: Problem locating Carp::Heavy
in thread Problem locating Carp::Heavy

Thank you for your suggestion.

I tried with:

$db->{RaiseError} = 0; ... $sth->execute( $to || "-", $from || "-", $subject || "-", $date || "-", $body || "-", $headers || "-" ) or die $db->errstr;
But I still got the same result.

And seems I do have Carp::Heavy on my system:

~% slocate /usr/lib/perl5/5.8.6/Carp/ /usr/lib/perl5/5.8.6/Exporter/
On the other hand, if I just do:
#!/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; }
All records are stored fine.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://445523]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (3)
As of 2017-04-30 06:16 GMT
Find Nodes?
    Voting Booth?
    I'm a fool:

    Results (534 votes). Check out past polls.