r43721 - in /branches/upstream/libnet-sip-perl/current: Changes META.yml lib/Net/SIP.pm lib/Net/SIP/Packet.pm

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

Author: jawnsy-guest
Date: Sat Sep  5 01:45:33 2009
New Revision: 43721

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=43721
Log:
[svn-upgrade] Integrating new upstream version, libnet-sip-perl (0.54)

Modified:
    branches/upstream/libnet-sip-perl/current/Changes
    branches/upstream/libnet-sip-perl/current/META.yml
    branches/upstream/libnet-sip-perl/current/lib/Net/SIP.pm
    branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Packet.pm

Modified: branches/upstream/libnet-sip-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sip-perl/current/Changes?rev=43721&op=diff
==============================================================================
--- branches/upstream/libnet-sip-perl/current/Changes (original)
+++ branches/upstream/libnet-sip-perl/current/Changes Sat Sep  5 01:45:33 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: branches/upstream/libnet-sip-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sip-perl/current/META.yml?rev=43721&op=diff
==============================================================================
--- branches/upstream/libnet-sip-perl/current/META.yml (original)
+++ branches/upstream/libnet-sip-perl/current/META.yml Sat Sep  5 01:45:33 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: branches/upstream/libnet-sip-perl/current/lib/Net/SIP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sip-perl/current/lib/Net/SIP.pm?rev=43721&op=diff
==============================================================================
--- branches/upstream/libnet-sip-perl/current/lib/Net/SIP.pm (original)
+++ branches/upstream/libnet-sip-perl/current/lib/Net/SIP.pm Sat Sep  5 01:45:33 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: branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Packet.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Packet.pm?rev=43721&op=diff
==============================================================================
--- branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Packet.pm (original)
+++ branches/upstream/libnet-sip-perl/current/lib/Net/SIP/Packet.pm Sat Sep  5 01:45:33 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];
 		},