r56704 - in /trunk/libsys-syscall-perl: CHANGES CONTRIBUTING.txt MANIFEST META.yml Makefile.PL README.pod debian/changelog lib/Sys/Syscall.pm t/01-epoll.t
italo-guest at users.alioth.debian.org
italo-guest at users.alioth.debian.org
Fri Apr 23 17:45:30 UTC 2010
Author: italo-guest
Date: Fri Apr 23 17:45:22 2010
New Revision: 56704
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56704
Log:
new upstream release: be working on
Added:
trunk/libsys-syscall-perl/CONTRIBUTING.txt
- copied unchanged from r56703, branches/upstream/libsys-syscall-perl/current/CONTRIBUTING.txt
trunk/libsys-syscall-perl/README.pod
- copied unchanged from r56703, branches/upstream/libsys-syscall-perl/current/README.pod
Modified:
trunk/libsys-syscall-perl/CHANGES
trunk/libsys-syscall-perl/MANIFEST
trunk/libsys-syscall-perl/META.yml
trunk/libsys-syscall-perl/Makefile.PL
trunk/libsys-syscall-perl/debian/changelog
trunk/libsys-syscall-perl/lib/Sys/Syscall.pm
trunk/libsys-syscall-perl/t/01-epoll.t
Modified: trunk/libsys-syscall-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-syscall-perl/CHANGES?rev=56704&op=diff
==============================================================================
--- trunk/libsys-syscall-perl/CHANGES (original)
+++ trunk/libsys-syscall-perl/CHANGES Fri Apr 23 17:45:22 2010
@@ -1,3 +1,6 @@
+0.23:
+ - test bug fix https://rt.cpan.org/Public/Bug/Display.html?id=54322
+
0.22:
- don't modify non-localized $_. whoops. (we don't want to mess
with our caller's world)
Modified: trunk/libsys-syscall-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-syscall-perl/MANIFEST?rev=56704&op=diff
==============================================================================
--- trunk/libsys-syscall-perl/MANIFEST (original)
+++ trunk/libsys-syscall-perl/MANIFEST Fri Apr 23 17:45:22 2010
@@ -1,6 +1,8 @@
Makefile.PL
CHANGES
MANIFEST This list of files
+CONTRIBUTING.txt
+README.pod
lib/Sys/Syscall.pm
META.yml
t/00-use.t
Modified: trunk/libsys-syscall-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-syscall-perl/META.yml?rev=56704&op=diff
==============================================================================
--- trunk/libsys-syscall-perl/META.yml (original)
+++ trunk/libsys-syscall-perl/META.yml Fri Apr 23 17:45:22 2010
@@ -1,12 +1,15 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Sys-Syscall
-version: 0.22
-version_from: lib/Sys/Syscall.pm
-installdirs: site
-requires:
+--- #YAML:1.0
+name: Sys-Syscall
+version: 0.23
+abstract: Invoke system calls that are otherwise difficult to do from Perl.
+license: ~
+author:
+ - Brad Fitzpatrick <brad at danga.com>
+generated_by: ExtUtils::MakeMaker version 6.42
+distribution_type: module
+requires:
POSIX: 0
Test::More: 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: trunk/libsys-syscall-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-syscall-perl/Makefile.PL?rev=56704&op=diff
==============================================================================
--- trunk/libsys-syscall-perl/Makefile.PL (original)
+++ trunk/libsys-syscall-perl/Makefile.PL Fri Apr 23 17:45:22 2010
@@ -1,7 +1,7 @@
#!/usr/bin/perl
#
# Perl Makefile for Perlbal
-# $Id: Makefile.PL 4 2005-07-30 04:56:21Z bradfitz $
+# $Id$
#
# Invoke with 'perl Makefile.PL'
#
Modified: trunk/libsys-syscall-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-syscall-perl/debian/changelog?rev=56704&op=diff
==============================================================================
--- trunk/libsys-syscall-perl/debian/changelog (original)
+++ trunk/libsys-syscall-perl/debian/changelog Fri Apr 23 17:45:22 2010
@@ -1,3 +1,9 @@
+libsys-syscall-perl (0.23-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Italo Valcy <italo at dcc.ufba.br> Sun, 18 Apr 2010 22:16:32 -0300
+
libsys-syscall-perl (0.22-4) UNRELEASED; urgency=low
[ gregor herrmann ]
Modified: trunk/libsys-syscall-perl/lib/Sys/Syscall.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-syscall-perl/lib/Sys/Syscall.pm?rev=56704&op=diff
==============================================================================
--- trunk/libsys-syscall-perl/lib/Sys/Syscall.pm (original)
+++ trunk/libsys-syscall-perl/lib/Sys/Syscall.pm Fri Apr 23 17:45:22 2010
@@ -8,7 +8,7 @@
require Exporter;
use vars qw(@ISA @EXPORT_OK %EXPORT_TAGS $VERSION);
-$VERSION = "0.22";
+$VERSION = "0.23";
@ISA = qw(Exporter);
@EXPORT_OK = qw(sendfile epoll_ctl epoll_create epoll_wait
EPOLLIN EPOLLOUT EPOLLERR EPOLLHUP EPOLLRDBAND
@@ -325,6 +325,12 @@
If you need more liberal licensing terms, please contact the
maintainer.
+=head1 Contributing
+
+Want to contribute? See:
+
+ L<http://contributing.appspot.com/sys-syscall>
+
=head1 WARRANTY
This is free software. IT COMES WITHOUT WARRANTY OF ANY KIND.
Modified: trunk/libsys-syscall-perl/t/01-epoll.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsys-syscall-perl/t/01-epoll.t?rev=56704&op=diff
==============================================================================
--- trunk/libsys-syscall-perl/t/01-epoll.t (original)
+++ trunk/libsys-syscall-perl/t/01-epoll.t Fri Apr 23 17:45:22 2010
@@ -46,18 +46,18 @@
$t2 = time();
ok($t2 > $t1 && $t2 < ($t1 + 3), "took a second");
-my $port = 60000;
my $ip = '127.0.0.1';
my $listen = IO::Socket::INET->new(Listen => 5,
LocalAddr => $ip,
ReuseAddr => 1,
- LocalPort => $port,
Proto => 'tcp');
+my $listen_port = $listen->sockport;
my $listen2 = IO::Socket::INET->new(Listen => 5,
LocalAddr => $ip,
ReuseAddr => 1,
- LocalPort => $port+1,
Proto => 'tcp');
+my $listen2_port = $listen2->sockport;
+diag "listening on $listen_port and $listen2_port";
ok($listen, "made temp listening socket");
ok(fileno($listen), "has fileno");
@@ -66,8 +66,8 @@
socket $sock2, PF_INET, SOCK_STREAM, IPPROTO_TCP;
IO::Handle::blocking($sock, 0);
IO::Handle::blocking($sock2, 0);
-connect $sock, Socket::sockaddr_in($port, Socket::inet_aton($ip));
-connect $sock2, Socket::sockaddr_in($port+1, Socket::inet_aton($ip));
+connect $sock, Socket::sockaddr_in($listen_port, Socket::inet_aton($ip));
+connect $sock2, Socket::sockaddr_in($listen2_port, Socket::inet_aton($ip));
select undef, undef, undef, 0.25;
my $lifd1 = fileno($listen);
More information about the Pkg-perl-cvs-commits
mailing list