Re: Re[2]: END blocks in perl modules

2000-02-12 Thread James G Smith
Ilya Obshadko <[EMAIL PROTECTED]> wrote: >My point was NOT to tie separately in each child, but execute tie() >once during startup. The code of module that is being loaded >from startup.pl looks like this: > >BEGIN { >use IPC::Shareable; >tie %RADDR_CACHE, >'IPC::Shareable', >

Re[2]: END blocks in perl modules

2000-02-12 Thread Ilya Obshadko
Hello James, ñóááîòà, 12 ôåâðàëÿ 2000 ã., you wrote: JGS> What you want to do, I think, is something like the following: JGS> sub tie_keys { JGS> unless(tied %Keys or not defined $IPC::Shareable::VERSION) { JGS> tie(%Keys, 'IPC::Shareable', 'abcd', { # random glue... JGS>

Re: END blocks in perl modules

2000-02-12 Thread James G Smith
Ilya Obshadko <[EMAIL PROTECTED]> wrote: >Hello modperl, > > Yet another mystic thing. I've been messing around with > IPC::Shareable. The purpose was just simple: create shared memory > segment on startup, give access to it for all child processes, > destroy this segment after httpd shutdown.

END blocks in perl modules

2000-02-12 Thread Ilya Obshadko
Hello modperl, Yet another mystic thing. I've been messing around with IPC::Shareable. The purpose was just simple: create shared memory segment on startup, give access to it for all child processes, destroy this segment after httpd shutdown. I've encountered a strange problem with the