remove usage of MUTABLE_SV and MUTABLE_HV for older versions of perl
authorDaniel Frett <daniel.frett@ccci.org>
Tue, 15 Feb 2011 19:32:04 +0000 (19:32 +0000)
committerDaniel Frett <daniel.frett@ccci.org>
Tue, 15 Feb 2011 19:32:04 +0000 (19:32 +0000)
Fuse.xs

diff --git a/Fuse.xs b/Fuse.xs
index dab88bb..c739fe8 100755 (executable)
--- a/Fuse.xs
+++ b/Fuse.xs
@@ -1013,12 +1013,12 @@ perl_fuse_main(...)
        CODE:
        debug = SvIV(ST(0));
        MY_CXT.threaded = SvIV(ST(1));
-       MY_CXT.handles = MUTABLE_HV(sv_2mortal(MUTABLE_SV(newHV())));
+       MY_CXT.handles = (HV*)(sv_2mortal((SV*)(newHV())));
        if(MY_CXT.threaded) {
 #ifdef FUSE_USE_ITHREADS
                master_interp = aTHX;
                MUTEX_INIT(&MY_CXT.mutex);
-               SvSHARE(MUTABLE_SV(MY_CXT.handles));
+               SvSHARE((SV*)(MY_CXT.handles));
 #else
                fprintf(stderr,"FUSE warning: Your script has requested multithreaded "
                               "mode, but your perl was not built with a supported "