Revision: 898 Author: tim.bunce Date: Wed Nov 11 02:51:49 2009 Log: Removed rand & srand from slowops because it turnsout it's very hard to configure perl to use a random number generator that might block waiting for /dev/random
http://code.google.com/p/perl-devel-nytprof/source/detail?r=898 Modified: /trunk/Makefile.PL ======================================= --- /trunk/Makefile.PL Wed Nov 11 02:05:00 2009 +++ /trunk/Makefile.PL Wed Nov 11 02:51:49 2009 @@ -197,7 +197,7 @@ slowops:: perl -MOpcode=opset_to_ops,opset \ -e 'print "/* generated by Makefile.PL for perl $$] */\n";' \ - -e 'my @ops = opset_to_ops(opset(":base_io",":filesys_read",":filesys_write",":filesys_open",":sys_db",":subprocess",":others",qw(rand srand match subst substcont qr regcomp prtf crypt chdir flock ioctl socket getpeername ssockopt bind connect listen accept shutdown gsockopt getsockname sleep sort pack unpack dofile syscall dump chroot dbmopen dbmclose lock sselect select), qw(!fileno !require !fork !substcont)));' \ + -e 'my @ops = opset_to_ops(opset(":base_io",":filesys_read",":filesys_write",":filesys_open",":sys_db",":subprocess",":others",qw(match subst substcont qr regcomp prtf crypt chdir flock ioctl socket getpeername ssockopt bind connect listen accept shutdown gsockopt getsockname sleep sort pack unpack dofile syscall dump chroot dbmopen dbmclose lock sselect select), qw(!fileno !require !fork !substcont)));' \ -e 'print "PL_ppaddr[OP_\U$$_\E] = pp_slowop_profiler;\n" for sort @ops;' \ > slowops.h --~--~---------~--~----~------------~-------~--~----~ You've received this message because you are subscribed to the Devel::NYTProf Development User group. Group hosted at: http://groups.google.com/group/develnytprof-dev Project hosted at: http://perl-devel-nytprof.googlecode.com CPAN distribution: http://search.cpan.org/dist/Devel-NYTProf To post, email: [email protected] To unsubscribe, email: [email protected] -~----------~----~----~----~------~----~------~--~---
