From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: wd Newsgroups: gmane.emacs.bugs Subject: bug#10095: 24.0.50; cperl-mode highlight bug Date: Mon, 21 Nov 2011 18:10:00 +0800 Message-ID: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 X-Trace: dough.gmane.org 1321896080 8677 80.91.229.12 (21 Nov 2011 17:21:20 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Mon, 21 Nov 2011 17:21:20 +0000 (UTC) To: 10095@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Mon Nov 21 18:21:15 2011 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1RSXYQ-0003ln-To for geb-bug-gnu-emacs@m.gmane.org; Mon, 21 Nov 2011 18:21:15 +0100 Original-Received: from localhost ([::1]:41518 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RSXYQ-0001nK-FA for geb-bug-gnu-emacs@m.gmane.org; Mon, 21 Nov 2011 12:21:14 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:50651) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RSXVC-0000da-9M for bug-gnu-emacs@gnu.org; Mon, 21 Nov 2011 12:17:59 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RSXV6-0007T9-7t for bug-gnu-emacs@gnu.org; Mon, 21 Nov 2011 12:17:53 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:59613) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RSXV6-0007T4-5z for bug-gnu-emacs@gnu.org; Mon, 21 Nov 2011 12:17:48 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.69) (envelope-from ) id 1RSXWI-0001nL-7e for bug-gnu-emacs@gnu.org; Mon, 21 Nov 2011 12:19:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: wd Original-Sender: debbugs-submit-bounces@debbugs.gnu.org Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Mon, 21 Nov 2011 17:19:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 10095 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: X-Debbugs-Original-To: bug-gnu-emacs@gnu.org Original-Received: via spool by submit@debbugs.gnu.org id=B.13218959366883 (code B ref -1); Mon, 21 Nov 2011 17:19:02 +0000 Original-Received: (at submit) by debbugs.gnu.org; 21 Nov 2011 17:18:56 +0000 Original-Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RSXW8-0001mt-AY for submit@debbugs.gnu.org; Mon, 21 Nov 2011 12:18:56 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]) by debbugs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1RSQqX-0007qd-E3 for submit@debbugs.gnu.org; Mon, 21 Nov 2011 05:11:33 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RSQpH-0003cV-M5 for submit@debbugs.gnu.org; Mon, 21 Nov 2011 05:10:16 -0500 Original-Received: from lists.gnu.org ([140.186.70.17]:55759) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RSQpH-0003cR-KV for submit@debbugs.gnu.org; Mon, 21 Nov 2011 05:10:11 -0500 Original-Received: from eggs.gnu.org ([140.186.70.92]:53943) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RSQpD-0003Hd-9o for bug-gnu-emacs@gnu.org; Mon, 21 Nov 2011 05:10:11 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RSQp8-0003XB-8G for bug-gnu-emacs@gnu.org; Mon, 21 Nov 2011 05:10:07 -0500 Original-Received: from mail-iy0-f169.google.com ([209.85.210.169]:42196) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RSQp8-0003Wf-2J for bug-gnu-emacs@gnu.org; Mon, 21 Nov 2011 05:10:02 -0500 Original-Received: by iaek3 with SMTP id k3so10238287iae.0 for ; Mon, 21 Nov 2011 02:10:00 -0800 (PST) Original-Received: by 10.42.115.136 with SMTP id k8mr12938714icq.46.1321870200104; Mon, 21 Nov 2011 02:10:00 -0800 (PST) Original-Received: by 10.50.186.228 with HTTP; Mon, 21 Nov 2011 02:10:00 -0800 (PST) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 3) X-Mailman-Approved-At: Mon, 21 Nov 2011 12:18:49 -0500 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.11 Precedence: list Resent-Date: Mon, 21 Nov 2011 12:19:02 -0500 X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 140.186.70.43 X-Mailman-Approved-At: Mon, 21 Nov 2011 12:21:11 -0500 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:54126 Archived-At: 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 C-v C-x C-f C-g M-x r e p o r t - b u 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)