Perl Indentation

Perl Indentation

[Aaron Lenfestey]

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.2 (i386-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2003-04-24 on raven, modified by Debian
configured using `configure  i386-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 --without-gif'
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: nil
  default-enable-multibyte-characters: t

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

Emacs is not correctly indenting my perl.  As in the example, it too much 
indents a line following a statement including '::'. 

{
    mylib::perlfunc();
      mylib::perlfunc();
}

A minor change causes correct behavior:

{
    mylibperlfunc();
    mylib::perlfunc();
}

Also, note that correct behavior is exhibited without the enclosing {}.

Recent input:
SPC <tab> <tab> <down> <tab> <tab> <down> <tab> <tab> 
<down> <tab> <down-mouse-1> <mouse-movement> <mouse-1> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<down-mouse-1> <mouse-1> <backspace> <backspace> <backspace> 
<backspace> <backspace> <down-mouse-1> <mouse-1> <down> 
; <up> <right> <right> ; <down> <tab> <tab> <tab> <backspace> 
<tab> <tab> <tab> <up> <right> <right> <down> <tab> 
<tab> <up> <right> <right> <right> <right> <backspace> 
<down> <tab> <tab> <up> <tab> <tab> <down> <tab> <tab> 
<down> <tab> <down> <tab> <down> <tab> <down-mouse-1> 
<mouse-1> M-x r e p o r t - b u g <return> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> r e 
p <tab> <help-echo> <down-mouse-2> <mouse-2>

Recent messages:
Loading font-lock...done
Loading mwheel...done
For information about the GNU Project and its goals, type C-h C-p.
service_export.pl has auto save data; consider M-x recover-file
Loading perl-mode...done
Auto-saving...done
Auto-saving...done
Making completion list...
Loading view...done
Loading emacsbug...done