home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume18 / oraperl / part01 / usersub.c < prev   
Encoding:
C/C++ Source or Header  |  1991-04-11  |  499 b   |  31 lines
  1. /* usersub.c
  2.  * 
  3.  * Initialisation for Oraperl.
  4.  */
  5. /* Copyright 1991 Kevin Stock.
  6.  *
  7.  * You may copy this under the terms of the GNU General Public License,
  8.  * a copy of which should have accompanied your Perl kit.
  9.  */
  10.  
  11. #include "EXTERN.h"
  12. #include "perl.h"
  13. #include "orafns.h"
  14.  
  15. int
  16. userinit()
  17. {
  18.     init_oracle();
  19.  
  20. #ifdef    DEBUGGING
  21. #ifdef    PERL_DEBUGGING
  22.     ora_debug = debug;        /* pick up the -D flag */
  23. #else
  24.     ora_debug = 0;
  25. #endif    /* PERL_DEBUGGING */
  26. #endif    /* DEBUGGING */
  27.  
  28.     ora_errno = 0;
  29. }
  30.  
  31.