r75381 - in /trunk/libnet-smpp-perl: Changes MANIFEST META.yml SMPP.pm SMPP_Test/ debian/changelog
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Sat Jun 11 09:38:43 UTC 2011
Author: periapt-guest
Date: Sat Jun 11 09:38:34 2011
New Revision: 75381
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=75381
Log:
New upstream release
Added:
trunk/libnet-smpp-perl/SMPP_Test/
- copied from r75380, branches/upstream/libnet-smpp-perl/current/SMPP_Test/
Modified:
trunk/libnet-smpp-perl/Changes
trunk/libnet-smpp-perl/MANIFEST
trunk/libnet-smpp-perl/META.yml
trunk/libnet-smpp-perl/SMPP.pm
trunk/libnet-smpp-perl/debian/changelog
Modified: trunk/libnet-smpp-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/Changes?rev=75381&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/Changes (original)
+++ trunk/libnet-smpp-perl/Changes Sat Jun 11 09:38:34 2011
@@ -60,6 +60,9 @@
* Added multipart message example from Zeus Panchenko
* Typo fix from Boris Shomodjvarac
+1.19 29.5.2011
+ * Improved signal handling in read_hard(), patch from Clemens Dorner
+
Note: exact change logs are kept in git
(See Interested-Readers)
Modified: trunk/libnet-smpp-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/MANIFEST?rev=75381&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/MANIFEST (original)
+++ trunk/libnet-smpp-perl/MANIFEST Sat Jun 11 09:38:34 2011
@@ -10,4 +10,6 @@
esme-hammer.pl
sendmessage.pl
esme-rec.pl
+SMPP_Test/client.pl
+SMPP_Test/timeout.t
META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libnet-smpp-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/META.yml?rev=75381&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/META.yml (original)
+++ trunk/libnet-smpp-perl/META.yml Sat Jun 11 09:38:34 2011
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Net-SMPP
-version: 1.18
+version: 1.19
version_from: SMPP.pm
installdirs: site
requires:
Modified: trunk/libnet-smpp-perl/SMPP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/SMPP.pm?rev=75381&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/SMPP.pm (original)
+++ trunk/libnet-smpp-perl/SMPP.pm Sat Jun 11 09:38:34 2011
@@ -1,5 +1,5 @@
# Net::SMPP.pm - SMPP over TCP, pure perl implementation
-# Copyright (c) 2001-2010 Sampo Kellomaki <sampo at iki.fi>, All rights reserved.
+# Copyright (c) 2001-2011 Sampo Kellomaki <sampo at iki.fi>, All rights reserved.
# Portions Copyright (c) 2001-2005 Symlabs, All rights reserved.
# This code may be distributed under same terms as perl. NO WARRANTY.
# Work sponsored by Symlabs, the LDAP and directory experts (www.symlabs.com)
@@ -31,6 +31,7 @@
# 14.12.2008, adapted to SMPPv50, thanks to Gema niskazhu (and curse to
# the spec authors for not letting me know about new version) --Sampo
# 24.6.2010, tweaked for perl 5.8.8 --Sampo
+# 29.5.2011, improved signal handling in read_hard(), patch from Clemens Dorner --Sampo
#
# Why ${*$me}{async} vs. $me->async ?
#
@@ -56,7 +57,7 @@
use vars qw(@ISA $VERSION %default %param_by_name $trace);
@ISA = qw(IO::Socket::INET);
-$VERSION = '1.18';
+$VERSION = '1.19';
$trace = 0;
use constant Transmitter => 1; # SMPP transmitter mode of operation
@@ -2400,7 +2401,12 @@
local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required
alarm ${*$me}{enquire_interval} if ${*$me}{enquire_interval};
warn "read $n/$len enqint(${*$me}{enquire_interval})" if $trace>1;
- $n = $me->sysread($$dr, $len-$n, $n+$offset);
+ while (1) {
+ $n = $me->sysread($$dr, $len-$n, $n+$offset);
+ next if $! =~ /^Interrupted/;
+ last;
+ }
+ alarm 0;
};
if ($@) {
warn "ENQUIRE $@" if $trace;
Modified: trunk/libnet-smpp-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-smpp-perl/debian/changelog?rev=75381&op=diff
==============================================================================
--- trunk/libnet-smpp-perl/debian/changelog (original)
+++ trunk/libnet-smpp-perl/debian/changelog Sat Jun 11 09:38:34 2011
@@ -1,3 +1,9 @@
+libnet-smpp-perl (1.19-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk> Sat, 11 Jun 2011 10:42:12 +0100
+
libnet-smpp-perl (1.18-1) unstable; urgency=low
* Adding myself to Uploaders
More information about the Pkg-perl-cvs-commits
mailing list