Well depending on why it is failing. You error message does not provide any
help. Try using $DBI::errstr in it and also use trace() at level 2 (see
docs). You can then submit both to us if you can't figure out yourself.
Ilya
-----Original Message-----
From: Scott T. Hildreth
To: [EMAIL PROTECTED]
Sent: 06/15/2001 12:50 PM
Subject: 100 levels deep in subroutine calls!
I'm helping a co-worker debug some code, and I can't figure out
what is going on. I hope someone can shed some light on it.
This is perl, version 5.005_02 built for alpha-dec_osf
DBI 1.14
Msql-Mysql-modules-1.2217.tar.gz
Basically, He calls a subroutine that evals the execute
and checks $@. He keeps rerunning in debugger so there
are duplicate keys that were already inserted. So he uses
the eval to skip those errors. It actuall quits in multiple
subroutines. I commented out the eval in one subroutine and
added $dbh->{RaiseError} = 0, and it did not quit in this sub,
but it did quit in another sub with,
main::update_newcust(qwl_newcust.pl:430):
430: if ($@) {
100 levels deep in subroutine calls!
Anybody know what I am missing here???
----------------------------------
E-Mail: Scott T. Hildreth <[EMAIL PROTECTED]>
Date: 15-Jun-01
Time: 13:33:13
----------------------------------