sybperl-l Archive

From: "Seaman, Mark" <Mark dot Seaman at vtmednet dot org>
Subject: Bus error using ctlib when in results loop
Date: Mar 2 2000 11:04PM

I am writing a sybperl script to synchronize tables between our development
and production databased.  I am getting a BUS error and a core dump in a
specific results loop.  Here is the stack trace from the core file:

#0  0xef5f48e8 in kill ()
#1  0x944ac in Perl_apply ()
#2  0x8d8c8 in Perl_pp_kill ()
#3  0x998d8 in Perl_runops_standard ()
#4  0x21b54 in perl_call_sv ()
#5  0x55ecc in Perl_sighandler ()
#6  
#7  0x58be8 in Perl_av_clear ()
#8  0xef548c30 in describe ()
#9  0xef549ca0 in servermsg_cb ()
#10 0xef4c949c in ct__tds_call_cb ()
#11 0xef4c9960 in ct__tds_xerror_final ()
#12 0xef3f043c in com__async_runstack ()
#13 0xef3f0398 in com__async_poll_state ()
#14 0xef3f0198 in com__async_do_poll ()
#15 0xef3efbc4 in com_async_poll ()
#16 0xef49c384 in ct__api_async ()
#17 0xef4bf6ec in ct_results ()
#18 0xef551e08 in XS_Sybase__CTlib_ct_results ()
#19 0x5fdd0 in Perl_pp_entersub ()
#20 0x998d8 in Perl_runops_standard ()
#21 0x21270 in perl_run ()
#22 0x1edec in main ()

My code looks like this:

	$bs_ret = 0;
	$dest_dbh->ct_execute($dest_sql_statement);
	while($dest_dbh->ct_results($bs_ret) == CS_SUCCEED) {
	next unless $dest_dbh->ct_fetchable($bs_ret);
		#ignore result of this
	} #while CS_SUCCEED

If i step into the sybperl module, the bus error happens on this line:

Sybase::CTlib::ct_results(/usr/local/lib/perl5/5.00503/Carp.pm:188):
188:        $$msg;

I am using sybperl 2.09 on Solaris 2.5.1 with perl 5.005-003.  Any idea what
could be causing this?

Thanks,

Mark