# HG changeset patch # User Sergey Kandaurov # Date 1663582402 -14400 # Node ID 42d9fd20eeb6f58f41da2b521001adc3c680938b # Parent ba625d5a02e4bf44b1979c1781d30149c7cf4ffd Tests: avoid uninitialized warnings in fastcgi tests. diff --git a/fastcgi_body2.t b/fastcgi_body2.t --- a/fastcgi_body2.t +++ b/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); diff --git a/fastcgi_merge_params.t b/fastcgi_merge_params.t --- a/fastcgi_merge_params.t +++ b/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 <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 <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;