On Thu, Jun 21, 2001 at 08:49:18PM -0700, Peter Lombard wrote: > It appears you have forgotten the bug-fix I reported for timetable.c. Could > you possibly include it in 0.83? Done. This patch seems to improve the accuracy of timers quite a lot. Overall performance seems unchanged but accuracy is better. -- Get self-realization at <http://sahajayoga.org> ... <http://why-compete.org> ? Victory to the Divine Mother!! --5vNYLRcllDrimb99 Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename=83 # This is a patch for Event-0.82 to update it to Event # # To apply this patch: # STEP 1: Chdir to the source directory. # STEP 2: Run the 'applypatch' program with this patch file as input. # # If you do not have 'applypatch', it is part of the 'makepatch' package # that you can fetch from the Comprehensive Perl Archive Network: # http://www.perl.com/CPAN/authors/Johan_Vromans/makepatch-x.y.tar.gz # In the above URL, 'x' should be 2 or higher. # # To apply this patch without the use of 'applypatch': # STEP 1: Chdir to the source directory. # STEP 2: Run the 'patch' program with this file as input. # #### End of Preamble #### #### Patch data follows #### diff -c '/tmp/mp958.d/old/Event-0.82/ChangeLog' 'Event/ChangeLog' Index: ./ChangeLog *** ./ChangeLog Thu Jun 21 14:54:05 2001 --- ./ChangeLog Fri Jun 22 11:46:44 2001 *************** *** 1,3 **** --- 1,11 ---- + 2001-06-22 <[EMAIL PROTECTED]> + + * Release 0.83. + + 2001-06-22 <[EMAIL PROTECTED]> + + * Waste less time in timeable.c. (Peter Lombard <[EMAIL PROTECTED]>) + 2001-06-21 <[EMAIL PROTECTED]> * Release 0.82. diff -c '/tmp/mp958.d/old/Event-0.82/c/timeable.c' 'Event/c/timeable.c' Index: ./c/timeable.c *** ./c/timeable.c Tue Jun 13 20:54:24 2000 --- ./c/timeable.c Fri Jun 22 11:44:50 2001 *************** *** 17,25 **** static void pe_timeables_check() { pe_timeable *tm = (pe_timeable*) Timeables.ring.next; ! double now = NVtime(); /* warn("timeables at %.2f\n", now); db_show_timeables();/**/ ! while (tm->ring.self && tm->at < now) { pe_watcher *ev = (pe_watcher*) tm->ring.self; pe_timeable *next = (pe_timeable*) tm->ring.next; D_TIMEABLE({ --- 17,25 ---- static void pe_timeables_check() { pe_timeable *tm = (pe_timeable*) Timeables.ring.next; ! double now = NVtime() + IntervalEpsilon; /* warn("timeables at %.2f\n", now); db_show_timeables();/**/ ! while (tm->ring.self && now >= tm->at) { pe_watcher *ev = (pe_watcher*) tm->ring.self; pe_timeable *next = (pe_timeable*) tm->ring.next; D_TIMEABLE({ diff -c '/tmp/mp958.d/old/Event-0.82/lib/Event.pm' 'Event/lib/Event.pm' Index: ./lib/Event.pm *** ./lib/Event.pm Thu Jun 21 14:51:17 2001 --- ./lib/Event.pm Fri Jun 22 11:46:53 2001 *************** *** 13,19 **** eval { require Carp::Heavy; }; # work around perl_call_pv bug XXX use vars qw($VERSION @EXPORT_OK $API $DebugLevel $Eval $DIED $Now); ! $VERSION = '0.82'; # If we inherit DynaLoader then we inherit AutoLoader; Bletch! require DynaLoader; --- 13,19 ---- eval { require Carp::Heavy; }; # work around perl_call_pv bug XXX use vars qw($VERSION @EXPORT_OK $API $DebugLevel $Eval $DIED $Now); ! $VERSION = '0.83'; # If we inherit DynaLoader then we inherit AutoLoader; Bletch! require DynaLoader; #### End of Patch data #### #### ApplyPatch data follows #### # Data version : 1.0 # Date generated : Fri Jun 22 11:47:40 2001 # Generated by : makepatch 2.00_03 # Recurse directories : Yes # p 'ChangeLog' 27594 993190604 0100444 # p 'c/timeable.c' 2634 993190490 0100444 # p 'lib/Event.pm' 4709 993190613 0100444 #### End of ApplyPatch data #### #### End of Patch kit [created: Fri Jun 22 11:47:40 2001] #### #### Patch checksum: 78 2617 60539 #### #### Checksum: 96 3293 51032 #### --5vNYLRcllDrimb99--
