diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-22 15:58:36 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-22 15:58:36 +0100 |
| commit | c553cca00d719f5fcdff702b67da6044ef5a0601 (patch) | |
| tree | 9042ff71fa2003550d9da03330bfbaf89a82df7d /cpan | |
| parent | 4639bd9c727433ad8bfca2730f0999246f0f26d0 (diff) | |
| download | perl-c553cca00d719f5fcdff702b67da6044ef5a0601.tar.gz | |
For PROXYSUBS, loop with do {} not while, as there is always at least 1 entry.
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/ExtUtils-Constant/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 434af15e88..0038831a9a 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 } |