home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume30 / oraperl-v2 / patch01 < prev    next >
Encoding:
Text File  |  1992-07-06  |  3.1 KB  |  107 lines
  1. Newsgroups: comp.sources.misc
  2. From: Kevin Stock <kstock@encore.com>
  3. Subject:  v30i099:  oraperl-v2 - Extensions to Perl to access Oracle database, Patch01
  4. Message-ID: <1992Jul6.154255.5091@sparky.imd.sterling.com>
  5. X-Md4-Signature: a943431819cb362f80c8009bb702107f
  6. Date: Mon, 6 Jul 1992 15:42:55 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: Kevin Stock <kstock@encore.com>
  10. Posting-number: Volume 30, Issue 99
  11. Archive-name: oraperl-v2/patch01
  12. Environment: Perl, Oracle with OCI, optionally Curses
  13. Patch-To: oraperl-v2: Volume 30, Issue 87-91
  14.  
  15. *Sigh* There's always something. I made a mistake when I turned mkdb.pl
  16. into a test, so it won't run anywhere else but here. I've also added a
  17. hint about building coraperl with bsdcurses.mus. Thanks to Ron Pool for
  18. these changes.
  19.  
  20. There's no functional change, so you don't need to rebuild. However,
  21. patchlevel.h is updated to reflect the patch.
  22.  
  23. Run this file through patch -p to apply the patch.
  24.  
  25.     Kevin
  26.  
  27. *** patchlevel.h.orig    Wed Apr  8 13:12:16 1992
  28. --- patchlevel.h    Tue Jun 30 08:54:41 1992
  29. ***************
  30. *** 1,4 ****
  31.   /* patchlevel.h */
  32.   
  33.   #define    VERSION        2
  34. ! #define    PATCHLEVEL    0
  35. --- 1,4 ----
  36.   /* patchlevel.h */
  37.   
  38.   #define    VERSION        2
  39. ! #define    PATCHLEVEL    1
  40. *** Hints.orig    Tue Jun 23 16:41:38 1992
  41. --- Hints    Tue Jun 30 08:56:44 1992
  42. ***************
  43. *** 4,9 ****
  44. --- 4,10 ----
  45.   The topics dealt with are the following:
  46.   
  47.       Memory Usage
  48. +     Using bsdcurses.mus instead of curses.mus
  49.       Building on a Convex machine
  50.       Building on Dual Universe machines
  51.       Building with Perl v3
  52. ***************
  53. *** 17,24 ****
  54.   With versions of Perl prior to 4.034, there is a memory leak when
  55.   repeated calls to &ora_fetch() are made within a while() loop.
  56.   
  57. ! The correct solution is to upgrade to 4.034. However, if that is
  58. ! not possible for some reason, there is a workaround.
  59.   
  60.   Create a Perl subroutine which returns a row from a database and
  61.   call this instead. So instead of
  62. --- 18,25 ----
  63.   With versions of Perl prior to 4.034, there is a memory leak when
  64.   repeated calls to &ora_fetch() are made within a while() loop.
  65.   
  66. ! The correct solution is to upgrade. However, if that is not possible
  67. ! for some reason, there is a workaround.
  68.   
  69.   Create a Perl subroutine which returns a row from a database and
  70.   call this instead. So instead of
  71. ***************
  72. *** 44,49 ****
  73. --- 45,63 ----
  74.       {
  75.           ...
  76.       }
  77. + 
  78. + 
  79. + Using bsdcurses.mus instead of curses.mus
  80. + =========================================
  81. + 
  82. + If you built curseperl using bsdcurses.mus (BSD curses) instead of
  83. + curses.mus (ATT curses), you must either:
  84. + 
  85. + 1) #ifdef out the references to the testcallback usersub
  86. +    in bsdcurses.mus, or
  87. + 
  88. + 2) Extract the callback routines from $SRC/usub/usersub.c into a
  89. +    separate file, and link it with coraperl.
  90.   
  91.   
  92.   Building on a Convex machine
  93. *** testdir/mkdb.pl.orig    Mon May 25 15:55:02 1992
  94. --- testdir/mkdb.pl    Tue Jun 30 08:58:43 1992
  95. ***************
  96. *** 46,52 ****
  97.   
  98.   # create the database
  99.   
  100. - $lda = &ora_login('t', 'kstock', 'kstock')    || die $ora_errstr;
  101.   &ora_do($lda, $CREATE)                || die $ora_errstr;
  102.   
  103.   # put some data into it
  104. --- 46,51 ----
  105.  
  106. exit 0 # Just in case...
  107.