----- Forwarded message from [EMAIL PROTECTED] -----
Date: Wed, 24 May 2000 22:29:14 +0200
Subject: CPAN Upload: J/JP/JPRIT/Event-0.78.tar.gz
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED],
[EMAIL PROTECTED]
The uploaded file
Event-0.78.tar.gz
has entered CPAN as
file: $CPAN/authors/id/J/JP/JPRIT/Event-0.78.tar.gz
size: 148585 bytes
md5: 6b314d588a11d57436ae74218509b6af
No action is required on your part
Request entered by: JPRIT (Joshua N. Pritikin)
Request entered on: Wed, 24 May 2000 20:28:06 GMT
Request completed: Wed, 24 May 2000 20:29:14 GMT
Virtually Yours,
Id: paused,v 1.68 1999/10/22 14:39:12 k Exp k
# This is a patch for Event-0.77 to update it to Event-0.78
#
# 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 ####
gdiff -up '/usr/tmp/mp4540.d/old/Event-0.77/ChangeLog'
'/usr/tmp/mp4540.d/new/Event-0.78/ChangeLog'
Index: ./ChangeLog
--- ./ChangeLog Fri May 12 08:18:06 2000
+++ ./ChangeLog Wed May 24 16:25:04 2000
@@ -1,3 +1,14 @@
+2000-05-24 Joshua Pritikin <[EMAIL PROTECTED]>
+
+ * Release 0.78.
+
+ * Invoke Carp::carp for internal warnings.
+
+2000-05-19 Joshua Pritikin <[EMAIL PROTECTED]>
+
+ * Fix SEGV triggered when Event-Stats is enabled while loop is
+ nested.
+
2000-05-12 Joshua Pritikin <[EMAIL PROTECTED]>
* Release 0.77.
gdiff -up '/usr/tmp/mp4540.d/old/Event-0.77/Event.xs'
'/usr/tmp/mp4540.d/new/Event-0.78/Event.xs'
Index: ./Event.xs
--- ./Event.xs Wed May 10 17:22:09 2000
+++ ./Event.xs Wed May 24 09:23:20 2000
@@ -40,8 +40,7 @@ static void Event_warn(const char* pat,
# define warn Event_warn
#endif
-/* this is not well tested but could be very useful for debugging */
-#if 0
+#if 1
#ifdef warn
# undef warn
#endif
gdiff -up '/usr/tmp/mp4540.d/old/Event-0.77/c/ev.c'
'/usr/tmp/mp4540.d/new/Event-0.78/c/ev.c'
Index: ./c/ev.c
--- ./c/ev.c Wed Apr 26 12:36:59 2000
+++ ./c/ev.c Fri May 19 10:33:09 2000
@@ -155,8 +155,13 @@ static void pe_event_postCB(pe_cbframe *
Estat.scrub(fp->stats, wa);
fp->stats = 0;
}
- if (CurCBFrame >= 0)
- Estat.resume((CBFrame + CurCBFrame)->stats);
+ if (CurCBFrame >= 0) {
+ pe_cbframe *pfp = CBFrame + CurCBFrame;
+ if (!pfp->stats)
+ pfp->stats = Estat.enter(CurCBFrame, pfp->ev->up->max_cb_tm);
+ else
+ Estat.resume(pfp->stats);
+ }
}
/* this must be last because it can destroy the watcher */
pe_event_release(ev);
gdiff -up '/usr/tmp/mp4540.d/old/Event-0.77/lib/Event.pm'
'/usr/tmp/mp4540.d/new/Event-0.78/lib/Event.pm'
Index: ./lib/Event.pm
--- ./lib/Event.pm Fri May 12 08:17:03 2000
+++ ./lib/Event.pm Wed May 24 16:25:11 2000
@@ -13,7 +13,7 @@ use Carp;
eval { require Carp::Heavy; }; # work around perl_call_pv bug XXX
use vars qw($VERSION @EXPORT_OK
$API $DebugLevel $Eval $DIED $Now);
-$VERSION = '0.77';
+$VERSION = '0.78';
# If we inherit DynaLoader then we inherit AutoLoader; Bletch!
require DynaLoader;
#### End of Patch data ####
#### ApplyPatch data follows ####
# Data version : 1.0
# Date generated : Wed May 24 16:28:55 2000
# Generated by : makepatch 2.00 (2.0BETA)
# Recurse directories : Yes
# p 'ChangeLog' 25683 959199904 0100444
# p 'Event.xs' 19087 959174600 0100444
# p 'c/ev.c' 7385 958746789 0100444
# p 'lib/Event.pm' 4074 959199911 0100444
#### End of ApplyPatch data ####
#### End of Patch kit [created: Wed May 24 16:28:55 2000] ####
#### Checksum: 98 3301 53150 ####
