#set_no_fragment

[perl4caml.git] / wrappers / pl_URI.ml

diff --git a/wrappers/pl_URI.ml b/wrappers/pl_URI.ml
index a4a7732..f0a2363 100644 (file)
--- a/wrappers/pl_URI.ml
+++ b/wrappers/pl_URI.ml
@@ -2,7 +2,7 @@
   *
   * Copyright (C) 2003 Merjis Ltd.
   *
-  * $Id: pl_URI.ml,v 1.4 2005-02-13 16:33:28 rich Exp $
+  * $Id: pl_URI.ml,v 1.5 2005-02-13 17:09:14 rich Exp $
   *)
 
 open Perl
@@ -31,6 +31,8 @@ object (self)
     string_of_sv (call_method sv "fragment" [])
   method set_fragment fragment =
     call_method_void sv "fragment" [sv_of_string fragment]
+  method set_no_fragment () =
+    call_method_void sv "fragment" [sv_undef ()]
   method as_string =
     string_of_sv (call_method sv "as_string" [])
   method canonical =