Subject: bug#5818: closed (Re: bug#5818: 23.1; cperl-mode sees mismatched parens where there are none)

From: [email-masked] (GNU bug Tracking System)
Date: Fri, 05 Jul 2019 18:34:02 +0000

Your bug report

#5818: 23.1; cperl-mode sees mismatched parens where there are none

which was filed against the emacs package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
5818: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=5818
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#5818: 23.1; cperl-mode sees mismatched parens where there are none
From: Stefan Kangas <[email-masked]>
To: [email-masked]
Date: Fri, 5 Jul 2019 20:33:03 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

"Terrence Brannon" <[email-masked]> writes:

> If you enter the source code below, you will get a "mismatched
>
> parentheses" error when entering
>
>
>
>               { customer_id => { '=' => \'me.customer_id' }
>
>
>
> because the backslash in front of 'me.customer_id' throws cperl-mode
>
> off
>
>
>
> ==== begin sample source code ====
>
>
>
> sub execute {
>
>   my ($self, $opt, $args) = @_;
>
>
>
>     my $p_rs = $self->app->schema->resultset('Payment');
>
>
>
>   my $rs = $p_rs->search
>
>     ({
>
>       amount => { '>' => $p_rs->search
>
>              (
>
>               { customer_id => { '=' => \'me.customer_id' }
>
>
>
>
>
> ==== end sample source code ====

Hi,

I can't reproduce this on Emacs 26.2, the latest version of Emacs.

Since the bug was reported 9 years ago, I will assume that this bug has
been fixed while you were waiting for a reply.  I am therefore closing
this bug.

If you can still reproduce this issue on the latest version of Emacs,
please report back and we can re-open the issue.

Thanks,
Stefan Kangas

Subject: 23.1; cperl-mode sees mismatched parens where there are none
From: "Terrence Brannon" <[email-masked]>
To: <[email-masked]>
Date: Thu, 1 Apr 2010 13:06:07 -0400
List-Id: <debbugs-submit.debbugs.gnu.org>

If you enter the source code below, you will get a "mismatched

parentheses" error when entering 

              { customer_id => { '=' => \'me.customer_id' }

because the backslash in front of 'me.customer_id' throws cperl-mode

off

==== begin sample source code ====

sub execute {

  my ($self, $opt, $args) = @_;

    my $p_rs = $self->app->schema->resultset('Payment');

  my $rs = $p_rs->search

    ({

      amount => { '>' => $p_rs->search

             (

              { customer_id => { '=' => \'me.customer_id' }

==== end sample source code ====

 

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'.

If you would like to further debug the crash, please read the file

/usr/share/emacs/23.1/etc/DEBUG for instructions.

In GNU Emacs 23.1.1 (i486-pc-linux-gnu, X toolkit, Xaw3d scroll bars)

 of 2010-03-26 on palmer, modified by Debian

Windowing system distributor `The X.Org Foundation', version
11.0.10604000

configured using `configure  '--build=i486-linux-gnu'
'--host=i486-linux-gnu' '--prefix=/usr' '--sharedstatedir=/var/lib'
'--libexecdir=/usr/lib' '--localstatedir=/var/lib'
'--infodir=/usr/share/info' '--mandir=/usr/share/man' '--with-pop=yes'
'--enable-locallisppath=/etc/emacs23:/etc/emacs:/usr/local/share/emacs/2
3.1/site-lisp:/usr/local/share/emacs/site-lisp:/usr/share/emacs/23.1/sit
e-lisp:/usr/share/emacs/site-lisp:/usr/share/emacs/23.1/leim'
'--with-x=yes' '--with-x-toolkit=lucid' '--with-toolkit-scroll-bars'
'build_alias=i486-linux-gnu' 'host_alias=i486-linux-gnu'
'CFLAGS=-DDEBIAN -g -O2' 'LDFLAGS=-g' 'CPPFLAGS=''

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: en_US.UTF-8

  value of $XMODIFIERS: nil

  locale-coding-system: utf-8-unix

  default-enable-multibyte-characters: t

Major mode: CPerl

Minor modes in effect:

  shell-dirtrack-mode: t

  desktop-save-mode: t

  show-paren-mode: t

  global-auto-revert-mode: t

  tooltip-mode: t

  mouse-wheel-mode: t

  menu-bar-mode: t

  file-name-shadow-mode: t

  global-font-lock-mode: t

  font-lock-mode: t

  blink-cursor-mode: t

  global-auto-composition-mode: t

  auto-encryption-mode: t

  auto-compression-mode: t

  column-number-mode: t

  line-number-mode: t

  transient-mark-mode: t

Recent input:

C-s C-n C-n C-p C-n C-SPC C-n C-n C-n C-n C-n C-n C-e 

C-w SPC SPC * <backspace> SPC SPC * <backspace> <backspace> 

<backspace> * C-n C-n C-b C-d C-d C-n C-f C-f C-f C-f 

<return> SPC SPC C-f C-f C-f C-f C-f C-f C-f C-f C-f 

C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f C-f 

C-f C-f C-f C-x C-s C-n C-n C-n C-n C-n C-a C-k <help-echo> 

<help-echo> <down-mouse-1> <mouse-movement> <mouse-1> 

C-p C-o <tab> m y SPC $ p _ r s SPC = SPC $ s e l f 

- > a p p - . <backspace> > s c e h <backspace> <backspace> 

h e m a - > r e s u l t s e t ( ' P a y m e n t ' ) 

; <return> <return> <tab> m y SPC $ p <backspace> r 

s SPC = SPC $ p _ r s - > s e a r c h ( { <return> 

<tab> C-p C-p C-n C-b C-b <return> <tab> C-n <tab> 

a m o u n t SPC = > SPC { SPC ' > = <backspace> ' SPC 

= > SPC $ p _ r s - > s e a r c h <return> <tab> ( 

{ <backspace> <return> <tab> { SPC c u s t o m e r 

_ i d SPC = > SPC { SPC ' = ' SPC = > SPC \ ' m e . 

c u s t o m e r _ i d ' SPC } SPC <backspace> <backspace> 

} <help-echo> <help-echo> <down-mouse-1> <mouse-movement> 

<mouse-1> C-x 0 <backspace> } <help-echo> <help-echo> 

<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 

<down-mouse-1> <mouse-movement> <mouse-1> ESC x r e 

p o r t - e m <tab> <return>

Recent messages:

Saving file
/home/metaperl/prg/DBIx-Cookbook/lib/DBIx/Cookbook/DBIC/Command/correlat
ed_subquery.pm...

Wrote
/home/metaperl/prg/DBIx-Cookbook/lib/DBIx/Cookbook/DBIC/Command/correlat
ed_subquery.pm

Mark set [2 times]

Saving file
/home/metaperl/prg/DBIx-Cookbook/lib/DBIx/Cookbook/DBIC/Command/correlat
ed_subquery.pm...

Wrote
/home/metaperl/prg/DBIx-Cookbook/lib/DBIx/Cookbook/DBIC/Command/correlat
ed_subquery.pm

Mark set

Saving file
/home/metaperl/prg/DBIx-Cookbook/lib/DBIx/Cookbook/DBIC/Command/correlat
ed_subquery.pm...

Wrote
/home/metaperl/prg/DBIx-Cookbook/lib/DBIx/Cookbook/DBIC/Command/correlat
ed_subquery.pm

Auto-saving...done

Auto-saving...