On Fri, Feb 04, 2000 at 11:46:29AM +0000, [EMAIL PROTECTED] wrote:
> $ perl -MEvent -e 'require Event::Watcher; system("ps l $$"); require "Event/$_.pm"
>for (qw(idle inactivity io signal timer var)); system("ps l $$");'
> F UID PID PPID PRI NI VSZ RSS WCHAN STAT TTY TIME COMMAND
> 000 1002 2157 2132 9 0 2880 1636 wait4 S pts/5 0:00 perl -MEvent -e
>require Event::Watcher
> F UID PID PPID PRI NI VSZ RSS WCHAN STAT TTY TIME COMMAND
> 000 1002 2157 2132 15 0 2940 1696 wait4 S pts/5 0:00 perl -MEvent -e
>require Event::Watcher
>
> is 60K really worth it.
Hm. I see even less savings on my Solaris 7 sun4u sparc SUNW,Ultra-1
machine.
[joshua@eq1062] % perl -e 'system("ps -l -p $$"); require Event; system("ps -l -p
$$"); require "Event/$_.pm" for qw(idle io signal timer var); system("ps -l -p $$")'
F S UID PID PPID C PRI NI ADDR SZ WCHAN TTY TIME CMD
8 S 10511 21540 18239 1 51 20 713a8750 351 713a87bc pts/6 0:00 perl
F S UID PID PPID C PRI NI ADDR SZ WCHAN TTY TIME CMD
8 S 10511 21540 18239 1 75 20 713a8750 452 713a87bc pts/6 0:00 perl
F S UID PID PPID C PRI NI ADDR SZ WCHAN TTY TIME CMD
8 S 10511 21540 18239 2 85 20 713a8750 460 713a87bc pts/6 0:00 perl
The difference between Event and Event with watchers is about 8K.
> I would say just add requires for the standard Event classes into Event.pm
OK. I'll load these by default: qw(idle io signal timer var).
--
"May the best description of competition prevail."
via, but not speaking for Deutsche Bank
