Skip Menu |
 

This queue is for tickets about the DBIx-MyParsePP CPAN distribution.

Report information
The Basics
Id: 125070
Status: resolved
Worked: 1.5 hours (90 min)
Priority: 0/
Queue: DBIx-MyParsePP

People
Owner: MERKYS [...] cpan.org
Requestors: andrius.merkys [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: 0.51



Subject: Parser hangs for statements with quoted DEFINER
Date: Wed, 11 Apr 2018 10:32:11 +0300
To: bug-DBIx-MyParsePP [...] rt.cpan.org
From: Andrius Merkys <andrius.merkys [...] gmail.com>
Download (untitled) / with headers
text/plain 2.1k
To whom it may concern The parser hangs interminably for CREATE VIEW statements with quoted definer host, for example "DEFINER = root@`localhost`" (or "DEFINER = root@'localhost'"): $ perl bin/mylexpp.pl 'CREATE ALGORITHM=UNDEFINED DEFINER = root@`localhost` SQL SECURITY DEFINER VIEW `view` AS select `column` FROM `table`' $VAR1 = \bless( [                    'CREATE',                    'CREATE'                  ], 'DBIx::MyParsePP::Token' ); $VAR1 = \bless( [                    'ALGORITHM_SYM',                    'ALGORITHM'                  ], 'DBIx::MyParsePP::Token' ); $VAR1 = \bless( [                    'EQ',                    '='                  ], 'DBIx::MyParsePP::Token' ); $VAR1 = \bless( [                    'UNDEFINED_SYM',                    'UNDEFINED'                  ], 'DBIx::MyParsePP::Token' ); $VAR1 = \bless( [                    'DEFINER_SYM',                    'DEFINER'                  ], 'DBIx::MyParsePP::Token' ); $VAR1 = \bless( [                    'EQ',                    '='                  ], 'DBIx::MyParsePP::Token' ); $VAR1 = \bless( [                    'IDENT',                    'root'                  ], 'DBIx::MyParsePP::Token' ); where it has to be stopped manually. The other variants, namely "DEFINER = `root`@`localhost`", "DEFINER = `root`@localhost" and "DEFINER = root@localhost" seem to be parsed fine. Distribution name and version: DBIx-MyParsePP-0.50 Perl version: This is perl 5, version 22, subversion 1 (v5.22.1) built for x86_64-linux-gnu-thread-multi Operating System vendor and version: Linux <host> 4.13.0-38-generic #43~16.04.1-Ubuntu SMP Wed Mar 14 17:48:43 UTC 2018 x86_64 x86_64 x86_64 GNU/Linux Best, Andrius -- Andrius Merkys Vilnius University Institute of Biotechnology, Saulėtekio al. 7, room V325 LT-10257 Vilnius, Lithuania
Download (untitled) / with headers
text/plain 2.2k
On Wed Apr 11 03:32:28 2018, andrius.merkys@gmail.com wrote: Show quoted text
> To whom it may concern > > The parser hangs interminably for CREATE VIEW statements with quoted > definer host, for example "DEFINER = root@`localhost`" (or "DEFINER = > root@'localhost'"): > > $ perl bin/mylexpp.pl 'CREATE ALGORITHM=UNDEFINED DEFINER = > root@`localhost` SQL SECURITY DEFINER VIEW `view` AS select `column` > FROM `table`' > $VAR1 = \bless( [ >                    'CREATE', >                    'CREATE' >                  ], 'DBIx::MyParsePP::Token' ); > $VAR1 = \bless( [ >                    'ALGORITHM_SYM', >                    'ALGORITHM' >                  ], 'DBIx::MyParsePP::Token' ); > $VAR1 = \bless( [ >                    'EQ', >                    '=' >                  ], 'DBIx::MyParsePP::Token' ); > $VAR1 = \bless( [ >                    'UNDEFINED_SYM', >                    'UNDEFINED' >                  ], 'DBIx::MyParsePP::Token' ); > $VAR1 = \bless( [ >                    'DEFINER_SYM', >                    'DEFINER' >                  ], 'DBIx::MyParsePP::Token' ); > $VAR1 = \bless( [ >                    'EQ', >                    '=' >                  ], 'DBIx::MyParsePP::Token' ); > $VAR1 = \bless( [ >                    'IDENT', >                    'root' >                  ], 'DBIx::MyParsePP::Token' ); > > where it has to be stopped manually. The other variants, namely > "DEFINER = `root`@`localhost`", "DEFINER = `root`@localhost" and > "DEFINER = root@localhost" seem to be parsed fine. > > Distribution name and version: DBIx-MyParsePP-0.50 > Perl version: This is perl 5, version 22, subversion 1 (v5.22.1) built > for x86_64-linux-gnu-thread-multi > Operating System vendor and version: Linux <host> 4.13.0-38-generic > #43~16.04.1-Ubuntu SMP Wed Mar 14 17:48:43 UTC 2018 x86_64 x86_64 > x86_64 GNU/Linux > > Best, > Andrius
The bug is fixed in https://github.com/merkys/DBIx-MyParsePP/commit/f26dc25746e224c0b27ea7c600d72a43fd8f749f.
Bug is fixed, closing the issue.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.