Fwd: CPAN Upload: JPRIT/Event-0.64.tar.gz

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