Fixed undef handling.

[perl4caml.git] / wrappers / pl_LWP_UserAgent.ml

diff --git a/wrappers/pl_LWP_UserAgent.ml b/wrappers/pl_LWP_UserAgent.ml
index 2a68f4a..c6a5b98 100644 (file)
--- a/wrappers/pl_LWP_UserAgent.ml
+++ b/wrappers/pl_LWP_UserAgent.ml
@@ -1,13 +1,17 @@
-(* Wrapper around Perl LWP::UserAgent class.
- * Copyright (C) 2003 Merjis Ltd.
- * $Id: pl_LWP_UserAgent.ml,v 1.1 2003-10-12 17:33:15 rich Exp $
- *)
+(** Wrapper around Perl [LWP::UserAgent] class.
+  *
+  * Copyright (C) 2003 Merjis Ltd.
+  *
+  * $Id: pl_LWP_UserAgent.ml,v 1.3 2003-10-16 13:41:07 rich Exp $
+  *)
 
 open Perl
 
 open Pl_HTTP_Request
 open Pl_HTTP_Response
 
+let _ = eval "use LWP::UserAgent"
+
 class lwp_useragent sv =
 
 object (self)
@@ -16,7 +20,7 @@ object (self)
     let sv = call_method sv "simple_request" [request#sv] in
     new http_response sv
   method request (request : http_request) =
-    let sv = call_method sv "simple_request" [request#sv] in
+    let sv = call_method sv "request" [request#sv] in
     new http_response sv
   method agent =
     string_of_sv (call_method sv "agent" [])