okay, this, with some minor changes, now exists as
Thread::IID:
- (UV) instead of (IV).
- left off the 'get_'
- returns PERL_GET_THX>>11 because PerlInterpreter structures are Just Huge (2800 bytes in my world) and this reduces the returned numbers somewhat.
Enjoy. And thanks.