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

[svn at linuxrulz.org]

Author: nkukard
Date: 2009-07-08 13:39:16 +0000 (Wed, 08 Jul 2009)
New Revision: 5

Modified:
   trunk/SOAP/Transport/HTTPng.pm
Log:
* Remvoed whitespaces at end of line


Modified: trunk/SOAP/Transport/HTTPng.pm
===================================================================
--- trunk/SOAP/Transport/HTTPng.pm	2009-07-01 07:18:43 UTC (rev 4)
+++ trunk/SOAP/Transport/HTTPng.pm	2009-07-08 13:39:16 UTC (rev 5)
@@ -55,7 +55,7 @@
 	if (!defined($server->{'timeout'})) {
 		$server->{'timeout'} = 30;
 	}
-	
+
 	# Set constants
 	$server->{'proto'} = "TCP";
 
@@ -155,7 +155,7 @@
 		return;
 	}
 
-	# Init	
+	# Init
 	$self->reason("");
 	my $buf = $self->{'_rbuf'};
 	$buf = "" unless defined $buf;
@@ -216,7 +216,7 @@
 	if ($self->proto_ge("HTTP/1.0")) {
 		# we expect to find some headers
 		my($key, $val);
-	
+
 		while ($buf =~ s/^([^\012]*)\012//) {
 			$_ = $1;
 			s/\015$//;
@@ -394,7 +394,7 @@
 sub _http_version
 {
 	my ($self,$version) = @_;
-	
+
 	return 0 unless ($version =~ m,^(?:HTTP/)?(\d+)\.(\d+)$,i);
 	return ($1 * 1000 + $2);
 }
@@ -438,7 +438,7 @@
 	return if $self->antique_client;
 	$self->send_status_line(@_);
 	printf(STDOUT 'Date: %s%s',time2str(time), CRLF);
-	printf(STDOUT 'Server: %s%s', $self->{'daemon'}->{'_product_tokens'}, CRLF) if ($self->{'daemon'}->{'_product_tokens'}); 
+	printf(STDOUT 'Server: %s%s', $self->{'daemon'}->{'_product_tokens'}, CRLF) if ($self->{'daemon'}->{'_product_tokens'});
 }
 
 
@@ -549,7 +549,7 @@
 	} elsif (-f _) {
 		# plain file
 		local(*F);
-		sysopen(F, $file, 0) or 
+		sysopen(F, $file, 0) or
 			return $self->send_error(RC_FORBIDDEN);
 		binmode(F);
 		my($ct,$ce) = guess_media_type($file);