import SOAP-WSDL 2.00.01 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00.01
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.01.tar.gz

t/SOAP/WSDL/Server/CGI.t

@@ -32,57 +32,60 @@ my $fh = IO::Scalar->new(\$output);
 my $stdout = *STDOUT;
 my $stdin = *STDIN;
 
+# don't try to print() anything from here on - it gehts caught in $output,
+#and does not make it to STDOUT...
+
 *STDOUT = $fh;
 {
     local %ENV;
     $server->handle();
-    
+
     like $output, qr{ \A Status: \s 411 \s Length \s Required}x;
     $output = q{};
-    
+
     $ENV{'CONTENT_LENGTH'} = '0e0';
     $server->handle();
-    
+
     like $output, qr{ Error \s deserializing }xsm;
     $output = q{};
-    
+
     $server->set_action_map_ref({
         'foo' => 'bar',
     });
     $server->set_dispatch_to( 'HandlerClass' );
-    
+
     $server->handle();
     like $output, qr{no \s element \s found}xms;
     $output = q{};
-    
+
     $ENV{REQUEST_METHOD} = 'POST';
     $ENV{HTTP_SOAPACTION} = 'test';
     $server->handle();
     like $output, qr{no \s element \s found}xms;
     $output = q{};
-    
+
     delete $ENV{HTTP_SOAPACTION};
-    
+
     $ENV{EXPECT} = 'Foo';
     $ENV{HTTP_SOAPAction} = 'foo';
     $server->handle();
-    
+
     like $output, qr{no \s element \s found}xms;
     $output = q{};
-    
+
     $ENV{EXPECT} = '100-Continue';
     $ENV{HTTP_SOAPAction} = 'foo';
     $server->handle();
     like $output, qr{100 \s Continue}xms;
     $output = q{};
-    
+
     delete $ENV{EXPECT};
-    
+
     my $input = 'Foobar';
     my $ih = IO::Scalar->new(\$input);
     $ih->seek(0);
     *STDIN = $ih;
-    
+
 #    my $buffer;
 #    read(*STDIN, $buffer, 6);
 #    die $buffer;