Perl_ckwarn_d(pTHX_ U32 w)
{
    /* If lexical warnings have not been set then default classes warn.  */
    if (isLEXWARN_off)
	return TRUE;

    return ckwarn_common(w);
}
Perl_ckwarn_d(pTHX_ U32 w)
{
     
    if (isLEXWARN_off)
	return TRUE;

    return ckwarn_common(w);
}