Fwd: CPAN Upload: J/JP/JPRIT/Event-0.78.tar.gz

----- 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 ####