r15387 - in /branches/upstream/libevent-perl/current: ChangeLog Event.xs MANIFEST MANIFEST.SKIP META.yml Makefile.PL c/ev.c c/queue.c c/signal.c c/typemap.c c/var.c lib/Event.pm t/io.t t/unconfigured.t
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Fri Feb 22 02:17:20 UTC 2008
Author: rmayorga-guest
Date: Fri Feb 22 02:17:19 2008
New Revision: 15387
URL: http://svn.debian.org/wsvn/?sc=1&rev=15387
Log:
[svn-upgrade] Integrating new upstream version, libevent-perl (1.10)
Modified:
branches/upstream/libevent-perl/current/ChangeLog
branches/upstream/libevent-perl/current/Event.xs
branches/upstream/libevent-perl/current/MANIFEST
branches/upstream/libevent-perl/current/MANIFEST.SKIP
branches/upstream/libevent-perl/current/META.yml
branches/upstream/libevent-perl/current/Makefile.PL
branches/upstream/libevent-perl/current/c/ev.c
branches/upstream/libevent-perl/current/c/queue.c
branches/upstream/libevent-perl/current/c/signal.c
branches/upstream/libevent-perl/current/c/typemap.c
branches/upstream/libevent-perl/current/c/var.c
branches/upstream/libevent-perl/current/lib/Event.pm
branches/upstream/libevent-perl/current/t/io.t
branches/upstream/libevent-perl/current/t/unconfigured.t
Modified: branches/upstream/libevent-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/ChangeLog?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/ChangeLog (original)
+++ branches/upstream/libevent-perl/current/ChangeLog Fri Feb 22 02:17:19 2008
@@ -1,3 +1,21 @@
+2007-05-21 <joshua at always.joy.eth.net>
+
+ * Event is now stored in GIT. You can grab a copy with "git clone
+ git://nirmalvihar.info/home/joshua/event.git". I will not be
+ updating this ChangeLog anymore because the full history plus
+ changelog will be stored in GIT.
+
+2006-10-11 <joshua at always.joy.eth.net>
+
+ * Add casts to quell warnings as suggested by JDHEDDEN at cpan.org.
+
+2006-10-10 <joshua at always.joy.eth.net>
+
+ * Release 1.07.
+
+ * Marc Lehmann <schmorp at schmorp.de> suggests using mg_ptr instead
+ of mg_obj. Sounds good to me.
+
2005-05-14 <joshua at always.joy.eth.net>
* Release 1.06.
Modified: branches/upstream/libevent-perl/current/Event.xs
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/Event.xs?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/Event.xs (original)
+++ branches/upstream/libevent-perl/current/Event.xs Fri Feb 22 02:17:19 2008
@@ -395,7 +395,7 @@
SV **svp = hv_fetch(PL_modglobal, "Time::NVtime", 12, 0);
if (!svp || !*svp || !SvIOK(*svp))
XSRETURN_NO;
- api.NVtime = (double(*)()) SvIV(*svp);
+ api.NVtime = INT2PTR(double(*)(), SvIV(*svp));
XSRETURN_YES;
double
@@ -461,7 +461,6 @@
PREINIT:
pe_watcher *wa;
pe_event *ev;
- int cnt = 1;
PPCODE:
wa = (pe_watcher*) sv_2watcher(ST(0));
if (items == 1) {
Modified: branches/upstream/libevent-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/MANIFEST?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/MANIFEST (original)
+++ branches/upstream/libevent-perl/current/MANIFEST Fri Feb 22 02:17:19 2008
@@ -76,4 +76,4 @@
Tutorial.pdf
util/bench.pl
util/filehandle.txt
-META.yml Module meta-data (added by MakeMaker)
+META.yml
Modified: branches/upstream/libevent-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/MANIFEST.SKIP?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/MANIFEST.SKIP (original)
+++ branches/upstream/libevent-perl/current/MANIFEST.SKIP Fri Feb 22 02:17:19 2008
@@ -2,3 +2,4 @@
Makefile(\.old)?$
\.rej$
^\.i.*$
+^\.git
Modified: branches/upstream/libevent-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/META.yml?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/META.yml (original)
+++ branches/upstream/libevent-perl/current/META.yml Fri Feb 22 02:17:19 2008
@@ -1,11 +1,11 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Event
-version: 1.06
+version: 1.10
version_from: ./lib/Event.pm
installdirs: site
requires:
Test: 1
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30_01
Modified: branches/upstream/libevent-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/Makefile.PL?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/Makefile.PL (original)
+++ branches/upstream/libevent-perl/current/Makefile.PL Fri Feb 22 02:17:19 2008
@@ -1,8 +1,10 @@
# This -*- perl -*- script makes the Makefile
-require 5.005; #most likely
+require 5.006; # 5.005_005 fails
use ExtUtils::MakeMaker;
+
+#push @Safe, OPTIMIZE => '-Wall' if 1;
# Parasoft's Insure++!
push @Safe, OPTIMIZE => '-g' if 0;
Modified: branches/upstream/libevent-perl/current/c/ev.c
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/c/ev.c?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/c/ev.c (original)
+++ branches/upstream/libevent-perl/current/c/ev.c Fri Feb 22 02:17:19 2008
@@ -233,7 +233,6 @@
static void pe_check_recovery() {
/* NO ASSERTIONS HERE! EVAL CONTEXT IS VERY MESSY */
- pe_watcher *ev;
int alert;
struct pe_cbframe *fp;
if (CurCBFrame < 0)
Modified: branches/upstream/libevent-perl/current/c/queue.c
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/c/queue.c?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/c/queue.c (original)
+++ branches/upstream/libevent-perl/current/c/queue.c Fri Feb 22 02:17:19 2008
@@ -2,7 +2,6 @@
static int StarvePrio = PE_QUEUES - 2;
static void boot_queue() {
- int xx;
HV *stash = gv_stashpv("Event", 1);
PE_RING_INIT(&NQueue, 0);
newCONSTSUB(stash, "QUEUES", newSViv(PE_QUEUES));
Modified: branches/upstream/libevent-perl/current/c/signal.c
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/c/signal.c?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/c/signal.c (original)
+++ branches/upstream/libevent-perl/current/c/signal.c Fri Feb 22 02:17:19 2008
@@ -66,7 +66,7 @@
if (sig == 0)
return "without signal";
if (PE_RING_EMPTY(&Sigring[sig]))
- rsignal(sig, process_sighandler);
+ rsignal(sig, (Sighandler_t)process_sighandler);
PE_RING_UNSHIFT(&ev->sring, &Sigring[sig]);
return 0;
}
@@ -76,7 +76,7 @@
int sig = ev->signal;
PE_RING_DETACH(&ev->sring);
if (PE_RING_EMPTY(&Sigring[sig])) {
- rsignal(sig, SIG_DFL);
+ rsignal(sig, (Sighandler_t)SIG_DFL);
Sigstat[0].hits[sig] = 0;
Sigstat[1].hits[sig] = 0;
}
Modified: branches/upstream/libevent-perl/current/c/typemap.c
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/c/typemap.c?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/c/typemap.c (original)
+++ branches/upstream/libevent-perl/current/c/typemap.c Fri Feb 22 02:17:19 2008
@@ -25,7 +25,7 @@
New(0, mg, 1, MAGIC);
Zero(mg, 1, MAGIC);
mg->mg_type = '~';
- mg->mg_obj = (SV*) ptr; /* NOT refcnt'd */
+ mg->mg_ptr = (char*) ptr; /* NOT refcnt'd */
mg->mg_private = mgcode;
*mgp = mg;
@@ -47,7 +47,7 @@
if (mg->mg_private != mgcode) {
croak("Can't find event magic (SV=0x%x)", sv);
}
- return (void*) mg->mg_obj;
+ return (void*) mg->mg_ptr;
}
croak("sv_2thing: can't decode SV=0x%x", origsv);
return 0;
@@ -106,7 +106,7 @@
SV *rv = newSV(0);
SV *sv = newSVrv(rv,0);
sv_bless(rv, ev->vtbl->stash);
- sv_setiv(sv, (IV)ev);
+ sv_setiv(sv, PTR2IV(ev));
ev->mysv = rv;
if (WaDEBUGx(ev->up) >= 4) {
@@ -123,7 +123,7 @@
assert(sv);
assert(SvROK(sv));
sv = SvRV(sv);
- ptr = (void*) SvIV(sv);
+ ptr = INT2PTR(void *, SvIV(sv));
assert(ptr);
return ptr;
}
@@ -165,7 +165,6 @@
}
SV* events_mask_2sv(int mask) {
- STRLEN len;
SV *ret = newSV(0);
SvUPGRADE(ret, SVt_PVIV);
sv_setpvn(ret, "", 0);
Modified: branches/upstream/libevent-perl/current/c/var.c
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/c/var.c?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/c/var.c (original)
+++ branches/upstream/libevent-perl/current/c/var.c Fri Feb 22 02:17:19 2008
@@ -48,9 +48,9 @@
}
static I32 tracevar_r(pTHX_ IV ix, SV *sv)
-{ pe_tracevar((pe_watcher *)ix, sv, PE_R); return 0; /*ignored*/ }
+{ pe_tracevar(INT2PTR(pe_watcher *, ix), sv, PE_R); return 0; /*ignored*/ }
static I32 tracevar_w(pTHX_ IV ix, SV *sv)
-{ pe_tracevar((pe_watcher *)ix, sv, PE_W); return 0; /*ignored*/ }
+{ pe_tracevar(INT2PTR(pe_watcher *, ix), sv, PE_W); return 0; /*ignored*/ }
static char *pe_var_start(pe_watcher *_ev, int repeat) {
STRLEN n_a;
@@ -86,7 +86,7 @@
EvNew(8, ufp, 1, struct ufuncs);
ufp->uf_val = ev->events & PE_R? tracevar_r : 0;
ufp->uf_set = ev->events & PE_W? tracevar_w : 0;
- ufp->uf_index = (IV) ev;
+ ufp->uf_index = PTR2IV(ev);
mg->mg_ptr = (char *) ufp;
mg->mg_obj = (SV*) ev;
@@ -99,7 +99,6 @@
static void pe_var_stop(pe_watcher *_ev) {
MAGIC **mgp;
MAGIC *mg;
- MAGIC *mgtmp;
pe_var *ev = (pe_var*) _ev;
SV *sv = SvRV(ev->variable);
Modified: branches/upstream/libevent-perl/current/lib/Event.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/lib/Event.pm?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/lib/Event.pm (original)
+++ branches/upstream/libevent-perl/current/lib/Event.pm Fri Feb 22 02:17:19 2008
@@ -8,13 +8,13 @@
}
package Event;
-require 5.6.0; #maybe
+require 5.006; #maybe
use base 'Exporter';
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 = '1.06';
+$VERSION = '1.10';
# If we inherit DynaLoader then we inherit AutoLoader; Bletch!
require DynaLoader;
Modified: branches/upstream/libevent-perl/current/t/io.t
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/t/io.t?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/t/io.t (original)
+++ branches/upstream/libevent-perl/current/t/io.t Fri Feb 22 02:17:19 2008
@@ -1,5 +1,6 @@
# -*-perl-*- i/o
+use Config;
BEGIN {
if ($^O eq 'MSWin32') {
print "1..0\n";
@@ -84,6 +85,6 @@
loop();
-ok $noticed_bogus_fd, 1;
-ok !defined $bogus->fd;
+skip $Config{osname} eq 'darwin', $noticed_bogus_fd, 1;
+skip $Config{osname} eq 'darwin', !defined $bogus->fd;
ok $bogus_timeout > 0;
Modified: branches/upstream/libevent-perl/current/t/unconfigured.t
URL: http://svn.debian.org/wsvn/branches/upstream/libevent-perl/current/t/unconfigured.t?rev=15387&op=diff
==============================================================================
--- branches/upstream/libevent-perl/current/t/unconfigured.t (original)
+++ branches/upstream/libevent-perl/current/t/unconfigured.t Fri Feb 22 02:17:19 2008
@@ -23,5 +23,5 @@
eval { Event->var(@p, poll => 0, var => \$var) };
ok $@, '/without poll events/';
-eval { Event->var(@p, var => \$1) };
+eval { Event->var(@p, var => \$$) };
ok $@, '/read\-only/';
More information about the Pkg-perl-cvs-commits
mailing list