Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

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 Heavy.pm /usr/lib/perl5/5.8.6/Carp/Heavy.pm /usr/lib/perl5/5.8.6/Exporter/Heavy.pm
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.


Comment on Re^2: Problem locating Carp::Heavy
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://445523]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (9)
As of 2014-10-24 11:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (131 votes), past polls