r14816 - in /trunk/libevent-perl: Event.xs Makefile.PL c/ev.c c/group.c c/idle.c c/queue.c c/signal.c c/timeable.c c/timer.c c/typemap.c debian/ debian/changelog debian/compat debian/control debian/copyright debian/docs debian/rules
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Wed Feb 13 07:49:28 UTC 2008
Author: tincho-guest
Date: Wed Feb 13 07:49:27 2008
New Revision: 14816
URL: http://svn.debian.org/wsvn/?sc=1&rev=14816
Log:
[svn-inject] Applying Debian modifications to trunk
Added:
trunk/libevent-perl/debian/
trunk/libevent-perl/debian/changelog
trunk/libevent-perl/debian/compat
trunk/libevent-perl/debian/control
trunk/libevent-perl/debian/copyright
trunk/libevent-perl/debian/docs
trunk/libevent-perl/debian/rules (with props)
Modified:
trunk/libevent-perl/Event.xs
trunk/libevent-perl/Makefile.PL
trunk/libevent-perl/c/ev.c
trunk/libevent-perl/c/group.c
trunk/libevent-perl/c/idle.c
trunk/libevent-perl/c/queue.c
trunk/libevent-perl/c/signal.c
trunk/libevent-perl/c/timeable.c
trunk/libevent-perl/c/timer.c
trunk/libevent-perl/c/typemap.c
Modified: trunk/libevent-perl/Event.xs
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/Event.xs?rev=14816&op=diff
==============================================================================
--- trunk/libevent-perl/Event.xs (original)
+++ trunk/libevent-perl/Event.xs Wed Feb 13 07:49:27 2008
@@ -47,7 +47,7 @@
#define warn Event_warn
static void Event_warn(const char* pat, ...) {
- STRLEN n_a;
+ /* STRLEN n_a; */
dSP;
SV *msg;
va_list args;
@@ -70,7 +70,7 @@
#define croak Event_croak
static void Event_croak(const char* pat, ...) {
- STRLEN n_a;
+ /* STRLEN n_a; */
dSP;
SV *msg;
va_list args;
@@ -182,7 +182,7 @@
register HV *hv = newHV();
register HE *entry;
hv_iterinit(ohv); /* NOTE: this resets the iterator */
- while (entry = hv_iternext(ohv)) {
+ while ((entry = hv_iternext(ohv))) {
hv_store(hv, HeKEY(entry), HeKLEN(entry),
SvREFCNT_inc(HeVAL(entry)), HeHASH(entry));
}
Modified: trunk/libevent-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/Makefile.PL?rev=14816&op=diff
==============================================================================
--- trunk/libevent-perl/Makefile.PL (original)
+++ trunk/libevent-perl/Makefile.PL Wed Feb 13 07:49:27 2008
@@ -3,6 +3,16 @@
require 5.005; #most likely
use ExtUtils::MakeMaker;
+
+# MakeMaker doesn't know about arch :(
+sub MY::libscan {
+ my ($self, $path) = @_;
+ my ($dirs,$file) = ($self->splitpath($path))[1,2];
+
+ return '' if grep /^(?:\.arch-ids|{arch}|,,.*|\+\+.*)$/,
+ $self->splitdir($dirs), $file;
+ return $self->MM::libscan($path);
+}
# Parasoft's Insure++!
push @Safe, OPTIMIZE => '-g' if 0;
Modified: trunk/libevent-perl/c/ev.c
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/c/ev.c?rev=14816&op=diff
==============================================================================
--- trunk/libevent-perl/c/ev.c (original)
+++ trunk/libevent-perl/c/ev.c Wed Feb 13 07:49:27 2008
@@ -233,7 +233,7 @@
static void pe_check_recovery() {
/* NO ASSERTIONS HERE! EVAL CONTEXT IS VERY MESSY */
- pe_watcher *ev;
+ /* pe_watcher *ev; */
int alert;
struct pe_cbframe *fp;
if (CurCBFrame < 0)
Modified: trunk/libevent-perl/c/group.c
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/c/group.c?rev=14816&op=diff
==============================================================================
--- trunk/libevent-perl/c/group.c (original)
+++ trunk/libevent-perl/c/group.c Wed Feb 13 07:49:27 2008
@@ -48,7 +48,7 @@
{ pe_timeable_stop(&((pe_group*)ev)->tm); }
static void pe_group_alarm(pe_watcher *wa, pe_timeable *tm) {
- STRLEN n_a;
+ /* STRLEN n_a; */
pe_group *gp = (pe_group*) wa;
double timeout;
double remaining;
Modified: trunk/libevent-perl/c/idle.c
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/c/idle.c?rev=14816&op=diff
==============================================================================
--- trunk/libevent-perl/c/idle.c (original)
+++ trunk/libevent-perl/c/idle.c Wed Feb 13 07:49:27 2008
@@ -1,7 +1,7 @@
static struct pe_watcher_vtbl pe_idle_vtbl;
static pe_ring Idle;
-/*#define D_IDLE(x) x /**/
+/*#define D_IDLE(x) x */
#define D_IDLE(x) /**/
static pe_watcher *pe_idle_allocate(HV *stash, SV *temple) {
Modified: trunk/libevent-perl/c/queue.c
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/c/queue.c?rev=14816&op=diff
==============================================================================
--- trunk/libevent-perl/c/queue.c (original)
+++ trunk/libevent-perl/c/queue.c Wed Feb 13 07:49:27 2008
@@ -2,7 +2,7 @@
static int StarvePrio = PE_QUEUES - 2;
static void boot_queue() {
- int xx;
+ /* int xx; */
HV *stash = gv_stashpv("Event", 1);
PE_RING_INIT(&NQueue, 0);
newCONSTSUB(stash, "QUEUES", newSViv(PE_QUEUES));
@@ -73,13 +73,13 @@
{
/* queue in reverse direction? XXX */
- /* warn("-- adding 0x%x/%d\n", ev, prio); db_show_queue();/**/
+ /* warn("-- adding 0x%x/%d\n", ev, prio); db_show_queue(); */
pe_ring *rg;
rg = NQueue.next;
while (rg->self && ((pe_event*)rg->self)->prio <= ev->prio)
rg = rg->next;
PE_RING_ADD_BEFORE(&ev->que, rg);
- /* warn("=\n"); db_show_queue();/**/
+ /* warn("=\n"); db_show_queue(); */
++ActiveWatchers;
}
}
@@ -150,7 +150,7 @@
static int one_event(double tm) { /**INVOKE**/
/*if (SvIVX(DebugLevel) >= 4)
- warn("Event: ActiveWatchers=%d\n", ActiveWatchers); /**/
+ warn("Event: ActiveWatchers=%d\n", ActiveWatchers); */
pe_signal_asynccheck();
if (!PE_RING_EMPTY(&AsyncCheck)) pe_map_check(&AsyncCheck);
Modified: trunk/libevent-perl/c/signal.c
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/c/signal.c?rev=14816&op=diff
==============================================================================
--- trunk/libevent-perl/c/signal.c (original)
+++ trunk/libevent-perl/c/signal.c Wed Feb 13 07:49:27 2008
@@ -88,7 +88,7 @@
STRLEN n_a;
int active = WaPOLLING(ev);
int sig = whichsig(SvPV(nval, n_a));
- /*warn("whichsig(%s) = %d", SvPV(nval,na), sig); /**/
+ /*warn("whichsig(%s) = %d", SvPV(nval,na), sig); */
if (sig == 0)
croak("Unrecognized signal '%s'", SvPV(nval, n_a));
if (!PE_SIGVALID(sig))
Modified: trunk/libevent-perl/c/timeable.c
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/c/timeable.c?rev=14816&op=diff
==============================================================================
--- trunk/libevent-perl/c/timeable.c (original)
+++ trunk/libevent-perl/c/timeable.c Wed Feb 13 07:49:27 2008
@@ -1,6 +1,6 @@
static pe_timeable Timeables;
-/*#define D_TIMEABLE(x) x /**/
+/*#define D_TIMEABLE(x) x */
#define D_TIMEABLE(x) /**/
/* BROQ
@@ -18,7 +18,7 @@
static void pe_timeables_check() {
pe_timeable *tm = (pe_timeable*) Timeables.ring.next;
double now = NVtime() + IntervalEpsilon;
- /* warn("timeables at %.2f\n", now); db_show_timeables();/**/
+ /* warn("timeables at %.2f\n", now); db_show_timeables(); */
while (tm->ring.self && now >= tm->at) {
pe_watcher *ev = (pe_watcher*) tm->ring.self;
pe_timeable *next = (pe_timeable*) tm->ring.next;
@@ -60,9 +60,9 @@
while (rg->ring.self && rg->at < tm->at) {
rg = (pe_timeable*) rg->ring.next;
}
- /*warn("-- adding 0x%x:\n", ev); db_show_timeables();/**/
+ /*warn("-- adding 0x%x:\n", ev); db_show_timeables(); */
PE_RING_ADD_BEFORE(&tm->ring, &rg->ring);
- /*warn("T:\n"); db_show_timeables();/**/
+ /*warn("T:\n"); db_show_timeables(); */
D_TIMEABLE({
if (WaDEBUGx(ev) >= 4) {
warn("Event: timeable start '%s'\n", SvPV(ev->desc, n_a));
Modified: trunk/libevent-perl/c/timer.c
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/c/timer.c?rev=14816&op=diff
==============================================================================
--- trunk/libevent-perl/c/timer.c (original)
+++ trunk/libevent-perl/c/timer.c Wed Feb 13 07:49:27 2008
@@ -20,7 +20,7 @@
}
static char *pe_timer_start(pe_watcher *ev, int repeat) {
- STRLEN n_a;
+ /* STRLEN n_a; */
pe_timer *tm = (pe_timer*) ev;
if (!ev->callback)
return "without callback";
Modified: trunk/libevent-perl/c/typemap.c
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/c/typemap.c?rev=14816&op=diff
==============================================================================
--- trunk/libevent-perl/c/typemap.c (original)
+++ trunk/libevent-perl/c/typemap.c Wed Feb 13 07:49:27 2008
@@ -165,7 +165,7 @@
}
SV* events_mask_2sv(int mask) {
- STRLEN len;
+ /* STRLEN len; */
SV *ret = newSV(0);
SvUPGRADE(ret, SVt_PVIV);
sv_setpvn(ret, "", 0);
Added: trunk/libevent-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/debian/changelog?rev=14816&op=file
==============================================================================
--- trunk/libevent-perl/debian/changelog (added)
+++ trunk/libevent-perl/debian/changelog Wed Feb 13 07:49:27 2008
@@ -1,0 +1,69 @@
+libevent-perl (1.06-1) unstable; urgency=low
+
+ * New upstream release.
+ + Fixes a memory leak. (Closes: #324662)
+
+ -- Steve Kowalik <stevenk at debian.org> Tue, 23 Aug 2005 22:12:13 +1000
+
+libevent-perl (1.04-1) unstable; urgency=medium
+
+ * New upstream release. (Closes: #303594)
+
+ -- Steve Kowalik <stevenk at debian.org> Sat, 9 Apr 2005 19:47:24 +1000
+
+libevent-perl (1.02-1) unstable; urgency=low
+
+ * New upstream release.
+
+ -- Steve Kowalik <stevenk at debian.org> Sun, 2 Jan 2005 02:49:08 +1100
+
+libevent-perl (1.00-2) unstable; urgency=low
+
+ * Change Section to perl.
+ * Correct spelling error in long description. (Closes: #263788)
+ * Fix up the rules file a bit.
+
+ -- Steve Kowalik <stevenk at debian.org> Fri, 6 Aug 2004 09:49:26 +1000
+
+libevent-perl (1.00-1) unstable; urgency=low
+
+ * New upstream release.
+ * Move to debhelper compat level 4, change build-deps accordingly.
+ * Bump Standards-Version to 3.6.1; no changes needed.
+
+ -- Steve Kowalik <stevenk at debian.org> Mon, 2 Aug 2004 10:01:48 +1000
+
+libevent-perl (0.87-1) unstable; urgency=low
+
+ * New upstream release.
+ * Recompile to pick up perlapi-5.8 depends. (Closes: #186497)
+ * Drop Build-Depends on perl to 5.6.1-16. (Now go away, Gus.)
+ * Drop dh_undocumented from debian/rules.
+ * Kick to Standards-Version 3.5.9; no changes needed.
+
+ -- Steve Kowalik <stevenk at debian.org> Fri, 28 Mar 2003 17:14:25 +1100
+
+libevent-perl (0.86+1-2) unstable; urgency=low
+
+ * Clean up some of the warnings as best I can.
+ * Stuff 'make test' into its own target in debian/rules.
+ * Recommend libtime-hires-perl.
+
+ -- Steve Kowalik <stevenk at debian.org> Mon, 21 Oct 2002 22:17:16 +1000
+
+libevent-perl (0.86+1-1) unstable; urgency=low
+
+ * Whoops, this package is not binary-indep. Change to Build-Depends, from
+ Build-Depends-Indep. (Closes: #165426)
+ * Sigh, this package was marked as native, fixing.
+
+ -- Steve Kowalik <stevenk at debian.org> Sat, 19 Oct 2002 11:51:49 +1000
+
+libevent-perl (0.86-1) unstable; urgency=low
+
+ * Initial release. (Closes: #158013)
+ * Many, many thanks to Brendan O'Dea and Colin Watson for their help in
+ fixing the fails-to-build-with-5.8 bug.
+
+ -- Steve Kowalik <stevenk at debian.org> Wed, 16 Oct 2002 22:32:05 +1000
+
Added: trunk/libevent-perl/debian/compat
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/debian/compat?rev=14816&op=file
==============================================================================
--- trunk/libevent-perl/debian/compat (added)
+++ trunk/libevent-perl/debian/compat Wed Feb 13 07:49:27 2008
@@ -1,0 +1,1 @@
+4
Added: trunk/libevent-perl/debian/control
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/debian/control?rev=14816&op=file
==============================================================================
--- trunk/libevent-perl/debian/control (added)
+++ trunk/libevent-perl/debian/control Wed Feb 13 07:49:27 2008
@@ -1,0 +1,16 @@
+Source: libevent-perl
+Section: perl
+Priority: optional
+Maintainer: Steve Kowalik <stevenk at debian.org>
+Standards-Version: 3.6.1
+Build-Depends: debhelper (>= 4.0.0), perl (>= 5.6.1-16)
+
+Package: libevent-perl
+Architecture: any
+Depends: ${perl:Depends}
+Recommends: libtime-hires-perl
+Description: Generic Perl event loop
+ Provides a simple and optimized event loop for a rather broad number of
+ applications. It allows Perl programs to register interest in events that
+ concern it, and will receive those events.
+
Added: trunk/libevent-perl/debian/copyright
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/debian/copyright?rev=14816&op=file
==============================================================================
--- trunk/libevent-perl/debian/copyright (added)
+++ trunk/libevent-perl/debian/copyright Wed Feb 13 07:49:27 2008
@@ -1,0 +1,12 @@
+The sources of this package can be obtained from:
+ http://search.cpan.org/author/JPRIT/Event/
+
+Copyright (c) 1998-2002, Joshua Nathaniel Pritikin <vishnu at pobox.com>
+
+This program is free software; you can redistribute it and/or
+modify it under the terms of Perl itself. (that is, either the
+Artistic License or GPL as you prefer).
+
+The GPL and Artistic licenses can be found under
+/usr/share/common-licenses/{GPL,Artistic} on Debian systems.
+
Added: trunk/libevent-perl/debian/docs
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/debian/docs?rev=14816&op=file
==============================================================================
--- trunk/libevent-perl/debian/docs (added)
+++ trunk/libevent-perl/debian/docs Wed Feb 13 07:49:27 2008
@@ -1,0 +1,3 @@
+README
+TODO
+Tutorial.pdf
Added: trunk/libevent-perl/debian/rules
URL: http://svn.debian.org/wsvn/trunk/libevent-perl/debian/rules?rev=14816&op=file
==============================================================================
--- trunk/libevent-perl/debian/rules (added)
+++ trunk/libevent-perl/debian/rules Wed Feb 13 07:49:27 2008
@@ -1,0 +1,67 @@
+#!/usr/bin/make -f
+
+ifndef PERL
+PERL = /usr/bin/perl
+endif
+
+build: build-stamp
+build-stamp:
+ dh_testdir
+
+ # Add here commands to compile the package.
+ $(PERL) Makefile.PL INSTALLDIRS=vendor
+ $(MAKE) OPTIMIZE="-O2 -g -Wall"
+
+ touch build-stamp
+
+test: test-stamp
+test-stamp:
+ $(MAKE) test
+ touch test-stamp
+
+clean:
+ dh_testdir
+ dh_testroot
+ rm -f build-stamp test-stamp
+
+ # Add here commands to clean up after the build process.
+ -$(MAKE) clean
+ -$(MAKE) distclean
+
+ rm -f Makefile.old
+
+ dh_clean
+
+install: build test
+ dh_testdir
+ dh_testroot
+ dh_clean -k
+ dh_installdirs
+
+ # Add here commands to install the package into debian/<packagename>
+ $(MAKE) PREFIX=`pwd`/debian/`dh_listpackages`/usr install
+
+# Build architecture-independent files here.
+binary-indep: build install
+# We have nothing to do by default.
+
+# Build architecture-dependent files here.
+binary-arch: build install
+ dh_testdir
+ dh_testroot
+ dh_installdocs
+ dh_installman
+ dh_installinfo
+ dh_installchangelogs
+ dh_link
+ dh_strip
+ dh_compress
+ dh_fixperms
+ dh_installdeb
+ dh_perl
+ dh_gencontrol
+ dh_md5sums
+ dh_builddeb
+
+binary: binary-indep binary-arch
+.PHONY: build clean binary-indep binary-arch binary install
Propchange: trunk/libevent-perl/debian/rules
------------------------------------------------------------------------------
svn:executable = *
More information about the Pkg-perl-cvs-commits
mailing list