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: 1522d18) | patch
pp_ctl.c:pp_flop: Avoid redundant SvNV calls
authorFather Chrysostomos <sprout@cpan.org>
Sun, 25 Aug 2013 08:30:18 +0000 (01:30 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 25 Aug 2013 13:41:15 +0000 (06:41 -0700)
commit4d91ecccee1825237c33d0a97bebddc384d58dc2
treeb204798c9348539c95045d923914731d9c76eb67tree | snapshot
parent1522d188b83c42df1e2b65084cfe4fb70415b67bcommit | diff
pp_ctl.c:pp_flop: Avoid redundant SvNV calls

Calling SvNV on an SV that is IOK is unnecessary, and results in an
extra function call if the SV is not NOKp.  If an NV is out of range
and has been used as an int, it will be IOKp but not IOK.
pp_ctl.c diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.