r43723 - in /trunk/libnet-sip-perl: Changes META.yml debian/changelog debian/control debian/copyright debian/rules lib/Net/SIP.pm lib/Net/SIP/Packet.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Sep 5 01:56:10 UTC 2009
Author: jawnsy-guest
Date: Sat Sep 5 01:55:28 2009
New Revision: 43723
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43723
Log:
* New upstream release
+ Fix in new_from_parts when the header was already given as a
pair of Net::SIP::HeaderPair objects
* Update to new short debhelper rules format
* Refresh copyright file
* Add myself to Uploaders and Changelog
* Standards-Version 3.8.3 (drop perl version dependency)
Modified:
trunk/libnet-sip-perl/Changes
trunk/libnet-sip-perl/META.yml
trunk/libnet-sip-perl/debian/changelog
trunk/libnet-sip-perl/debian/control
trunk/libnet-sip-perl/debian/copyright
trunk/libnet-sip-perl/debian/rules
trunk/libnet-sip-perl/lib/Net/SIP.pm
trunk/libnet-sip-perl/lib/Net/SIP/Packet.pm
Modified: trunk/libnet-sip-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/Changes?rev=43723&op=diff
==============================================================================
--- trunk/libnet-sip-perl/Changes (original)
+++ trunk/libnet-sip-perl/Changes Sat Sep 5 01:55:28 2009
@@ -1,4 +1,8 @@
Revision history for Net::SIP
+
+0.54 2009-09-04
+- bugfix in Net::SIP::Packet::new_from_parts when the header was already
+ given as list of Net::SIP::HeaderPair objects
0.53 2009-01-26
- add Option force_rewrite to Net::SIP::StatelessProxy so that it rewrites
Modified: trunk/libnet-sip-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/META.yml?rev=43723&op=diff
==============================================================================
--- trunk/libnet-sip-perl/META.yml (original)
+++ trunk/libnet-sip-perl/META.yml Sat Sep 5 01:55:28 2009
@@ -1,10 +1,10 @@
--- #YAML:1.0
name: Net-SIP
-version: 0.53
+version: 0.54
abstract: ~
license: ~
author: ~
-generated_by: ExtUtils::MakeMaker version 6.44
+generated_by: ExtUtils::MakeMaker version 6.42
distribution_type: module
requires:
Net::DNS: 0.56
Modified: trunk/libnet-sip-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/debian/changelog?rev=43723&op=diff
==============================================================================
--- trunk/libnet-sip-perl/debian/changelog (original)
+++ trunk/libnet-sip-perl/debian/changelog Sat Sep 5 01:55:28 2009
@@ -1,8 +1,18 @@
-libnet-sip-perl (0.53-2) UNRELEASED; urgency=low
-
+libnet-sip-perl (0.54-1) UNRELEASED; urgency=low
+
+ [ Jonathan Yu ]
+ * New upstream release
+ + Fix in new_from_parts when the header was already given as a
+ pair of Net::SIP::HeaderPair objects
+ * Update to new short debhelper rules format
+ * Refresh copyright file
+ * Add myself to Uploaders and Changelog
+ * Standards-Version 3.8.3 (drop perl version dependency)
+
+ [ Nathan Handler ]
* debian/watch: Update to ignore development releases.
- -- Nathan Handler <nhandler at ubuntu.com> Sat, 06 Jun 2009 01:36:42 +0000
+ -- Jonathan Yu <jawnsy at cpan.org> Fri, 04 Sep 2009 17:43:43 -0400
libnet-sip-perl (0.53-1) unstable; urgency=low
Modified: trunk/libnet-sip-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/debian/control?rev=43723&op=diff
==============================================================================
--- trunk/libnet-sip-perl/debian/control (original)
+++ trunk/libnet-sip-perl/debian/control Sat Sep 5 01:55:28 2009
@@ -1,15 +1,13 @@
Source: libnet-sip-perl
Section: perl
Priority: optional
+Build-Depends: debhelper (>= 7.0.8), quilt (>= 0.46-7)
+Build-Depends-Indep: perl, libnet-dns-perl, net-tools, netbase
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
-Uploaders: Damyan Ivanov <dmn at debian.org>,
- Rene Mayorga <rmayorga at debian.org>,
- gregor herrmann <gregoa at debian.org>,
- MartÃn Ferrari <tincho at debian.org>,
- Jose Luis Rivas <ghostbar38 at gmail.com>
-Build-Depends: debhelper (>= 7), quilt
-Build-Depends-Indep: perl (>= 5.8.1), libnet-dns-perl, net-tools, netbase
-Standards-Version: 3.8.0
+Uploaders: Damyan Ivanov <dmn at debian.org>, Rene Mayorga <rmayorga at debian.org>,
+ gregor herrmann <gregoa at debian.org>, MartÃn Ferrari <tincho at debian.org>,
+ Jose Luis Rivas <ghostbar38 at gmail.com>, Jonathan Yu <jawnsy at cpan.org>
+Standards-Version: 3.8.3
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libnet-sip-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libnet-sip-perl/
Homepage: http://search.cpan.org/dist/Net-SIP/
@@ -17,7 +15,7 @@
Package: libnet-sip-perl
Architecture: all
Depends: ${perl:Depends}, ${misc:Depends}, libnet-dns-perl
-Description: SIP handler Perl module
+Description: Perl module framework for SIP
Net::SIP module provides a tool to write SIP endpoints (e.g phones, answer
machines), SIP proxies and registrars.
.
Modified: trunk/libnet-sip-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/debian/copyright?rev=43723&op=diff
==============================================================================
--- trunk/libnet-sip-perl/debian/copyright (original)
+++ trunk/libnet-sip-perl/debian/copyright Sat Sep 5 01:55:28 2009
@@ -5,15 +5,17 @@
Upstream-Name: Net-SIP
Files: *
-Copyright: © 2006-2008, Steffen Ullrich
+Copyright: 2006-2008, Steffen Ullrich <Steffen_Ullrich at genua.de>
License-Alias: Perl
License: Artistic | GPL-1+
Files: debian/*
-Copyright: © 2008 various members of the Debian Perl Group,
- cf. debian/changelog
- © 2007-2008 Rene Mayorga <rmayorga at debian.org.sv>
- © 2007-2008 Damyan Ivanov <dmn at debian.org>
+Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
+ 2007-2009, Rene Mayorga <rmayorga at debian.org>
+ 2008, Jose Luis Rivas <ghostbar38 at gmail.com>
+ 2008, MartÃn Ferrari <martin.ferrari at gmail.com>
+ 2007-2008, gregor herrmann <gregoa at debian.org>
+ 2007-2008, Damyan Ivanov <dmn at debian.org>
License: GPL-1+
License: Artistic
Modified: trunk/libnet-sip-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/debian/rules?rev=43723&op=diff
==============================================================================
--- trunk/libnet-sip-perl/debian/rules (original)
+++ trunk/libnet-sip-perl/debian/rules Sat Sep 5 01:55:28 2009
@@ -1,26 +1,4 @@
#!/usr/bin/make -f
-include /usr/share/quilt/quilt.make
-
-build: build-stamp
-build-stamp: $(QUILT_STAMPFN)
- dh build
- touch $@
-
-clean: unpatch
- dh $@
-
-install: install-stamp
-install-stamp: build-stamp
- dh install
- find . -name "*.pod" | xargs rm
- touch $@
-
-binary-arch:
-
-binary-indep: install
- dh $@
-
-binary: binary-arch binary-indep
-
-.PHONY: binary binary-arch binary-indep install clean build
+%:
+ dh --with quilt $@
Modified: trunk/libnet-sip-perl/lib/Net/SIP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/lib/Net/SIP.pm?rev=43723&op=diff
==============================================================================
--- trunk/libnet-sip-perl/lib/Net/SIP.pm (original)
+++ trunk/libnet-sip-perl/lib/Net/SIP.pm Sat Sep 5 01:55:28 2009
@@ -4,7 +4,7 @@
require 5.008;
package Net::SIP;
-our $VERSION = '0.53';
+our $VERSION = '0.54';
# this includes nearly everything else
use Net::SIP::Simple ();
Modified: trunk/libnet-sip-perl/lib/Net/SIP/Packet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-sip-perl/lib/Net/SIP/Packet.pm?rev=43723&op=diff
==============================================================================
--- trunk/libnet-sip-perl/lib/Net/SIP/Packet.pm (original)
+++ trunk/libnet-sip-perl/lib/Net/SIP/Packet.pm Sat Sep 5 01:55:28 2009
@@ -94,13 +94,14 @@
my @hnew;
my $normalized = 0;
for( my $i=0;$i<@$header;$i++ ) {
- my ($key,$value,$orig_key) = @{ $header->[$i] };
- defined($value) || next;
- if ( $orig_key ) {
- # assume it's already normalized
- push @hnew, $header->[$i];
+ my $h = $header->[$i];
+ if ( UNIVERSAL::isa($h,'Net::SIP::HeaderPair')) {
+ # already normalized
$normalized = 1;
+ push @hnew,$h;
} else {
+ my ($key,$value) = @$h;
+ defined($value) || next;
croak( "mix between normalized and not normalized data in header" ) if $normalized;
push @hnew, Net::SIP::HeaderPair->new( $key,$value ) ;
}
@@ -133,7 +134,7 @@
my ($class,$string) = @_;
my $data = _string2parts( $string );
if ( $class eq 'Net::SIP::Packet' ) {
- $class = $data->{code} =~m{^\d}
+ $class = $data->{code} =~m{^\d}
? 'Net::SIP::Response'
:'Net::SIP::Request';
}
@@ -532,11 +533,11 @@
'max-forwards' => \&_hdrkey_parse_num,
'min-expires' => \&_hdrkey_parse_num,
- 'call-id' => sub {
+ 'call-id' => sub {
$_[0] =~ $callid_rx or die "invalid callid, should be 'word [@ word]'";
return $_[0];
},
- 'cseq' => sub {
+ 'cseq' => sub {
$_[0] =~ m{^\d+\s+\w+\s*$} or die "invalid cseq, should be 'number method'";
return $_[0];
},
More information about the Pkg-perl-cvs-commits
mailing list