in reply to Re^2: Sharing XS object?
in thread Sharing XS object?

# this produces error: "invalid value for shared scalar"
my $o :shared = new Tree::BK_XS;

[download]

Which versions of perl/threads/threads::shared are you using?

Show us the new() method of your module.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Replies are listed 'Best First'.
Re^4: Sharing XS object?
by menth0l (Monk) on Mar 09, 2011 at 14:59 UTC
    Versions:
    Perl: ActiveState 5.10
    Threads: 1.82
    Threads-shared: 1.36
    My new() function from BK_XS.xs file: 
    #include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
#include "BKTree.h"

MODULE = Tree::BK_XS    PACKAGE = Tree::BK_XS    PREFIX= BK_

SV *
BK_new(package)
        char * package

    PROTOTYPE: $

    CODE:
    OBJECT t;
    SV *tp;
    t = new_object();
    tp = newSVpv((char *)&t, sizeof(OBJECT));
        RETVAL = newRV(tp);
    SvREFCNT_dec(tp);
        sv_bless(RETVAL, gv_stashpv(package, 0));
    SvREADONLY_on(tp);

    OUTPUT:
        RETVAL

    [download]
[reply]
[d/l]

      If this is possible--I've never done it, mostly because I've never seen a need for it--then success will resolve around using the bless() function exported from threads::shared rather than the built-in version.

      Whilst it is possible to gain access to threads::shared::bless() from within your XS code, the simplest method to test whether it will actually work for you, would be to export the RV (RETVAL) from your XS new() (perhaps renamed _new()) un-blessed; and then add a wrapper method in the .pm file that calls the XS _new() and then applies the modified bless() (imported from threads::shared) at the Perl level before returning it.

      That should get you past the "Invalid value for shared scalar" problem. I do not expect it to be a complete solution. You will almost certainly have to add a CLONE() method to the package. And you will need to deal with the problem of multiple DESTROY()s. But one step at a time.

      If you module isn't proprietary, and doesn't have a raft of dependancies, and you were prepared to let me have an installable copy, it might make solving the knock on problems quicker.

      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.
[reply]
[d/l]
[select]
        Hi, I don't mind to release code to the public since it's based on Tree-Ternary_XS code (you can still see it in POD in BK_XS.pm:) and includes Text-LevenshteinXS anyway.

        Here is a link to source code .rar package

        I would be appreciated if u could look at it and give me a help with this problem. PS. I no expert in C (last time i used it was in college;) nor in XS so please, be understanding while reading the code :)
[reply]

In Section Seekers of Perl Wisdom