[wiaflos-devel] awit-perl-toolkit external COMMIT - r8 - trunk/SOAP/Transport

[svn at linuxrulz.org]

Author: nkukard
Date: 2009-07-24 16:49:27 +0000 (Fri, 24 Jul 2009)
New Revision: 8

Modified:
   trunk/SOAP/Transport/HTTPng.pm
Log:
* Fixed product tokens


Modified: trunk/SOAP/Transport/HTTPng.pm
===================================================================
--- trunk/SOAP/Transport/HTTPng.pm	2009-07-24 16:44:51 UTC (rev 7)
+++ trunk/SOAP/Transport/HTTPng.pm	2009-07-24 16:49:27 UTC (rev 8)
@@ -449,16 +449,8 @@
 	if (!ref $res) {
 		$res ||= RC_OK;
 		$res = HTTP::Response->new($res, @_);
-	# Make sure anything we have, has no soapserver header
-	} else {
-		$res->remove_header('soapserver');
 	}
 
-	# Set SoapServer header
-	if ($self->{'daemon'}->{'_product_tokens'}) {
-		$res->headers->header('Server',$self->{'daemon'}->{'_product_tokens'});
-	}
-
 	my $content = $res->content;
 	my $chunked;
 	unless ($self->antique_client) {