cperl-fill-paragraph broken

[Klaus Zeitler]

Symptoms:

auto-fill of comments in cperl doesn't work anymore. I think that
cperl-fill-paragraph is broken. Suppose I have the following perl file
--- snip ---
# this is a comment line in a buffer with cperl-mode that is supposed to be 
wrapped 
# around by auto-fill
--- snip ---
when I run the command cperl-fill-paragraph, filling doesn't work and, even
worse, the comment start char in the 2nd line is removed. i.e the buffer
contains now:
--- snip ---
# this is a comment line in a buffer with cperl-mode that is supposed to be 
wrapped 
 around by auto-fill
--- snip ---


In GNU Emacs 21.3.50.4 (sparc-sun-solaris2.8, Motif Version 2.1.0)
 of 2003-10-21 on sfsws4
configured using `configure '--with-gcc' 
'--prefix=/vol/freeware/SunOS-5.8/emacs/cvs' 
'--sharedstatedir=/vol/freeware/SunOS-5.8/emacs/cvs/share' 
'--with-x-toolkit=motif' 
'--x-includes=/usr/openwin/include:/usr/local/gnu/include' 
'--x-libraries=/usr/openwin/lib:/usr/local/gnu/lib' '--with-pop' 'CC=gcc''

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

Major mode: Lisp Interaction

Minor modes in effect:
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  unify-8859-on-encoding-mode: t
  line-number-mode: t

Recent input:
( f s e t SPC p e r l - m o d e SPC ' c p e r l - m 
o e ) C-a <right> <right> <right> <right> <right> <right> 
' C-e <left> d <left> <backspace> <right> e <right> 
C-j C-x C-f C-a C-k ~ / x . p l <return> <escape> x 
c p e r l - f i l SPC p a SPC <return> C-_ <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<right> <right> <down> <help-echo> <help-echo> <help-echo> 
<help-echo> C-x 2 <help-echo> <help-echo> <help-echo> 
<down-mouse-1> <mouse-1> C-x b <return> <help-echo> 
<help-echo> <menu-bar> <help-menu> <report-emacs-b
ug>

Recent messages:
Loading mwheel...done
(/vol/freeware/SunOS-5.8/build/emacs-cvs/src/emacs -q --no-site-file)
Loading tool-bar...done
Loading image...done
Loading tooltip...done
For information about the GNU Project and its goals, type C-h C-p.
Loading cperl-mode...done
Loading newcomment...done
Undo!
Loading emacsbug...done