Revision: 940 Author: tim.bunce Date: Thu Dec 10 04:08:45 2009 Log: Removed dofile from slowops for the same reasons as require. It's also the cause of of the SWASHNEW assertion failures like http://www.nntp.perl.org/group/perl.cpan.testers/2009/12/msg6409150.html
http://code.google.com/p/perl-devel-nytprof/source/detail?r=940 Modified: /trunk/Makefile.PL /trunk/slowops.h ======================================= --- /trunk/Makefile.PL Tue Dec 8 08:02:24 2009 +++ /trunk/Makefile.PL Thu Dec 10 04:08:45 2009 @@ -201,13 +201,15 @@ time nice prove -b -j 9 --shuffle # not require because it confuses the call-graph +# not dofile because it's an alias for require +# (and causes problems like http://www.nntp.perl.org/group/perl.cpan.testers/2009/12/msg6409150.html) # not fork because it doesn't make much sense # not substcont yet - needs more work XXX slowops:: $(NOECHO) $(PERL) -e 'require v5.10.0; # only regenerate with 5.10+ to get all ops' $(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(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)));' \ + -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 syscall dump chroot dbmopen dbmclose lock sselect select), qw(!fileno !require !dofile !fork)));' \ -e 'print "PL_ppaddr[OP_\U$$_\E] = pp_slowop_profiler;\n" for sort @ops;' \ > slowops.h $(PERL) -e "warn qq{NOTE: slowops.h will need manual editing to restore lost #ifdef's around some opcodes!\n}"; ======================================= --- /trunk/slowops.h Sat Nov 14 14:58:25 2009 +++ /trunk/slowops.h Thu Dec 10 04:08:45 2009 @@ -1,4 +1,4 @@ -/* generated by Makefile.PL for perl 5.011001 */ +/* generated by Makefile.PL for perl 5.011002 */ PL_ppaddr[OP_ACCEPT] = pp_slowop_profiler; PL_ppaddr[OP_BACKTICK] = pp_slowop_profiler; PL_ppaddr[OP_BIND] = pp_slowop_profiler; @@ -13,7 +13,6 @@ PL_ppaddr[OP_CRYPT] = pp_slowop_profiler; PL_ppaddr[OP_DBMCLOSE] = pp_slowop_profiler; PL_ppaddr[OP_DBMOPEN] = pp_slowop_profiler; -PL_ppaddr[OP_DOFILE] = pp_slowop_profiler; PL_ppaddr[OP_DUMP] = pp_slowop_profiler; PL_ppaddr[OP_EGRENT] = pp_slowop_profiler; PL_ppaddr[OP_EHOSTENT] = pp_slowop_profiler; -- 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]
