X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=perl.mli;fp=perl.mli;h=e16ada24d7bb86a8a4e278862a88e673d22af193;hb=2e1b60f9fffb9eddae136a233bf875a23022fa24;hp=f303d248cc128713f81e2163ef0bc6313759a342;hpb=27962ddac19faf764cc7ff869bf31ff1265b3149;p=perl4caml.git

diff --git a/perl.mli b/perl.mli
index f303d24..e16ada2 100644
--- a/perl.mli
+++ b/perl.mli
@@ -2,7 +2,7 @@
   *
   * Copyright (C) 2003 Merjis Ltd.
   *
-  * $Id: perl.mli,v 1.14 2005-01-29 12:22:49 rich Exp $
+  * $Id: perl.mli,v 1.15 2005-04-14 13:05:12 rich Exp $
   *)
 
 type sv
@@ -72,6 +72,12 @@ val sv_type : sv -> sv_t
 val string_of_sv_t : sv_t -> string
 (** Return a printable string for an [sv_t] ([SV] type). *)
 
+val reftype : sv -> sv_t
+(** The parameter [sv] must be a reference.  This convenience function
+ * works out what it is a reference to, either a scalar, array, hash,
+ * code or glob.  If the parameter is not a reference, or is a reference
+ * to an unknown type, then this will throw [Invalid_argument].  *)
+
 val address_of_sv : sv -> Nativeint.t
 (** Returns the address of the SV.  Useful for debugging since
   * Perl also prints out addresses on internal errors.