X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=wrappers%2Fpl_HTML_Element.ml;h=a460416361170b728044c6348a6e98b64cc95b4b;hb=b7dea9bbf5d430051b73ff38eecc26f4f407a586;hp=6430985f80b07f1783d04b2d0351915cee668698;hpb=1c369c3ba6b71d4524dfacd0ba3554e8a524ed57;p=perl4caml.git

diff --git a/wrappers/pl_HTML_Element.ml b/wrappers/pl_HTML_Element.ml
index 6430985..a460416 100644
--- a/wrappers/pl_HTML_Element.ml
+++ b/wrappers/pl_HTML_Element.ml
@@ -1,10 +1,14 @@
-(* Wrapper around Perl HTML::Element class.
- * Copyright (C) 2003 Merjis Ltd.
- * $Id: pl_HTML_Element.ml,v 1.1 2003-10-12 17:33:15 rich Exp $
- *)
+(** Wrapper around Perl [HTML::Element] class.
+  *
+  * Copyright (C) 2003 Merjis Ltd.
+  *
+  * $Id: pl_HTML_Element.ml,v 1.4 2003-10-16 13:41:07 rich Exp $
+  *)
 
 open Perl
 
+let _ = eval "use HTML::Element"
+
 type 'a content_t = Element of 'a | String of string
 
 class html_element sv =
@@ -43,10 +47,17 @@ object (self)
     let svlist = call_method_array sv "content_list" [] in
     List.map
       (fun c ->
-	 match sv_type c with
-	     SVt_PV -> String (string_of_sv c)
-	   | SVt_RV -> Element (new html_element (deref c))
-	   | _ -> failwith "HTML::Element content_type: unknown type"
+	 (* Not very satisfactory, but sv_type fails to discern the type
+	  * for some reason. XXX
+	  *)
+	 let str = string_of_sv c in
+	 let marker = "HTML::Element=HASH(" in
+	 let marker_len = String.length marker in
+	 if String.length str > marker_len &&
+	   String.sub str 0 marker_len = marker then
+	     Element (new html_element c)
+	 else
+	   String (string_of_sv c)
       ) svlist
   method all_attr =
     let svlist = call_method_array sv "all_attr" [] in