--- perl-llin/Fuse.xs	2006/05/29 09:15:28	93
+++ perl-llin/Fuse.xs	2008/03/16 13:34:34	119
@@ -64,7 +64,7 @@
 		result->st_ctime = POPi;
 		result->st_mtime = POPi;
 		result->st_atime = POPi;
-		result->st_size = POPi;
+		result->st_size = (size_t)POPi;
 		result->st_rdev = POPi;
 		result->st_gid = POPi;
 		result->st_uid = POPi;
@@ -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:
@@ -834,7 +852,7 @@
 	threaded = SvIV(ST(1));
 	if(threaded) {
 #ifdef FUSE_USE_ITHREADS
-		master_interp = PERL_GET_INTERP;
+		master_interp = PERL_GET_CONTEXT;
 #else
 		fprintf(stderr,"FUSE warning: Your script has requested multithreaded "
 		               "mode, but your perl was not built with -Dusethreads.  "