develooper Front page | perl.perl5.porters | Postings from March 2000

Re: XS_DynaLoader_dl_unload_file (was: beep R beep C beep 3)

Thread Previous | Thread Next
From:
Ulrich Pfeifer
Date:
March 22, 2000 07:44
Subject:
Re: XS_DynaLoader_dl_unload_file (was: beep R beep C beep 3)
Message ID:
p5ln3b80xo.fsf@hentai.de.uu.net
>>>>> "Ulrich" == Ulrich Pfeifer <pfeifer@wait.de> writes:

    Ulrich> Adding 
    Ulrich>         @DynaLoader::dl_librefs = ();

    Ulrich> just befor the exit(0) avoids the core dump ...

Adding '$DynaLoader::dl_debug = 255' reveals

 ,-----
 | Using /home/upf/.cpan/build/DBD-Oracle-1.03/blib
 | Name "DynaLoader::dl_debug" used only once: possible typo at t/base.t line 5.
 | 1..5
 | DynaLoader.pm loaded (/home/upf/.cpan/build/DBD-Oracle-1.03/blib/arch /home/upf/.cpan/build/DBD-Oracle-1.03/blib/lib /usr/local/pkg/perl-5.006/lib/5.6.0/i686-linux /usr/local/pkg/perl-5.006/lib/5.6.0 /usr/local/pkg/perl-5.006/lib/site_perl/5.6.0/i686-linux /usr/local/pkg/perl-5.006/lib/site_perl/5.6.0 /usr/local/pkg/perl-5.006/lib/site_perl ., /usr/local/lib /lib /usr/lib)
 | DynaLoader::bootstrap for DBI (:auto:DBI:DBI.so)
 | dl_load_file(/usr/local/pkg/perl-5.006/lib/site_perl/5.6.0/i686-linux/auto/DBI/DBI.so,0):
 |  libref=81a1368
 | dl_find_symbol(handle=81a1368, symbol=boot_DBI)
 |   symbolref = 4019c924
 | dl_install_xsub(name=DBI::bootstrap, symref=4019c924)
 | ok 1
 | ok 2
 | ok 3
 | DynaLoader::bootstrap for DBD::Oracle (:auto:DBD/Oracle:Oracle.so)
 | dl_load_file(/home/upf/.cpan/build/DBD-Oracle-1.03/blib/arch/auto/DBD/Oracle/Oracle.so,0):
 |  libref=8218e58
 | dl_find_symbol(handle=8218e58, symbol=boot_DBD__Oracle)
 |   symbolref = 401a8418
 | dl_install_xsub(name=DBD::Oracle::bootstrap, symref=401a8418)
 | ok 4
 | ok 5
 | dl_unload_file(8218e58):
 |  retval = 1
 | dl_unload_file(81a1368):
 |  retval = 1
 | zsh: segmentation fault (core dumped)  perl -Mblib t/base.t
 `-----
Typo in the comment:
Loader/dlutils.c
*** ext/DynaLoader/dlutils.c~   Thu Mar  2 18:52:52 2000
--- ext/DynaLoader/dlutils.c    Wed Mar 22 16:28:09 2000
***************
*** 21,27 ****
  
  
  #ifdef DEBUGGING
! static int dl_debug = 0;      /* value copied from $DynaLoader::dl_error */
  #define DLDEBUG(level,code)   if (dl_debug>=level) { code; }
  #else
  #define DLDEBUG(level,code)
--- 21,27 ----
  
  
  #ifdef DEBUGGING
! static int dl_debug = 0;      /* value copied from $DynaLoader::dl_debug */
  #define DLDEBUG(level,code)   if (dl_debug>=level) { code; }
  #else
  #define DLDEBUG(level,code)

Ulrich Pfeifer
-- 
"It's nothing personal, Captain. It's just the times."
	-- Robert J. Carlson to Sheridan in Babylon 5:"Convictions"

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About