bug#18502: 24.4.50; perl-mode indentation problem

bug#18502: 24.4.50; perl-mode indentation problem

[David Howells]

perl mode automatically indents substantially off to the right following the
first sub definition that has an odd number of '$' characters in the argument
spec, eg.:

	#!/usr/bin/perl -w

	sub add_funds($) {
	    return 0;
		      }

The closing brace should be against the left margin, but isn't because it
seems that perl-mode interprets '$)' in the sub line as being a variable
expansion and not a variable spec and a closing bracket.



In GNU Emacs 24.4.50.1 (x86_64-unknown-linux-gnu, X toolkit, Xaw3d scroll 
bars)
 of 2014-09-17 on warthog.procyon.org.uk
Windowing system distributor `Fedora Project', version 11.0.11404000
System Description:     Fedora release 20 (Heisenbug)

Configured using:
 `configure --prefix=/warthog/emacs64 --without-gconf --with-x-toolkit=athena
 --without-gsettings'

Configured features:
XAW3D XPM JPEG TIFF GIF PNG RSVG IMAGEMAGICK SOUND GPM DBUS 
NOTIFY ACL
LIBSELINUX GNUTLS LIBXML2 FREETYPE M17N_FLT LIBOTF XFT ZLIB

Important settings:
  value of $LANG: en_GB.UTF-8
  value of $XMODIFIERS: @im=none
  locale-coding-system: utf-8-unix

Major mode: Emacs-Lisp

Minor modes in effect:
  diff-auto-refine-mode: t
  display-time-mode: t
  tooltip-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <up> <up> 
<left> <left> <left> M-. <return> s-b <prior> <next> 
<prior> <prior> <prior> <prior> <next> <next> <next> 
<next> <prior> <next> <prior> <up> <up> <up> <C-left> 
<C-left> C-s C-w C-w C-s C-s C-a <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <C-left> <C-left> C-s C-w C-w C-s <down-mouse-5> 
<mouse-5> <double-down-mouse-5> <double-mouse-5> <down-mouse-5> 
<mouse-5> <down-mouse-5> <mouse-5> <double-down-mouse-5> 
<double-mouse-5> <C-left> <C-left> C-s C-w C-w <C-home> 
C-s C-s C-s C-s C-s C-r C-r C-s C-s C-s C-s C-s C-s 
C-l <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
C-l <down-mouse-5> <mouse-5> C-x C-f C-# C-x C-f ~ 
/ . e m s <tab> <backspace> a <tab> <return> C-s p 
e r l C-s C-s C-s C-s C-s <up> C-x k <return> C-x C-f 
<C-backspace> <C-backspace> <C-backspace> <C-backspace> 
<C-backspace> <C-backspace> <C-backspace> s r <tab> 
<M-backspace> e m <tab> 6 <tab> / s r <tab> <tab> l 
i <tab> s <tab> <tab> p e <tab> <M-backspace> p r <tab> 
o g <tab> p <tab> e r <tab> <tab> <return> C-x C-f 
C-g C-x C-f <tab> p e r <tab> <tab> <tab> <tab> <backspace> 
<backspace> <backspace> <backspace> <tab> <tab> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <tab> 
<tab> <M-backspace> <M-backspace> <M-backspace> p <tab> 
C-g C-x C-f C-g C-x v l <help-echo> <down-mouse-1> 
<mouse-1> C-x 1 <next> <next> <next> <next> <next> 
<prior> <next> <next> <next> <prior> <next> <next> 
<next> M-x r e p <tab> o <tab> r <tab> <return>

Recent messages:
Mark set
Mark saved where search started
C-# is undefined
Quit
Mark saved where search started
Making completion list... [5 times]
Quit
Making completion list...
Quit [2 times]
Making completion list... [2 times]

Load-path shadows:
None found.

Features:
(shadow sort gnus-util mail-extr emacsbug message cl-macs dired format-spec
rfc822 mml mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 
mailabbrev
gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util help-fns
mail-prsvr mail-utils add-log log-view pcvs-util help-mode vc-annotate vc
vc-dispatcher etags misearch multi-isearch rect hippie-exp comint ansi-color
ring perl-mode sh-script smie executable jka-compr desktop frameset vc-git cl
gv cl-loaddefs cl-lib cc-mode cc-fonts cc-guess cc-menus cc-cmds cc-styles
cc-align cc-engine cc-vars cc-defs diff-mode easymenu easy-mmode time
time-date tooltip electric uniquify ediff-hook vc-hooks lisp-float-type mwheel
x-win x-dnd tool-bar dnd fontset image regexp-opt fringe tabulated-list
newcomment lisp-mode prog-mode register page menu-bar rfn-eshadow timer 
select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham
georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao korean
japanese hebrew greek romanian slovak czech european ethiopic indian cyrillic
chinese case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer
nadvice loaddefs button faces cus-face macroexp files text-properties overlay
sha1 md5 base64 format env code-pages mule custom widget
hashtable-print-readable backquote make-network-process dbusbind gfilenotify
dynamic-setting font-render-setting x-toolkit x multi-tty emacs)

Memory information:
((conses 16 218584 8136)
 (symbols 48 23771 0)
 (miscs 40 205 1045)
 (strings 32 55442 7922)
 (string-bytes 1 1788377)
 (vectors 16 16976)
 (vector-slots 8 487454 6144)
 (floats 8 92 214)
 (intervals 56 12172 13)
 (buffers 976 36)
 (heap 1024 19728 2625))

bug#18502: 24.4.50; perl-mode indentation problem

[Stefan Monnier]

> perl mode automatically indents substantially off to the right following the
> first sub definition that has an odd number of '$' characters in the argument
> spec, eg.:

> 	#!/usr/bin/perl -w

> 	sub add_funds($) {
> 	    return 0;
> 		      }

Indeed, the code that handles this had a bug which made it fail when the
identifier has an underscore.


        Stefan

bug#18502: 24.4.50; perl-mode indentation problem

[Stefan Monnier]

Version:24.5

Should be fixed in trunk now,


        Stefan