Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

sky (1411)

sky
  (email not shown publicly)

sky on IRC

Journal of sky (1411)

Tuesday May 01, 2001
06:55 AM

Sick idea for shared

[ #124 ]
It would be nice not only to allocate a new shared variable by doing $foo = shared();

One way of doing this might be to do this
$foo = { bar => "foo" };
shared($foo);
And in shared so
shared_ref = shift;
shared = shared_ref->deref
new_shared = new_unattached_sv;
clone(new_shared, shared);
kill(shared);
shared_ref->reference = new_shared;
end

Might just work, or might be bad bad bad :), probobly is bad bad bad.

Artur