--- a/trunk/lib/SOAP/Test.pm
+++ b/trunk/lib/SOAP/Test.pm
@@ -4,17 +4,16 @@
 # SOAP::Lite is free software; you can redistribute it
 # and/or modify it under the same terms as Perl itself.
 #
-# $Id: Test.pm 242 2008-04-19 15:25:38Z kutterma $
+# $Id: Test.pm 419 2013-04-21 16:59:31Z kutterma $
 #
 # ======================================================================
 
 package SOAP::Test;
 
-use 5.004;
-use vars qw($VERSION $TIMEOUT);
-use version; $VERSION = qv('0.71.04');
-
-$TIMEOUT = 5;
+use 5.006;
+our $VERSION = 0.715;
+
+our $TIMEOUT = 5;
 
 # ======================================================================
 
@@ -76,7 +75,7 @@
 
   $r = $s->getStateStruct({item1 => 1, item2 => 4})->result;
   ok(ref $r && $r->{item2} eq 'Arkansas');
-
+print $s->transport->status, "\n";
   {
     my $autoresult = $s->autoresult;
     $s->autoresult(1);