--- perl-llin/Fuse.xs	2006/12/03 11:25:02	107
+++ perl-llin/Fuse.xs	2007/01/20 12:21:12	108
@@ -813,6 +813,24 @@
 MODULE = Fuse		PACKAGE = Fuse
 PROTOTYPES: DISABLE
 
+SV*
+fuse_get_context()
+	PREINIT:
+	struct fuse_context *fc;
+	CODE:
+	fc = fuse_get_context();
+	if(fc) {
+		HV *hash = newHV();
+		hv_store(hash, "uid", 3, newSViv(fc->uid), 0);
+		hv_store(hash, "gid", 3, newSViv(fc->gid), 0);
+		hv_store(hash, "pid", 3, newSViv(fc->pid), 0);
+		RETVAL = newRV_noinc((SV*)hash);
+	} else {
+		XSRETURN_UNDEF;
+	}
+	OUTPUT:
+	RETVAL
+
 void
 perl_fuse_main(...)
 	PREINIT: