cperl-mode Parsing Bug

[David Wheeler]

Symptoms:

cperl-mode 5.0-Emacs does not properly parse POD, regular expressions,
or q* operators. When I start emacs -Q and enable font-lock-mode and
load the following program under cperl-mode, the regular expression is
not properly parsed and highlighted (if I were to insert a "'" into it,
it would think that the rest of the script was a string!). The POD is
not recognized as separate from the program, and the qq{} operator in
the last line is not marked as a string.

#!/usr/bin/perl -w

use strict;

my $foo = shift;
print "Yep\n" if $foo =~ /what/;

=pod

This is a test

=cut

print qq{This should work\n};

__END__

In GNU Emacs 22.0.50.1 (powerpc-apple-darwin7.8.0)
 of 2005-04-14 on geertz.kineticode.com
Distributor `Apple Computers', version 10.3.9
configured using `configure '--with-carbon' '--without-x''

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: nil
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

Major mode: CPerl

Minor modes in effect:
  encoded-kbd-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t
  next-error-follow-minor-mode:  Fol

Recent input:
<down-mouse-1> <mouse-1> C-x C-f b i n / t r y <return> 
M-x c p e r l <tab> m o <tab> <backspace> <backspace> 
<return> M-x r e p o <tab> r <tab> <return>

Recent messages:
Loading tool-bar...done
Loading image...done
Loading tooltip...done
Loading encoded-kb...done
For information about the GNU Project and its goals, type C-h C-p.
Loading perl-mode...done
Loading cperl-mode...done
Making completion list...
Loading help-mode...done
Loading emacsbug...done