X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=wrappers%2Fpl_URI.ml;fp=wrappers%2Fpl_URI.ml;h=f0a23636657da2aee6f851be22b572e7a2eb9ddd;hb=b7dea9bbf5d430051b73ff38eecc26f4f407a586;hp=a4a773212c0ea9eafaf6394d933bfdb00552e4cc;hpb=0b407a0c622e181699f5d3984332c5c76f21cdd1;p=perl4caml.git

diff --git a/wrappers/pl_URI.ml b/wrappers/pl_URI.ml
index a4a7732..f0a2363 100644
--- 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 =