Skip Menu |

This queue is for tickets about the XUL-Gui CPAN distribution.

Report information
The Basics
Id: 117469
Status: open
Priority: 0/
Queue: XUL-Gui

People
Owner: Nobody in particular
Requestors: SREZIC [...] cpan.org
Cc:
AdminCc:

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



Subject: Unescaped left brace in regex is illegal here in regex
Compilation of the module fails with bleadperl (e.g. perl 5.25.4): # Failed test 'use XUL::Gui;' # at t/00-load.t line 6. # Tried to use 'XUL::Gui'. # Error: Unescaped left brace in regex is illegal here in regex; marked by <-- HERE in m/\$?W{ <-- HERE \s*(\w+)\s*}/ at /tmpfs/.cpan-build-cpansand/2016090306/XUL-Gui-0.63-0/blib/lib/XUL/Gui.pm line 1121. # Compilation failed in require at t/00-load.t line 6. # BEGIN failed--compilation aborted at t/00-load.t line 6. # Testing XUL::Gui , Perl 5.025004, /bbbike/perl-5.25.4/bin/perl5.25.4 # Looks like you failed 1 test of 1. t/00-load.t ............. Dubious, test returned 1 (wstat 256, 0x100) Failed 1/1 subtests See also http://matrix.cpantesters.org/?dist=XUL-Gui%200.63
On Sat Sep 03 12:28:18 2016, SREZIC wrote: Show quoted text
> Compilation of the module fails with bleadperl (e.g. perl 5.25.4): > > # Failed test 'use XUL::Gui;' > # at t/00-load.t line 6. > # Tried to use 'XUL::Gui'. > # Error: Unescaped left brace in regex is illegal here in regex; > marked by <-- HERE in m/\$?W{ <-- HERE \s*(\w+)\s*}/ at /tmpfs/.cpan- > build-cpansand/2016090306/XUL-Gui-0.63-0/blib/lib/XUL/Gui.pm line > 1121. > # Compilation failed in require at t/00-load.t line 6. > # BEGIN failed--compilation aborted at t/00-load.t line 6. > # Testing XUL::Gui , Perl 5.025004, /bbbike/perl-5.25.4/bin/perl5.25.4 > # Looks like you failed 1 test of 1. > t/00-load.t ............. > Dubious, test returned 1 (wstat 256, 0x100) > Failed 1/1 subtests > > > See also http://matrix.cpantesters.org/?dist=XUL-Gui%200.63
Please try the patch attached.
Subject: XUL-Gui-unescaped-left-brace.diff
1121c1121 < $js =~ s[\$?W{\s*(\w+)\s*}] [ID.$$self{W}{$1}{ID}]g; --- > $js =~ s[\$?W\{\s*(\w+)\s*}] [ID.$$self{W}{$1}{ID}]g;