Cperl-mode does not highlight function names properly

[jerome@marant.org (Jérôme Marant)]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.3.1 (powerpc-unknown-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2005-02-06 on voltaire, modified by Debian
configured using `configure '--build=powerpc-linux' '--host=powerpc-linux' '--prefix=/usr' '--sharedstatedir=/var/lib' '--libexecdir=/usr/lib' '--localstatedir=/var/lib' '--infodir=/usr/share/info' '--mandir=/usr/share/man' '--with-pop=yes' '--with-x=yes' '--with-x-toolkit=athena' 'CFLAGS=-DDEBIAN -g -O2' 'build_alias=powerpc-linux' 'host_alias=powerpc-linux''
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: fr_FR@euro
  locale-coding-system: iso-latin-9
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Hi,

Cperl-mode does not highlight properly function names that contain
Perl keywords.

Here is a test case.

------------

#!/usr/bin/perl

sub test_read_file ()
  {

  }

sub func ()
  {

  }

------------

You will notice that 'read' in test_read_file is highlighted as
a keyword whereas 'func' is hightlighted as a function name.

I could reproduce the problem with current CVS trunk as well.

Cheers,

Recent input:
<down> SPC <down> SPC <down> SPC q SPC SPC q <help-echo> 
C-x C-f A . p l <backspace> <backspace> <backspace> 
<backspace> a . p l <return> M-x c p e r <tab> <return> 
# ! / u s r / b i n / p e r l <return> <return> s u 
b SPC t e s t _ r e a d _ f i l e SPC ( ) <return> 
[ <backspace> { <return> <return> } <return> <return> 
s u b SPC t e s t SPC ( ) <return> { <return> <return> 
} <help-echo> <down-mouse-1> <M-mouse-1> <C-down-m
ouse-3>

Recent messages:
Suppressing duplicates...done
Generating summary...done
No more unread newsgroups
(iconify-frame (#<frame emacs21@amboise 0x1cb79a0\ >))
(make-frame-visible (#<frame emacs21@amboise 0x1cb79a0\ >))
(New file)
Loading perl-mode...done
Loading cperl-mode...done

Loading emacsbug...done