In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c553cca00d719f5fcdff702b67da6044ef5a0601?hp=4639bd9c727433ad8bfca2730f0999246f0f26d0>
- Log ----------------------------------------------------------------- commit c553cca00d719f5fcdff702b67da6044ef5a0601 Author: Nicholas Clark <[email protected]> Date: Fri Oct 22 15:58:36 2010 +0100 For PROXYSUBS, loop with do {} not while, as there is always at least 1 entry. ----------------------------------------------------------------------- Summary of changes: .../lib/ExtUtils/Constant/ProxySubs.pm | 5 ++--- 1 files changed, 2 insertions(+), 3 deletions(-) diff --git a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm index 434af15..0038831 100644 --- a/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm +++ b/cpan/ExtUtils-Constant/lib/ExtUtils/Constant/ProxySubs.pm @@ -134,11 +134,10 @@ sub boottime_iterator { my $athx = $self->C_constant_prefix_param(); return sprintf <<"EOBOOT", &$generator(&$extractor($iterator)); - while ($iterator->name) { + do { $subname($athx $hash, $iterator->name, $iterator->namelen, %s); - ++$iterator; - } + } while ((++$iterator)->name); EOBOOT } -- Perl5 Master Repository
