[WIP also] More minor backcompat stuff

haukex · Sep 14, 2024 · 635c0e7 · 635c0e7
1 parent 31dd96e
commit 635c0e7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/xt/author.t b/xt/author.t
@@ -135,7 +135,7 @@ END_CODE
 subtest '::Also synopsis' => sub { plan tests=>5;
 	my $verbatim = getverbatim($PERLFILES[1], qr/\b(?:synopsis)\b/i);
 	is @$verbatim, 1, 'verbatim block count' or diag explain $verbatim;
-	$$verbatim[0] =~ s/^\s*use\s+\Kparent\b/base/mg if $] lt '5.010001';
+	$$verbatim[0] =~ s/^(\s*use\s+)parent\b/${1}base/mg if $] lt '5.010001';
 	is capture_merged {
 		my $code = <<"END_CODE"; eval "{$code\n;1}" or die $@; ## no critic (ProhibitStringyEval, RequireCarping)
 			use warnings; use strict;