Bug #130339 for Data-Dumper-Compact: Unescaped left brace in regex when $spare = -1

I have a repro! It is attached - testing.pl. On my Perl 5.26.3, I can do: $ cpanm Carp::Always ... $ cpanm Data::Dumper::Compact --> Working on Data::Dumper::Compact Fetching http://www.cpan.org/authors/id/M/MS/MSTROUT/Data-Dumper-Compact-0.004000.tar.gz ... OK Configuring Data-Dumper-Compact-0.004000 ... OK Building and testing Data-Dumper-Compact-0.004000 ... OK Successfully installed Data-Dumper-Compact-0.004000 1 distribution installed $ perl testing.pl Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.30), passed through in regex; marked by <-- HERE in m/^(.{ <-- HERE 0,-1})\n/ at /home/cxw/perl5/lib/perl5/Data/Dumper/Compact.pm line 287. <stacktrace...> Thank you for considering this report! Chris On Mon Aug 19 22:20:11 2019, CXW wrote: Show quoted text

package App::GitFind::Actions; use warnings; use strict; use 5.010; use constant true => 1; sub dot_relative_path { } our $target1 = sub { true }; our $target2 = sub { say $_[0]->dot_relative_path($_[1]); }; package main; use Carp::Always; use Data::Dumper::Compact 'ddc'; use v5.10; my $inner1 = {code=>$App::GitFind::Actions::target1, index => 1, name => 'true'}; my $inner2 = {code=>$App::GitFind::Actions::target2, name => 'print'}; my $expr = {AND=>[$inner1, $inner2]}; my $switches = {v=>[1,1]}; say ddc({expr=>$expr, switches=>$switches});