This queue is for tickets about the Regexp-Debugger CPAN distribution.

Report information
The Basics
Id:
133314
Status:
new
Priority:
Low/Low

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

BugTracker
Severity:
(no value)
Broken in:
(no value)
Fixed in:
(no value)



Subject: s/// inside (?{}) makes compilation fail
The following short script: use Regexp::Debugger; my $re = qr{ (?{ s/a/b/; }) }x; dies with: $VAR1 = { 'std_info' => { 'regex_pos' => 0, 'construct_type' => undef, 'quantifier' => '', 'depth' => 1, 'construct' => '', 'indent' => ' ' }, '%+' => { 'construct' => '', 'start' => '' } }; $VAR1 = { '%+' => { 'construct' => 'a', 'atom' => 'a', '_self_matching' => 'a' }, 'std_info' => { 'construct_type' => '_self_matching', 'regex_pos' => 0, 'indent' => ' ', 'construct' => 'a', 'depth' => 2, 'quantifier' => '' } }; $VAR1 = { '%+' => { 'construct' => '', 'end' => '' }, 'std_info' => { 'depth' => 2, 'quantifier' => '', 'indent' => ' ', 'construct' => '', 'regex_pos' => 1, 'construct_type' => undef } }; $VAR1 = { '%+' => { 'construct' => '', 'start' => '' }, 'std_info' => { 'indent' => ' ', 'construct' => '', 'depth' => 1, 'quantifier' => '', 'construct_type' => undef, 'regex_pos' => 0 } }; $VAR1 = { '%+' => { 'construct' => ' ', 'whitespace' => ' ', 'whitespace_chars' => ' ' }, 'std_info' => { 'indent' => ' ', 'construct' => ' ', 'depth' => 2, 'quantifier' => '', 'construct_type' => undef, 'regex_pos' => 0 } }; $VAR1 = { '%+' => { 'construct' => '(?{ s/a/b/; })', 'code_block' => '(?{ s/a/b/; })' }, 'std_info' => { 'construct_type' => undef, 'regex_pos' => 1, 'construct' => '(?{ s/a/b/; })', 'indent' => ' ', 'quantifier' => '', 'depth' => 2 } }; $VAR1 = { 'std_info' => { 'construct_type' => undef, 'regex_pos' => 27, 'indent' => ' ', 'construct' => ' ', 'depth' => 2, 'quantifier' => '' }, '%+' => { 'construct' => ' ', 'whitespace' => ' ', 'whitespace_chars' => ' ' } }; $VAR1 = { 'std_info' => { 'construct' => '', 'indent' => ' ', 'quantifier' => '', 'depth' => 2, 'construct_type' => undef, 'regex_pos' => 28 }, '%+' => { 'construct' => '', 'end' => '' } }; Undefined subroutine &main::CODE(0x243b608) called at (eval 14) line 10.


This service runs on Request Tracker, is sponsored by The Perl Foundation, and maintained by Best Practical Solutions.

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