----- Forwarded message from [EMAIL PROTECTED] -----
Date: Fri, 4 Feb 2000 23:48:19 +0100
Subject: CPAN Upload: JPRIT/Event-0.64.tar.gz
From: [EMAIL PROTECTED]
To: [EMAIL PROTECTED],
[EMAIL PROTECTED]
The uploaded file
Event-0.64.tar.gz
has entered CPAN as
file: $CPAN/authors/id/JPRIT/Event-0.64.tar.gz
size: 63204 bytes
md5: 309399ca79dc80f26746a7bb3450e0ca
No action is required on your part
Request entered by: JPRIT (Joshua N. Pritikin)
Request entered on: Fri, 04 Feb 2000 22:48:04 GMT
Request completed: Fri, 04 Feb 2000 22:48:19 GMT
Virtually Yours,
Id: paused,v 1.68 1999/10/22 14:39:12 k Exp k
----- End forwarded message -----
# This is a patch for Event-0.63 to update it to Event-0.64
#
# 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/mp23362.d/old/Event-0.63/ChangeLog'
'/usr/tmp/mp23362.d/new/Event-0.64/ChangeLog'
Index: ./ChangeLog
--- ./ChangeLog Thu Feb 3 16:34:07 2000
+++ ./ChangeLog Fri Feb 4 17:42:33 2000
@@ -1,3 +1,15 @@
+2000-02-04 Joshua Pritikin <[EMAIL PROTECTED]>
+
+ * Release 0.64.
+
+ * Applied patch from [EMAIL PROTECTED] that allows one to obtain the
+ number of events a watcher has pending in the event queue. Also,
+ included was a cosmetic fix for the typemap.
+
+ * Load the basic watcher types by default.
+
+ * Adjust hup.t test ([EMAIL PROTECTED]).
+
2000-02-03 Joshua Pritikin <[EMAIL PROTECTED]>
* Release 0.63.
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/Event.xs'
'/usr/tmp/mp23362.d/new/Event-0.64/Event.xs'
Index: ./Event.xs
--- ./Event.xs Wed Feb 2 13:21:15 2000
+++ ./Event.xs Fri Feb 4 17:39:18 2000
@@ -531,6 +531,13 @@ DESTROY(ref)
}
}
+int
+pe_watcher::pending()
+ CODE:
+ RETVAL = THIS->event_counter;
+ OUTPUT:
+ RETVAL
+
void
pe_watcher::again()
CODE:
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/lib/Event.pm'
'/usr/tmp/mp23362.d/new/Event-0.64/lib/Event.pm'
Index: ./lib/Event.pm
--- ./lib/Event.pm Thu Feb 3 16:34:16 2000
+++ ./lib/Event.pm Fri Feb 4 17:42:44 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.63';
+$VERSION = '0.64';
# If we inherit DynaLoader then we inherit AutoLoader; Bletch!
require DynaLoader;
@@ -54,15 +54,11 @@ sub _load_watcher {
1;
}
-# We use AUTOLOAD to load the Event source packages, so
-# Event->process will load Event::process
-
sub AUTOLOAD {
my $sub = ($Event::AUTOLOAD =~ /(\w+)$/)[0];
_load_watcher($sub) or croak $@ . ', Undefined subroutine &' . $sub;
carp "Autoloading with Event->$sub(...) is deprecated;
-\tplease 'use Event::type qw($sub);' explicitly
-\tor 'use Event::type qw(:all)';";
+\tplease 'use Event::type qw($sub);' explicitly";
goto &$sub;
}
@@ -185,12 +181,14 @@ sub add_hooks {
}
}
-END { $_->cancel for all_watchers() }
-
-require Event::Watcher;
+END { $_->cancel for all_watchers() } # buggy? XXX
package Event::Event::Io;
use vars qw(@ISA);
@ISA = 'Event::Event';
+
+package Event;
+require Event::Watcher;
+_load_watcher($_) for qw(idle io signal timer var);
1;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/lib/Event.pod'
'/usr/tmp/mp23362.d/new/Event-0.64/lib/Event.pod'
Index: ./lib/Event.pod
--- ./lib/Event.pod Thu Feb 3 13:54:00 2000
+++ ./lib/Event.pod Fri Feb 4 17:39:18 2000
@@ -179,6 +179,11 @@ not affected by suspend.
Reports whether the C<$watcher> is suspended.
+=item $watcher->pending
+
+Returns how many events this watcher has with the callback still pending
+in the event queue.
+
=back
=head2 Watcher Types
@@ -269,7 +274,8 @@ the ones with the highest priority are s
use Event qw(PRIO_HIGH PRIO_NORMAL); # some constants
LEVELS: -1 0 1 2 3 4 5 6
- PRIO_HIGH PRIO_NORMAL
+ ----------------------+-------------+---------------
+ PRIO_HIGH PRIO_NORMAL
A negative priority causes the callback to be invoked immediately upon
event occurance. Use this with caution. While it may seem
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/attach_to.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/attach_to.t'
Index: ./t/attach_to.t
--- ./t/attach_to.t Thu Feb 3 13:36:25 2000
+++ ./t/attach_to.t Fri Feb 4 08:14:42 2000
@@ -3,7 +3,6 @@
use strict;
use Test; plan tests => 3;
use Event 0.53;
-use Event::type qw(timer);
# $Event::DebugLevel = 3;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/bored.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/bored.t'
Index: ./t/bored.t
--- ./t/bored.t Thu Feb 3 13:36:50 2000
+++ ./t/bored.t Fri Feb 4 08:14:49 2000
@@ -1,7 +1,6 @@
# -*- perl -*-
use Test; plan test => 4;
use Event;
-use Event::type qw(timer);
# $Event::DebugLevel = 3;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/callback.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/callback.t'
Index: ./t/callback.t
--- ./t/callback.t Thu Feb 3 13:37:12 2000
+++ ./t/callback.t Fri Feb 4 08:14:56 2000
@@ -3,7 +3,6 @@
use strict;
use Test; plan tests => 3;
use Event 0.53;
-use Event::type qw(timer);
my $invoked_method=0;
sub method {
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/delete.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/delete.t'
Index: ./t/delete.t
--- ./t/delete.t Thu Feb 3 13:37:34 2000
+++ ./t/delete.t Fri Feb 4 08:15:02 2000
@@ -3,7 +3,6 @@
use strict;
use Test; plan tests => 1;
use Event 0.40 qw(loop unloop);
-use Event::type qw(timer);
package Foo;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/eval.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/eval.t'
Index: ./t/eval.t
--- ./t/eval.t Thu Feb 3 13:38:06 2000
+++ ./t/eval.t Fri Feb 4 08:15:08 2000
@@ -3,7 +3,6 @@
use Carp;# 'verbose';
use Test; plan tests => 7;
use Event qw(all_running loop unloop sweep);
-use Event::type qw(idle);
# $Event::DebugLevel = 3;
my $die = Event->idle(cb => sub { die "died\n" }, desc => 'killer');
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/hook.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/hook.t'
Index: ./t/hook.t
--- ./t/hook.t Thu Feb 3 13:38:28 2000
+++ ./t/hook.t Fri Feb 4 08:15:13 2000
@@ -3,7 +3,6 @@
use strict;
use Test; plan test => 4;
use Event qw(sweep sleep);
-use Event::type qw(timer);
my ($p,$c,$ac,$cb) = (0)x4;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/hup.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/hup.t'
Index: ./t/hup.t
--- ./t/hup.t Thu Feb 3 13:38:51 2000
+++ ./t/hup.t Fri Feb 4 08:15:22 2000
@@ -10,9 +10,8 @@ BEGIN {
# contributed by Gisle Aas <[EMAIL PROTECTED]>
-use Event qw(loop unloop);
-use Event::type qw(io);
use Test; plan test => 1;
+use Event qw(loop unloop);
$| = 1;
my $pid = open(PIPE, "-|");
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/idle.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/idle.t'
Index: ./t/idle.t
--- ./t/idle.t Thu Feb 3 13:41:26 2000
+++ ./t/idle.t Fri Feb 4 08:15:30 2000
@@ -2,7 +2,6 @@
use Test; plan tests => 4;
use Event qw(loop unloop);
-use Event::type qw(idle);
# $Event::Eval = 1;
#$Event::DebugLevel = 0;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/idle2.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/idle2.t'
Index: ./t/idle2.t
--- ./t/idle2.t Thu Feb 3 13:42:00 2000
+++ ./t/idle2.t Fri Feb 4 08:15:38 2000
@@ -14,8 +14,6 @@ BEGIN {
use Test; plan tests => 5;
use Event qw(loop unloop time all_events one_event);
-require Event::idle;
-require Event::timer;
# $Event::Eval = 1;
# $Event::DebugLevel = 4;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/io.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/io.t'
Index: ./t/io.t
--- ./t/io.t Thu Feb 3 13:42:28 2000
+++ ./t/io.t Fri Feb 4 08:15:51 2000
@@ -10,7 +10,6 @@ BEGIN {
use Test; plan tests => 6;
use Event qw(loop unloop);
-use Event::type qw(io);
use Event::Watcher qw(R W);
use Symbol;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/leak.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/leak.t'
Index: ./t/leak.t
--- ./t/leak.t Thu Feb 3 13:34:03 2000
+++ ./t/leak.t Fri Feb 4 08:15:58 2000
@@ -1,7 +1,6 @@
# leak -*-perl-*-
use Test; plan test => 6;
use Event qw(all_watchers);
-use Event::type ':all';
my @e = Event::all_watchers();
ok @e, 0;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/leak2.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/leak2.t'
Index: ./t/leak2.t
--- ./t/leak2.t Thu Feb 3 13:43:13 2000
+++ ./t/leak2.t Fri Feb 4 08:16:25 2000
@@ -19,7 +19,6 @@
use Test; plan test => 2;
use Event;
-use Event::type qw(io timer);
# $Event::DebugLevel = 3;
sub check {warn "[DBG] ", join('-', Event::_memory_counters), "\n";}
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/loop.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/loop.t'
Index: ./t/loop.t
--- ./t/loop.t Thu Feb 3 13:43:36 2000
+++ ./t/loop.t Fri Feb 4 08:16:53 2000
@@ -3,7 +3,6 @@
use strict;
use Test; plan tests => 3;
use Event qw(loop unloop);
-use Event::type qw(idle timer);
# $Event::DebugLevel = 2;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/now.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/now.t'
Index: ./t/now.t
--- ./t/now.t Thu Feb 3 13:43:55 2000
+++ ./t/now.t Fri Feb 4 08:16:58 2000
@@ -2,7 +2,6 @@
use Test; plan tests => 3;
use Event qw(loop unloop);
-use Event::type qw(idle timer);
# $Event::DebugLevel = 3;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/reenter.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/reenter.t'
Index: ./t/reenter.t
--- ./t/reenter.t Thu Feb 3 13:44:15 2000
+++ ./t/reenter.t Fri Feb 4 08:17:03 2000
@@ -9,7 +9,6 @@ BEGIN {
use Test; plan test => 7;
use Event qw(loop unloop one_event all_running);
-require Event::io;
#$Event::DebugLevel = 4;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/signal.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/signal.t'
Index: ./t/signal.t
--- ./t/signal.t Thu Feb 3 13:44:37 2000
+++ ./t/signal.t Fri Feb 4 08:17:37 2000
@@ -10,7 +10,6 @@ BEGIN {
use Test; plan tests => 4;
use Event qw(loop unloop);
-use Event::type qw(signal idle);
#$Event::DebugLevel = 3;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/timeout_cb.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/timeout_cb.t'
Index: ./t/timeout_cb.t
--- ./t/timeout_cb.t Thu Feb 3 13:44:55 2000
+++ ./t/timeout_cb.t Fri Feb 4 08:17:43 2000
@@ -2,7 +2,6 @@
use Test; plan tests => 6;
use Event qw(loop);
-require Event::io;
sub step1 {
my ($e) = @_;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/timer.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/timer.t'
Index: ./t/timer.t
--- ./t/timer.t Thu Feb 3 13:45:13 2000
+++ ./t/timer.t Fri Feb 4 08:17:48 2000
@@ -2,7 +2,6 @@
use Test; plan tests => 6;
use Event qw(loop unloop);
-require Event::timer;
# $Event::DebugLevel = 4;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/unconfigured.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/unconfigured.t'
Index: ./t/unconfigured.t
--- ./t/unconfigured.t Thu Feb 3 16:04:16 2000
+++ ./t/unconfigured.t Fri Feb 4 08:17:57 2000
@@ -3,7 +3,6 @@
use strict;
use Test; plan test => 7;
use Event;
-use Event::type ':all';
eval { Event->io };
ok $@, '/unconfigured/';
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/t/var.t'
'/usr/tmp/mp23362.d/new/Event-0.64/t/var.t'
Index: ./t/var.t
--- ./t/var.t Thu Feb 3 16:12:31 2000
+++ ./t/var.t Fri Feb 4 08:18:02 2000
@@ -3,7 +3,6 @@
use strict;
use Test; plan test => 6;
use Event qw(loop unloop);
-use Event::type qw(var idle);
# $Event::DebugLevel = 2;
gdiff -up '/usr/tmp/mp23362.d/old/Event-0.63/typemap'
'/usr/tmp/mp23362.d/new/Event-0.64/typemap'
Index: ./typemap
--- ./typemap Wed Dec 22 17:00:09 1999
+++ ./typemap Fri Feb 4 17:39:18 2000
@@ -6,15 +6,15 @@ pe_event * O_EVENT
INPUT
O_WATCHER
- $var = ($type) sv_2watcher($arg);
+ $var = ($type) sv_2watcher($arg)
O_EVENT
- $var = ($type) sv_2event($arg);
+ $var = ($type) sv_2event($arg)
OUTPUT
O_WATCHER
- croak("use watcher_2sv($var)");
+ croak("use watcher_2sv($var)")
O_EVENT
- croak("use event_2sv($var)");
+ croak("use event_2sv($var)")
#### End of Patch data ####
#### ApplyPatch data follows ####
# Data version : 1.0
# Date generated : Sat Feb 5 09:21:43 2000
# Generated by : makepatch 2.00 (2.0BETA)
# Recurse directories : Yes
# p 'ChangeLog' 21413 949704153 0100444
# p 'Event.xs' 17320 949703958 0100444
# p 'lib/Event.pm' 4306 949704164 0100444
# p 'lib/Event.pod' 21713 949703958 0100444
# p 't/attach_to.t' 307 949670082 0100444
# p 't/bored.t' 366 949670089 0100444
# p 't/callback.t' 519 949670096 0100444
# p 't/delete.t' 310 949670102 0100444
# p 't/eval.t' 860 949670108 0100444
# p 't/hook.t' 371 949670113 0100444
# p 't/hup.t' 727 949670122 0100444
# p 't/idle.t' 772 949670130 0100444
# p 't/idle2.t' 1177 949670138 0100444
# p 't/io.t' 1674 949670151 0100444
# p 't/leak.t' 683 949670158 0100444
# p 't/leak2.t' 1092 949670185 0100444
# p 't/loop.t' 676 949670213 0100444
# p 't/now.t' 334 949670218 0100444
# p 't/reenter.t' 913 949670223 0100444
# p 't/signal.t' 582 949670257 0100444
# p 't/timeout_cb.t' 509 949670263 0100444
# p 't/timer.t' 893 949670268 0100444
# p 't/unconfigured.t' 500 949670277 0100444
# p 't/var.t' 830 949670282 0100444
# p 'typemap' 238 949703958 0100444
#### End of ApplyPatch data ####
#### End of Patch kit [created: Sat Feb 5 09:21:43 2000] ####
#### Checksum: 433 13125 50365 ####
--
"Never ascribe to malice that which can be explained by stupidity."
via, but not speaking for Deutsche Bank
