Skip Menu |

This queue is for tickets about the Parse-Yapp CPAN distribution.

Report information
The Basics
Id: 114776
Status: resolved
Worked: 10 hours (600 min)
Priority: 0/
Queue: Parse-Yapp

People
Owner: Nobody in particular
Requestors: MAT [...] cpan.fsck.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 1.05
Fixed in: 1.2



Subject: Starting with Perl 5.25.1 : Unescaped left brace in regex is illegal in regex
Unescaped left brace in regex is illegal in regex; marked by <-- HERE in m/\G{ <-- HERE / at YappParse.yp line 288.
Subject: Parse-Yapp.diff
--- YappParse.yp.orig 2001-05-20 11:19:53 UTC +++ YappParse.yp @@ -285,7 +285,7 @@ sub _Lexer { return($1, [ $1, $lineno[0] ]); }; - $$input=~/\G{/gc + $$input=~/\G\{/gc and do { my($level,$from,$code); --- lib/Parse/Yapp/Parse.pm.orig 2001-05-20 11:19:57 UTC +++ lib/Parse/Yapp/Parse.pm @@ -880,7 +880,7 @@ sub _Lexer { return($1, [ $1, $lineno[0] ]); }; - $$input=~/\G{/gc + $$input=~/\G\{/gc and do { my($level,$from,$code);
Le Sam 28 Mai 2016 00:32:24, MAT a écrit : Show quoted text
> Unescaped left brace in regex is illegal in regex; marked by <-- HERE > in m/\G{ <-- HERE / at YappParse.yp line 288.
Correct patch.
Subject: Parse-Yapp.diff
--- YappParse.yp.orig 2001-05-20 11:19:53 UTC +++ YappParse.yp @@ -285,7 +285,7 @@ sub _Lexer { return($1, [ $1, $lineno[0] ]); }; - $$input=~/\G{/gc + $$input=~/\G\{/gc and do { my($level,$from,$code); @@ -312,7 +312,7 @@ sub _Lexer { and return('START',[ undef, $lineno[0] ]); $$input=~/\G%(expect)/gc and return('EXPECT',[ undef, $lineno[0] ]); - $$input=~/\G%{/gc + $$input=~/\G%\{/gc and do { my($code); --- lib/Parse/Yapp/Parse.pm.orig 2001-05-20 11:19:57 UTC +++ lib/Parse/Yapp/Parse.pm @@ -880,7 +880,7 @@ sub _Lexer { return($1, [ $1, $lineno[0] ]); }; - $$input=~/\G{/gc + $$input=~/\G\{/gc and do { my($level,$from,$code); @@ -907,7 +907,7 @@ sub _Lexer { and return('START',[ undef, $lineno[0] ]); $$input=~/\G%(expect)/gc and return('EXPECT',[ undef, $lineno[0] ]); - $$input=~/\G%{/gc + $$input=~/\G%\{/gc and do { my($code);
On Fri May 27 18:36:31 2016, MAT wrote: Show quoted text
> Le Sam 28 Mai 2016 00:32:24, MAT a écrit :
> > Unescaped left brace in regex is illegal in regex; marked by <-- HERE > > in m/\G{ <-- HERE / at YappParse.yp line 288.
> > > Correct patch.
Failures still present in perl-5.25.9. Excerpt from attempt to install with 'cpanm': ##### p lib/Parse/Yapp/Parse.pm blib/lib/Parse/Yapp/Parse.pm cp yapp blib/script/yapp "/home/jkeenan/testing/v5.25.9/bin/perl" -MExtUtils::MY -e 'MY->fixin(shift)' -- blib/script/yapp Manifying 1 pod document PERL_DL_NONLAZY=1 "/home/jkeenan/testing/v5.25.9/bin/perl" "-MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" t/*.t Unescaped left brace in regex is illegal here in regex; marked by <-- HERE in m/\G{ <-- HERE / at YappParse.yp line 288. #####
From: ppisar [...] redhat.com
Dne Pá 03.úno.2017 11:21:47, JKEENAN napsal(a): Show quoted text
> Failures still present in perl-5.25.9. Excerpt from attempt to > install with 'cpanm': > > ##### > p lib/Parse/Yapp/Parse.pm blib/lib/Parse/Yapp/Parse.pm > cp yapp blib/script/yapp > "/home/jkeenan/testing/v5.25.9/bin/perl" -MExtUtils::MY -e 'MY-
> >fixin(shift)' -- blib/script/yapp
> Manifying 1 pod document > PERL_DL_NONLAZY=1 "/home/jkeenan/testing/v5.25.9/bin/perl" "- > MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef > *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')" > t/*.t > Unescaped left brace in regex is illegal here in regex; marked by <-- > HERE in m/\G{ <-- HERE / at YappParse.yp line 288. > #####
See CPAN RT#106685 for the fix.
This issue is now resolved.