[WIP also] Compatibility with old Perls

haukex · Sep 14, 2024 · 31dd96e · 31dd96e
1 parent f6fbe9d
commit 31dd96e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/t/Util-H2O-Also.t b/t/Util-H2O-Also.t
@@ -93,7 +93,7 @@ is $Util::H2O::Also::VERSION, '0.26';
 # test subclassing
 {
     package Test1;
-    use parent 'Util::H2O::Also';
+    our @ISA = ('Util::H2O::Also');  ## no critic (ProhibitExplicitISA)
     sub quz { return 'Quz' }
 }
 {

diff --git a/xt/author.t b/xt/author.t
@@ -135,6 +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';
 	is capture_merged {
 		my $code = <<"END_CODE"; eval "{$code\n;1}" or die $@; ## no critic (ProhibitStringyEval, RequireCarping)
 			use warnings; use strict;