In S_pad_check_dup(), no need to check the 0th name entry.

The 0th entry in a pad is for @_, and the name corresponding to it is NULL,
so save a check.

1 files changed, 3 insertions, 2 deletions

diff --git a/pad.c b/pad.c
index 2c1c81dd56..06cadbb259 100644
--- 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;
+	}
     }
 }