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