X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=wrappers%2Fpl_LWP_UserAgent.ml;h=c6a5b982aca2b43454e8cb6ec99ed3aa601cec80;hb=56934c148220f0c06916f0cadf5052a71e8e1541;hp=2a68f4a6dc28fe8e5175f5bd7485726a45876f62;hpb=1c369c3ba6b71d4524dfacd0ba3554e8a524ed57;p=perl4caml.git

diff --git a/wrappers/pl_LWP_UserAgent.ml b/wrappers/pl_LWP_UserAgent.ml
index 2a68f4a..c6a5b98 100644
--- 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" [])