cperl-mode problem under emacs 22.1

[kevin brintnall]

emacs -q
C-x C-f file.pl
M-x cperl-mode

Type into buffer:

$k =~ s{a}{b};
          ^ the second open brace will fail to insert, generating message:
          Args out of range: 14, 15

This is with the built-in cperl-mode 5.22 in Emacs 22.1.

This does not happen with emacs 21.x or 20.x.

###################################

With cperl-mode 5.23 form ilya, I can type the {}'s, but the following
error is generated instead:

End of `s{ ... }{ ... }' string/RE not found: (scan-error Unbalanced 
parentheses 11 13)

This causes fontification to fail.


In GNU Emacs 22.1.1 (i386-pc-freebsd)
 of 2007-07-22 on hamachi.rufus.net
configured using `configure  '--with-x=no' '--infodir=${prefix}/info' 
'--mandir=${prefix}/man' '--prefix=/usr/local' 'i386-freebsd' 
'build_alias=i386-freebsd' 'host_alias=i386-freebsd' 
'target_alias=i386-freebsd' 'CC=cc' 'CFLAGS=-O2 -fno-strict-aliasing -pipe ''

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

Major mode: CPerl

Minor modes in effect:
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t

Recent input:
C-x C-f f i l e . p l RET ESC x c p e r l - m o d e 
RET $ k SPC = ~ SPC m { a } { b } DEL DEL DEL ; RET 
$ k SPC = ~ SPC m { DEL DEL s } DEL [ DEL { a } { } 
b DEL DEL { { { { C-o C-o C-o C-a C-e DEL DEL DEL DEL 
s { a } { ESC x e m a c s - b u g RET C-a r e p o r 
e t - ESC DEL r e p o r t - RET

Recent messages:
Error during redisplay: (wrong-type-argument number-or-marker-p nil)
End of `s{ ... }' string/RE not found: (scan-error Unbalanced parentheses 20 25)
Error during redisplay: (wrong-type-argument number-or-marker-p nil)
End of `s{ ... } ... ' string/RE not found: (error Unfinished regular 
expression)
Error during redisplay: (args-out-of-range 26 27)
End of `s{ ... } ... ' string/RE not found: (error Unfinished regular 
expression)
cperl-find-pods-heres: Args out of range: 26, 27
Loading emacsbug...
Loading regexp-opt...done
Loading emacsbug...done