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

Report information
The Basics
Id:
134036
Status:
open
Priority:
Low/Low

People
Owner:
Nobody in particular
Requestors:
pensec.florian [...] gmail.com
Cc:
AdminCc:

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



Subject: screen blackout when step backwards and then step forward
Date: Tue, 12 Jan 2021 01:21:50 +0100
To: bug-Regexp-Debugger@rt.cpan.org
From: Florian Pensec <pensec.florian@gmail.com>
Hi to anyone that reads this, Damian or other,

I am just getting to know Regexp::Debugger and I found this bug.
When I step forwards to step 5, and then step backwards one, and then continue to step forwards, the screen doesn't print anything after getting past step 5.

It also happens if I am further into thre regex, backwards, and the continue forwards.

What can be useful for debugging is that when the screen is blacked out, and I press c for continue, the screen reappears but there is error messages that appears, you can see them by scrolling back;

This is ther error messages that appear:
Use of uninitialized value $Regexp::Debugger::subpattern_depth in numeric ge (>=) at /usr/share/perl5/site_perl/Regexp/Debugger.pm line 2290, <DATA> chunk 1.

Use of uninitialized value $Regexp::Debugger::subpattern_depth in addition (+) at /usr/share/perl5/site_perl/Regexp/Debugger.pm line 2388, <DATA> chunk 1.

And this is the script: (ends at #### END OF SCRIPT #####)
use strict;
use warnings;
use Regexp::Debugger;

$/=undef;
my $file=<DATA>;

print "true\n" if $file =~ /(?: (^[^\n]*\n)*? ^([^#\n]++)(*SKIP)\n ^(\t[^#\n]++)\n )+ /mgx;
print $1;

__END__

Pause
/home/london/.my_configurations/scripts/perl/change_url.pl

#source /home/london/.bash_profile
#eval "$(cat /home/london/.bash_profile)"

############### BASIC SOFTWARES #######################

super + y
pavucontrol


ctrl + m
thunar ${HOME}

############ END OF SCRIPT ###############

This is my softwares versions:

perl --> v5.32.0
Regexp::Debugger --> 0.002006  up to date
Term::ReadKey      --> 2.38  up to date
Term::ANSIColor    --> 5.01  up to date

You can absolutely ask me for additional informations that I have no put here.

Florian PENSEC
Subject: screen blackout when step backwards and then step forward RE
Date: Tue, 12 Jan 2021 01:27:00 +0100
To: bug-Regexp-Debugger@rt.cpan.org
From: Florian Pensec <pensec.florian@gmail.com>
I am sorry, I just realized that the DATA of the script hasn't been paste right with gmail, there lacks tabs, I add them here with the word TAB

Maybe you wouldn't have understood what the regex was for otherwise.
I am trying to write a regex that extracts pairs of lines. some keybindings followed by the command to be executed, preceded by a TAB.

use strict;
use warnings;
use Regexp::Debugger;

$/=undef;
my $file=<DATA>;

print "true\n" if $file =~ /(?: (^[^\n]*\n)*? ^([^#\n]++)(*SKIP)\n ^(\t[^#\n]++)\n )+ /mgx;
print $1;

__END__

Pause
TAB/home/london/.my_configurations/scripts/perl/change_url.pl

#source /home/london/.bash_profile
#eval "$(cat /home/london/.bash_profile)"

############### BASIC SOFTWARES #######################

super + y
TABpavucontrol


ctrl + m
TABthunar ${HOME}

Subject: Re: [rt.cpan.org #134036] screen blackout when step backwards and then step forward
Date: Tue, 9 Feb 2021 00:05:16 +0000
To: bug-Regexp-Debugger@rt.cpan.org
From: Damian Conway <damian@conway.org>
Florian,

Thank-you for the bug report.
It was concise and clear, with a simple test case.
I very much appreciate that
and I apologize for being so slow to look at it.

Unfortunately, I cannot reproduce the actual bug,
using the versions of perl, Regexp::Debugger,
Term::ReadKey, and Term::ANSIColor that you
reported. Indeed I can't reproduce the bug under
earlier versions of perl or Term::ReadKey either.

The problem may be manifesting because of differences in
the behaviour of Term::ReadKey within the terminal apps
we are each using. I am using MacOS Terminal
version 2.9.5 under MacOS 10.14.6 (Mojave).
If, as I suspect, you are using a different operating system
and/or terminal app, that may account for the problem.

I am unsure how to help you further at this point,
and I apologize for that too.

Damian


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.