One more cperl v4.23 glitch

[Da Witch]

I just switched from v4.21 to v4.23 of cperl-mode (and to jit-lock for
font-lock support), and I've run into a new glitch: if a scalar
variable's name includes an underscore followed by a "Perl-language
word" (eg. "time" in $last_time, "scalar" in $triple_scalar_product,
"my" in $oh_my, "ref" in $hard_ref), then the "keyword part" of the
name gets the shading it would have had if it really were a
Perl-language word, the rest appears in the default text face.  This
happens even when the whole name should be shaded with
font-lock-variable-name-face (e.g. after "my").

Is there any way around this problem?

Thanks,

hk