Perl-mode scanning bug

[David Allen]

Typing this code into emacs using perl-mode results in a parenthesis
mismatch error, despite the fact that it's valid perl syntax:

if(my $user = ${$self->{'logins'}->{$username}}) {
   # Whatever...
} 

At the last '}' before the end of the 'if' condition, it flags that
character as a mismatched parenthesis, and incorrectly indents all
code after that point.  Perl doesn't care of course since it's valid
syntax, but it's quite annoying, since it forces you to use another
dereferencing idiom.  I like to use ${ $ref }. 

Information about my machine that you're probably wondering about...
(I'm using Debian GNU/Linux on x86)

[x@mothra x]$ uname -a
Linux mothra.dyndns.org 2.4.8 #2 SMP Sat Aug 11 02:35:40 EDT 2001 i686 unknown
[x@mothra x]$ dpkg -l emacs20 emacsen-common libc6
Desired=Unknown/Install/Remove/Purge/Hold
| Status=Not/Installed/Config-files/Unpacked/Failed-config/Half-installed
|/ Err?=(none)/Hold/Reinst-required/X=both-problems (Status,Err: uppercase=bad)
||/ Name           Version        Description
+++-==============-==============-============================================
ii  emacs20        20.7-10.1      The GNU Emacs editor.
ii  emacsen-common 1.4.13         Common facilities for all emacsen.
ii  libc6          2.2.4-3        GNU C Library: Shared libraries and Timezone
[x@mothra x]$ head /usr/share/emacs/20.7/lisp/progmodes/perl-mode.elc
;ELC
;;; Compiled by buildd@gluck.debian.org on Sat Aug 18 09:23:29 2001
;;; from file
/build/buildd/emacs20-20.7/debian/tmp-emacs/usr/share/emacs/20.7/lisp/progmodes/perl-mode.el
;;; in Emacs version 20.7.2
;;; with bytecomp version 2.56
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
         (< (aref emacs-version (1- (length emacs-version))) ?A)

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

Apologies if I've left out any other important information.  Ask and
I'll provide.

-- 
David Allen
http://opop.nols.com/
----------------------------------------
>Do pigs fly?

They do when Pink Floyd is around.  ;-)
        - An unnamed USENET group