Damn it-- another one. Did none of this get exercised by the test suite?

rjray · Jan 27, 2003 · 2d7f472 · 2d7f472
1 parent 7363898
commit 2d7f472
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/RPC/XML/Server.pm b/lib/RPC/XML/Server.pm
@@ -9,7 +9,7 @@
 #
 ###############################################################################
 #
-#   $Id: Server.pm,v 1.34 2003/01/27 11:03:14 rjray Exp $
+#   $Id: Server.pm,v 1.35 2003/01/27 11:05:53 rjray Exp $
 #
 #   Description:    This class implements an RPC::XML server, using the core
 #                   XML::RPC transaction code. The server may be created with
@@ -86,7 +86,7 @@ use RPC::XML 'bytelength';
 require RPC::XML::Parser;
 require RPC::XML::Procedure;
 
-$VERSION = do { my @r=(q$Revision: 1.34 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
+$VERSION = do { my @r=(q$Revision: 1.35 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r };
 
 ###############################################################################
 #
@@ -1535,7 +1535,7 @@ sub process_request
                 }
                 else
                 {
-                    $req->serialize($resp_fh);
+                    $respxml->serialize($resp_fh);
                 }
                 seek($resp_fh, 0, 0);