Blob Blame History Raw
From f45d9fd5dd56139698e34bcd82fdd329f77a67ab Mon Sep 17 00:00:00 2001
From: Tony Cook <tony@develop-help.com>
Date: Mon, 13 Feb 2023 14:16:49 +1100
Subject: [PATCH] t/: use the the "isnt" form rather than "isn't" due to
 deprecated '

Perl 5.38 (and current blead perl) deprecate use of ' to replace
:: in symbol names.

This will produce an error from perl 5.40.
---
 t/parent-classfromclassfile.t | 2 +-
 t/parent-classfromfile.t      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/parent-classfromclassfile.t b/t/parent-classfromclassfile.t
index 6d92e2d..0aa7e54 100755
--- a/t/parent-classfromclassfile.t
+++ b/t/parent-classfromclassfile.t
@@ -18,4 +18,4 @@ use_ok('parent');
 # and does not get treated as a file:
 eval q{package Test1; require Dummy; use parent -norequire, 'Dummy::InlineChild'; };
 is $@, '', "Loading an unadorned class works";
-isn't $INC{"Dummy.pm"}, undef, 'We loaded Dummy.pm';
+isnt $INC{"Dummy.pm"}, undef, 'We loaded Dummy.pm';
diff --git a/t/parent-classfromfile.t b/t/parent-classfromfile.t
index 13dbcc1..7afabe9 100755
--- a/t/parent-classfromfile.t
+++ b/t/parent-classfromfile.t
@@ -20,6 +20,6 @@ my $base = './t';
 # and does not get treated as a file:
 eval sprintf q{package Test2; require '%s/lib/Dummy2.plugin'; use parent -norequire, 'Dummy2::InlineChild' }, $base;
 is $@, '', "Loading a class from a file works";
-isn't $INC{"$base/lib/Dummy2.plugin"}, undef, "We loaded the plugin file";
+isnt $INC{"$base/lib/Dummy2.plugin"}, undef, "We loaded the plugin file";
 my $o = bless {}, 'Test2';
 isa_ok $o, 'Dummy2::InlineChild';