bug#10095: 24.0.50; cperl-mode highlight bug

[wd]

This bug still exists in emacs 24.0.94.1, both gnus/linux and macos.

GNU Emacs 24.0.94.1 (i386-apple-darwin11.3.0, NS apple-appkit-1138.32)
of 2012-03-03 on localhost


On Mon, Nov 21, 2011 at 6:10 PM, wd <wd@wdicc.com> wrote:
> This bug report will be sent to the Bug-GNU-Emacs mailing list
> and the GNU bug tracker at debbugs.gnu.org.  Please check that
> the From: line contains a valid email address.  After a delay of up
> to one day, you should receive an acknowledgement at that address.
>
> Please write in English if possible, as the Emacs maintainers
> usually do not have translators for other languages.
>
> Please describe exactly what actions triggered the bug, and
> the precise symptoms of the bug.  If you can, give a recipe
> starting from `emacs -Q':
>
>
> 1. Write a perl file named as 'a.pl', and past the following code
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use Data::Dumper;
> use POSIX qw/strftime mktime/;
> use Getopt::Long;
> use DBI;
>
> use JSON;
>
> sub main {
> }
>
> sub log {
>    my $msg = shift;
>    print localtime() . " $msg\n" if $v;
> }
>
> sub get_all_teams {
>    # we only can process temas that begin_time greater than
> 2011-09-07, since refund_log only start at that time
>    my $sql = qq/
>        select
>            id,
>            to_timestamp(begin_time)::date as begin_time,
>            to_timestamp(end_time)::date as end_time,
>            cost_price,
>            payment_method,
>            ZuiHouGuiTuan_date,
>            N,
>            XiaoFeiQuanQuanBuLuRu_date,
>            ShangHuQuanXiaoFeiDaoQi_date,
>            KuaiDiQuanBuLuRu_date
>        from
>            public.team
>        where
>            to_timestamp(begin_time)::date >= '2011-09-07'
>            and to_timestamp(end_time)::date <= '$dt'
>            and payment_method > 0
>            and id not in ( select team_id from
> report.tuan_balance_history where finish = 1 )
>    /;
>
>    my $r = $dbh->selectall_arrayref($sql);
>    for(@$r) {
>        my ( $team_id, $begin_time, $end_time, $cost_price,
> $payment_method, $zhgt_date, $N, $xfqqblr_date, $shqxfdq_date,
> $kdqblr_date ) = @$_;
>        $teams_hash{ $team_id } = {
>            begin_time => $begin_time,
>            end_time => $end_time,
>            cost_price => $cost_price,
>            payment_method => $payment_method,
>            balanced_count => 0,
>            balanced_money => 0,
>            other_tuan_quantity => 0,
>            other_tuan_refund_quantity => 0,
>            other_tuan_coupon_consumed_count => 0,
>            quantity => 0,
>            refund_quantity => 0,
>            real_quantity => 0,
>            vendor_fee => 0,
>            coupon_consumed_count => 0,
>            coupon_consumed_percent => 0,
>            coupon_is_expire => 0,
>            vendor_fee => 0,
>            zhgt_date => $zhgt_date,
>            xfqqblr_date => $xfqqblr_date,
>            N => $N,
>            kdqblr_date => $kdqblr_date,
>            shqxfdq_date => $shqxfdq_date,
>            balanced_dates => [],
>            expressed_count => 0,
>            through_coupon_consumed_count => 0
>        };
>    }
> }
>
> 2. Open 'a.pl' use 'emacs -Q a.pl', emacs will use perl-mode open this
> file, type 'M-x cperl-mode', type C-v to page down, you will see 'my $r' and
> the following lines will not highlight as expect.
>
>
> If Emacs crashed, and you have the Emacs process in the gdb debugger,
> please include the output from the following gdb commands:
>    `bt full' and `xbacktrace'.
> For information about debugging Emacs, please read the file
> /usr/share/emacs/24.0.50/etc/DEBUG.
>
>
> In GNU Emacs 24.0.50.1 (i686-pc-linux-gnu, GTK+ Version 2.24.5)
>  of 2011-08-02 on tux
> Windowing system distributor `The X.Org Foundation', version 11.0.11102000
> configured using `configure  '--prefix=/usr'
> '--build=i686-pc-linux-gnu' '--host=i686-pc-linux-gnu'
> '--mandir=/usr/share/man' '--infodir=/usr/share/info'
> '--datadir=/usr/share' '--sysconfdir=/etc' '--localstatedir=/var/lib'
> '--disable-dependency-tracking' '--program-suffix=-emacs-24'
> '--infodir=/usr/share/info/emacs-24'
> '--with-crt-dir=/usr/lib/gcc/i686-pc-linux-gnu/4.5.2/../../..'
> '--with-gameuser=games' '--without-compress-info' '--without-hesiod'
> '--without-kerberos' '--without-kerberos5' '--with-gpm' '--with-dbus'
> '--without-gnutls' '--without-selinux' '--with-sound' '--with-x'
> '--without-xml2' '--without-toolkit-scroll-bars' '--without-wide-int'
> '--with-gif' '--with-jpeg' '--with-png' '--with-rsvg' '--with-tiff'
> '--with-xpm' '--without-imagemagick' '--without-gsettings'
> '--without-gconf' '--with-xft' '--without-libotf' '--without-m17n-flt'
> '--with-x-toolkit=gtk' 'build_alias=i686-pc-linux-gnu'
> 'host_alias=i686-pc-linux-gnu' 'CFLAGS=-O2 -march=prescott -pipe'
> 'LDFLAGS=-Wl,-O1 -Wl,--as-needed''
>
> Important settings:
>  value of $LC_ALL: nil
>  value of $LC_COLLATE: nil
>  value of $LC_CTYPE: zh_CN.UTF-8
>  value of $LC_MESSAGES: nil
>  value of $LC_MONETARY: nil
>  value of $LC_NUMERIC: nil
>  value of $LC_TIME: nil
>  value of $LANG: en_US.UTF-8
>  value of $XMODIFIERS: @im=ibus
>  locale-coding-system: utf-8-unix
>  default enable-multibyte-characters: t
>
> Major mode: CPerl
>
> Minor modes in effect:
>  tooltip-mode: t
>  mouse-wheel-mode: t
>  tool-bar-mode: t
>  menu-bar-mode: t
>  file-name-shadow-mode: t
>  global-font-lock-mode: t
>  font-lock-mode: t
>  blink-cursor-mode: t
>  auto-composition-mode: t
>  auto-encryption-mode: t
>  auto-compression-mode: t
>  line-number-mode: t
>  transient-mark-mode: t
>
> Recent input:
> M-x c p e r l - m o d e <return> C-v C-x C-f C-g M-x
> r e p o r t - b u <tab> <return>
>
> Recent messages:
> For information about GNU Emacs and the GNU system, type C-h C-a.
> Quit
>
> Load-path shadows:
> /usr/share/emacs/site-lisp/flim/hex-util hides
> /usr/share/emacs/24.0.50/lisp/hex-util
> /usr/share/emacs/site-lisp/flim/md4 hides /usr/share/emacs/24.0.50/lisp/md4
> /usr/share/emacs/site-lisp/flim/sasl-cram hides
> /usr/share/emacs/24.0.50/lisp/net/sasl-cram
> /usr/share/emacs/site-lisp/flim/sasl-digest hides
> /usr/share/emacs/24.0.50/lisp/net/sasl-digest
> /usr/share/emacs/site-lisp/flim/sasl hides
> /usr/share/emacs/24.0.50/lisp/net/sasl
> /usr/share/emacs/site-lisp/flim/ntlm hides
> /usr/share/emacs/24.0.50/lisp/net/ntlm
> /usr/share/emacs/site-lisp/flim/sasl-ntlm hides
> /usr/share/emacs/24.0.50/lisp/net/sasl-ntlm
> /usr/share/emacs/site-lisp/flim/hmac-md5 hides
> /usr/share/emacs/24.0.50/lisp/net/hmac-md5
> /usr/share/emacs/site-lisp/flim/hmac-def hides
> /usr/share/emacs/24.0.50/lisp/net/hmac-def
> /usr/share/emacs/site-lisp/semi/smime hides
> /usr/share/emacs/24.0.50/lisp/gnus/smime
> /usr/share/emacs/site-lisp/emms/tq hides
> /usr/share/emacs/24.0.50/lisp/emacs-lisp/tq
> /usr/share/emacs/site-lisp/semi/pgg hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg
> /usr/share/emacs/site-lisp/semi/pgg-def hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-def
> /usr/share/emacs/site-lisp/semi/pgg-gpg hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-gpg
> /usr/share/emacs/site-lisp/semi/pgg-pgp hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-pgp
> /usr/share/emacs/site-lisp/semi/pgg-parse hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-parse
> /usr/share/emacs/site-lisp/semi/pgg-pgp5 hides
> /usr/share/emacs/24.0.50/lisp/obsolete/pgg-pgp5
>
> Features:
> (shadow sort gnus-util mail-extr message format-spec rfc822 mml mml-sec
> mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045
> ietf-drums mm-util mail-prsvr mailabbrev mail-utils gmm-utils mailheader
> emacsbug cperl-mode easymenu perl-mode time-date china-util tooltip
> ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd
> fontset image fringe lisp-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 loaddefs button faces cus-face files
> text-properties overlay sha1 md5 base64 format env code-pages mule
> custom widget hashtable-print-readable backquote make-network-process
> dbusbind dynamic-setting font-render-setting move-toolbar gtk x-toolkit
> x multi-tty emacs)