1 files changed, 2 insertions, 1 deletions
diff --git a/pad.c b/pad.c
index 10e957afec..06e5c8cc62 100644
--- a/pad.c
+++ b/pad.c
@@ -561,7 +561,8 @@ S_pad_alloc_name(pTHX_ PADNAME *name, U32 flags, HV *typestash,
     }
 
     padnamelist_store(PL_comppad_name, offset, name);
-    PadnamelistMAXNAMED(PL_comppad_name) = offset;
+    if (PadnameLEN(name) > 1)
+	PadnamelistMAXNAMED(PL_comppad_name) = offset;
     return offset;
 }