"Fossies" - the Fresh Open Source Software Archive

Member "mod_perl-2.0.11/docs/devel/debug/code/.debug-modperl-init" (5 Oct 2019, 1303 Bytes) of package /linux/www/apache_httpd_modules/mod_perl-2.0.11.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

    1 # This gdb startup script breaks at the modperl_hook_init() function,
    2 # which is useful for debug things at the modperl init phase.
    3 #
    4 # Invoke as:
    5 # gdb -command=.debug-modperl-init
    6 #
    7 # see ADJUST notes for things that may need to be adjusted
    8 
    9 # ADJUST: the path to the httpd executable if needed
   10 file ~/httpd/worker/bin/httpd
   11 handle SIGPIPE nostop
   12 handle SIGPIPE pass
   13 set auto-solib-add 0
   14 
   15 define myrun
   16     tbreak main
   17     break ap_run_pre_config
   18     #  ADJUST: the httpd.conf file's path if needed
   19     #  ADJUST: add -DPERL_USEITHREADS to debug threaded mpms
   20     run -d `pwd`/t -f `pwd`/t/conf/httpd.conf -DONE_PROCESS -DAPACHE2
   21     continue
   22 end
   23 
   24 define modperl_init
   25     sharedlibrary mod_perl
   26     b modperl_hook_init
   27     continue
   28 end
   29 
   30 define sharedap
   31     # ADJUST: uncomment next line to debug threaded mpms
   32     #sharedlibrary libpthread
   33     sharedlibrary apr
   34     sharedlibrary aprutil
   35     #sharedlibrary mod_ssl.so
   36     continue
   37 end
   38 
   39 define sharedperl
   40     sharedlibrary libperl
   41 end
   42 
   43 # start the server and run till modperl_hook_init on start
   44 myrun
   45 modperl_init
   46 
   47 # ADJUST: uncomment to reach modperl_hook_init on restart
   48 #continue
   49 #continue
   50 
   51 # ADJUST: uncomment if you need to step through the code in apr libs
   52 #sharedap
   53 
   54 # ADJUST: uncomment if you need to step through the code in perlib
   55 #sharedperl