add code comment for change 22525

p4raw-id: //depot/perl@22531

diff --git a/pp.c b/pp.c
index 866d554..d3434c3 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -2377,7 +2377,7 @@ PP(pp_complement)
        register I32 anum;
        STRLEN len;
 
-       (void)SvPV_nomg(sv,len);
+       (void)SvPV_nomg(sv,len); /* force check for uninit var */
        sv_setsv_nomg(TARG, sv);
        tmps = (U8*)SvPV_force(TARG, len);
        anum = len;