0.82

# This is a patch for Event-0.81 to update it to Event-0.82
# 
# 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.
# If you have a decent Bourne-type shell:
# STEP 2: Run the shell with this file as input.
# If you don't have such a shell, you may need to manually create
# the files as shown below.
# STEP 3: Run the 'patch' program with this file as input.
#
# These are the commands needed to create/delete files/directories:
#
touch 'README.IRIX'
chmod 0644 'README.IRIX'
#
# This command terminates the shell and need not be executed manually.
exit
#
#### End of Preamble ####

#### Patch data follows ####
diff -c '/tmp/mp2457.d/old/Event-0.81/ChangeLog' '/tmp/mp2457.d/new/Event-0.82/ChangeLog'
Index: ./ChangeLog
*** ./ChangeLog	Wed Jan 31 22:38:00 2001
--- ./ChangeLog	Thu Jun 21 14:54:05 2001
***************
*** 1,3 ****
--- 1,11 ----
+ 2001-06-21  <[email protected]>
+ 
+ 	* Release 0.82.
+ 
+ 2001-06-21  <[email protected]>
+ 
+ 	* Stop watcher if $w->cb(undef) (Damien Neil <[email protected]>)
+ 
  2001-01-31  Joshua Pritikin  <[email protected]>
  
  	* Release 0.81.
diff -c '/tmp/mp2457.d/old/Event-0.81/MANIFEST' '/tmp/mp2457.d/new/Event-0.82/MANIFEST'
Index: ./MANIFEST
*** ./MANIFEST	Wed Nov 29 00:14:41 2000
--- ./MANIFEST	Thu Jun 21 14:48:53 2001
***************
*** 7,12 ****
--- 7,13 ----
  MANIFEST.SKIP
  Makefile.PL
  README
+ README.IRIX
  TODO
  Tutorial.pdf
  c/ev.c
diff -c /dev/null '/tmp/mp2457.d/new/Event-0.82/README.IRIX'
Index: ./README.IRIX
*** ./README.IRIX	Thu Jan  1 05:30:00 1970
--- ./README.IRIX	Thu Jun 21 14:48:44 2001
***************
*** 0 ****
--- 1,54 ----
+ Date: Tue, 15 May 2001 09:57:36 +0200 (CEST)
+ From: "Robert H. de Vries" <[email protected]>
+ Subject: Patch for SGI IRIX 6.5.10m for Event 0.81
+ 
+ 
+ Hi,
+ 
+ I have found that the io test fails on step 6-7. I found that by reverting
+ the patch from [email protected] (#undef HAS_POLL for sgi), it worked
+ again.
+ This is the output of the test when running it as: perl io.t
+ 1..8
+ ok 1
+ ok 2
+ ok 3
+ ok 4
+ ok 5
+ not ok 6
+ # Test 6 got: '0' (io.t at line 87)
+ #   Expected: '1'
+ not ok 7
+ # Failed test 7 in io.t at line 88
+ ok 8
+ 
+ Here is the patch,
+ 
+ 	Robert
+ 
+ Index: c/unix.c
+ ===================================================================
+ RCS file: /usr/local/fss/cvs/EuroFO/Environment/perl-module/Event/c/unix.c,v
+ retrieving revision 1.1.1.2
+ retrieving revision 1.4
+ diff -u -r1.1.1.2 -r1.4
+ --- unix.c	2001/05/14 15:25:20	1.1.1.2
+ +++ unix.c	2001/05/15 07:48:38	1.4
+ @@ -5,11 +5,6 @@
+    poll and select scale poorly.
+  */
+ 
+ -/* select() works better than poll() on IRIX */
+ -#ifdef sgi
+ -# undef HAS_POLL
+ -#endif
+ -
+  static int pe_sys_fileno(SV *sv, char *context) {
+      IO *io;
+      PerlIO *fp;
+ 
+ -- 
+ Robert H. de Vries	mailto:[email protected]
+ AS&E/SW			http://www.eurosim.nl
+ Fokker Space B.V.	http://www.fokkerspace.nl
+ tel: (+31)71-5245464	fax: (+31)71-5245498
diff -c '/tmp/mp2457.d/old/Event-0.81/c/watcher.c' '/tmp/mp2457.d/new/Event-0.82/c/watcher.c'
Index: ./c/watcher.c
*** ./c/watcher.c	Tue Jun 13 20:54:24 2000
--- ./c/watcher.c	Thu Jun 21 14:41:20 2001
***************
*** 90,95 ****
--- 90,96 ----
  	    WaPERLCB_off(ev);
  	    ev->callback = 0;
  	    ev->ext_data = 0;
+ 	    pe_watcher_stop(ev, 0);
  	} else if (SvROK(nval) && (SvTYPE(sv=SvRV(nval)) == SVt_PVCV)) {
  	    WaPERLCB_on(ev);
  	    ev->callback = SvREFCNT_inc(nval);
diff -c '/tmp/mp2457.d/old/Event-0.81/lib/Event.pm' '/tmp/mp2457.d/new/Event-0.82/lib/Event.pm'
Index: ./lib/Event.pm
*** ./lib/Event.pm	Wed Jan 31 22:38:09 2001
--- ./lib/Event.pm	Thu Jun 21 14:51:17 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.81';
  
  # 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.82';
  
  # If we inherit DynaLoader then we inherit AutoLoader; Bletch!
  require DynaLoader;
#### End of Patch data ####

#### ApplyPatch data follows ####
# Data version        : 1.0
# Date generated      : Thu Jun 21 14:58:49 2001
# Generated by        : makepatch 2.00_03
# Recurse directories : Yes
# p 'ChangeLog' 27445 993115445 0100444
# p 'MANIFEST' 893 993115133 0100444
# c 'README.IRIX' 0 993115124 0100644
# p 'c/watcher.c' 9530 993114680 0100444
# p 'lib/Event.pm' 4709 993115277 0100444
#### End of ApplyPatch data ####

#### End of Patch kit [created: Thu Jun 21 14:58:49 2001] ####
#### Patch checksum: 144 4152 28850 ####
#### Checksum: 174 5214 52029 ####