This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In S_pad_check_dup(), no need to check the 0th name entry.
[perl5.git] / pad.c
diff --git a/pad.c b/pad.c
index 2c1c81d..06cadbb 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -662,7 +662,7 @@ S_pad_check_dup(pTHX_ SV *name, const U32 flags, const HV *ourstash)
     }
     /* check the rest of the pad */
     if (is_our) {
-       do {
+       while (off > 0) {
            SV * const sv = svp[off];
            if (sv
                && sv != &PL_sv_undef
@@ -678,7 +678,8 @@ S_pad_check_dup(pTHX_ SV *name, const U32 flags, const HV *ourstash)
                        "\t(Did you mean \"local\" instead of \"our\"?)\n");
                break;
            }
-       } while ( off-- > 0 );
+           --off;
+       }
     }
 }