bug#10095: 24.0.50; cperl-mode highlight bug

[wd]

Exists in GNU Emacs 24.0.95.1 (i686-pc-linux-gnu)  Gentoo.

On Tue, Apr 3, 2012 at 3:37 AM, wd <wd@wdicc.com> wrote:
> 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)