On Thu, Aug 11, 2011 at 06:08:54PM +0200, Father Chrysostomos wrote: > In perl.git, the branch blead has been updated > > <http://perl5.git.perl.org/perl.git/commitdiff/eb796c7f1a47acbd996034731639c1bb76e31a19?hp=e64345f82d66a32f6da47acf482e7e6c9282b433> > > - Log ----------------------------------------------------------------- > commit eb796c7f1a47acbd996034731639c1bb76e31a19 > Author: Gerard Goossen <gerard@ggoossen.net> > Date: Tue Aug 9 20:35:06 2011 +0200 > > Move bareword checking from the peephole optimizer to finalize_optree. Fixes [perl #95998] > > The bareword checking is moved from the peephole optimizer to finalize_optree. > newRANGE needs additional bareword checking because the constants may > be optimized away by 'gen_constant_list'. > The OPpCONST_STRICT flag is removed after giving an error about a > bareword to prevent giving multiple errors about the same bareword. This breaks a few tests when perl is built with -Dmad -Duseithreads: ../t/op/closure.t...........................................FAILED Non-zero exit status: 255 No plan found in TAP output ../ext/IPC-Open3/t/IPC-Open3.t..............................FAILED Non-zero exit status: 255 Bad plan. You planned 37 tests but ran 0. ../ext/Socket/t/socketpair.t................................FAILED Non-zero exit status: 255 No plan found in TAP output ../ext/XS-APItest/t/swaptwostmts.t..........................FAILED 29-32 Non-zero exit status: 4 tony@mars:.../perl/t$ ./perl harness -v op/closure.t op/closure.t .. Bareword "WRITE" not allowed while "strict subs" in use at op/closure.t line 412. Bareword "WRITE2" not allowed while "strict subs" in use at op/closure.t line 413. Execution of op/closure.t aborted due to compilation errors. Dubious, test returned 255 (wstat 65280, 0xff00) No subtests run Test Summary Report ------------------- op/closure.t (Wstat: 65280 Tests: 0 Failed: 0) Non-zero exit status: 255 Parse errors: No plan found in TAP output Files=1, Tests=0, 0 wallclock secs ( 0.00 usr 0.01 sys + 0.01 cusr 0.00 csys = 0.02 CPU) Result: FAIL tony@mars:.../perl/t$