Tests: avoid uninitialized warnings in fastcgi tests.

Author: pluknet

fastcgi_body2.t

@@ -114,7 +114,7 @@ sub fastcgi_daemon {
 		$socket);
 
 	while( $request->Accept() >= 0 ) {
-		read(STDIN, my $body, $ENV{'CONTENT_LENGTH'});
+		read(STDIN, my $body, $ENV{'CONTENT_LENGTH'} || 0);
 		my $len = length $body;
 
 		sleep 3 if $port == port(8081);

fastcgi_merge_params.t

@@ -120,9 +120,9 @@ sub fastcgi_daemon {
 	while( $request->Accept() >= 0 ) {
 		$count++;
 
-		my $ims = $ENV{HTTP_IF_MODIFIED_SINCE};
-		my $iums = $ENV{HTTP_IF_UNMODIFIED_SINCE};
-		my $blah = $ENV{HTTP_X_BLAH};
+		my $ims = $ENV{HTTP_IF_MODIFIED_SINCE} || '';
+		my $iums = $ENV{HTTP_IF_UNMODIFIED_SINCE} || '';
+		my $blah = $ENV{HTTP_X_BLAH} || '';
 
 		print <<EOF;
 Location: http://localhost/redirect

fastcgi_merge_params2.t

@@ -104,9 +104,9 @@ sub fastcgi_daemon {
 	while( $request->Accept() >= 0 ) {
 		$count++;
 
-		my $ims = $ENV{HTTP_IF_MODIFIED_SINCE};
-		my $iums = $ENV{HTTP_IF_UNMODIFIED_SINCE};
-		my $blah = $ENV{HTTP_X_BLAH};
+		my $ims = $ENV{HTTP_IF_MODIFIED_SINCE} || '';
+		my $iums = $ENV{HTTP_IF_UNMODIFIED_SINCE} || '';
+		my $blah = $ENV{HTTP_X_BLAH} || '';
 
 		print <<EOF;
 Location: http://localhost/redirect

fastcgi_request_buffering.t

@@ -350,7 +350,7 @@ sub fastcgi_daemon {
 
 	while( $request->Accept() >= 0 ) {
 		$count++;
-		read(STDIN, $body, $ENV{'CONTENT_LENGTH'});
+		read(STDIN, $body, $ENV{'CONTENT_LENGTH'} || 0);
 
 		if ($ENV{REQUEST_URI} eq '/error_page') {
 			print "Status: 404 Not Found" . CRLF . CRLF;