This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 19f1898) | patch
toke.c: Rework LOOPX macro
authorFather Chrysostomos <sprout@cpan.org>
Fri, 22 Aug 2014 01:19:31 +0000 (18:19 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 25 Aug 2014 02:02:56 +0000 (19:02 -0700)
commit7a61bf3cf07a5904bbd35007213ef2a3115e6159
tree13a5272dd383ec8e45cb9089c3d68e0d02667761tree | snapshot
parent19f1898a1ae4536b68389fbd144330251a7547d6commit | diff
toke.c: Rework LOOPX macro

All its callers have the same two lines preceding it, so fold them
into the macro.  Only assign to PL_expect after the force_word call if
force_word did not find a word.  (If it did find one, then force_next
would have recorded the previous PL_expect value, which will clobber
the one we have just assigned.)
toke.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.