cperl mode hangs when used with narrowing under certain conditions

["Martin Jost" <Martin.Jost@siemens.com>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1643 bytes --]

Hello,

I just discovered a problem that makes my emacs (21.2 on HPUX 10.20) hang.
[First of all:
Congratulations (I _really_ mean this !)
This is the first problem  in emacs for many year which breaks it]

System:
emacs 21.2 on HPUX 10.20
Compiled with HP tools and Motif
Perl/Micro-docs/Cperl-version gives: The version of master-file for this
CPerl is 4.32

Reproduce:
Start emacs with '-q' and probably --no-site-file (see below)
Load this into a buffer:
-------------------- snip, snip -----------------------
{
  #  'next LINE;'
  #  'next PAT;
}
-------------------- snip, snip -----------------------

Switch cperl-mode on
Narrow the buffer down to the region starting with the first comment-line
and ending with the last.
(It now should look like this:
  #  'next LINE;'
  #  'next PAT;
)

Position the cursor on the beginning of the first comment-line
Press <TAB>
=> emacs freezes; it has to be killed

This happens for me with both cperl 4.32 and 4.23 (coming with emacs)
I have to use the site-start-file to get the newer one:
This just contains:
(setq load-path
      (append (list "/pd/site-lisp/"
                          "/pd/site-lisp/pcl-cvs")
                                        load-path))

                                        (msb-mode)

TIA - and thanks for a great tool for a great language !

Martin

PS:
I thought, that cperl got confused because of the keywords in the comment.
But this
-------------------- snip, snip -----------------------
{
  #  fdgshj dsghsdj öjmäcxm
  #  dsfj gdsjdgs ljdsfhl
}
-------------------- snip, snip -----------------------
gives the same behaviour ! (Only tested with 4.32)