r75381 - in /trunk/libnet-smpp-perl: Changes MANIFEST META.yml SMPP.pm SMPP_Test/ debian/changelog

[periapt-guest at users.alioth.debian.org]

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