From: Karen Etheridge <ether@cpan.org>
Date: Sat, 29 Apr 2023 08:42:14 +0000 (+0200)
Subject: skip quote-separator tests on newer perls that deprecate this behaviour
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6602ad5010b09efb182d970bc25585396484f8d;p=p5sagit%2FSub-Name.git

skip quote-separator tests on newer perls that deprecate this behaviour
---

diff --git a/Changes b/Changes
index 50053f3..02f8030 100644
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 Revision history for Sub-Name
 
 {{$NEXT}}
+    - skip quote-separator tests on newer perls that deprecate this behaviour
 
 0.26      2019-10-05 22:23:12Z
     - no changes since 0.25
diff --git a/t/quotes-bug.t b/t/quotes-bug.t
index 3600bb8..3ea3242 100644
--- a/t/quotes-bug.t
+++ b/t/quotes-bug.t
@@ -1,10 +1,15 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+use Test::More;
 use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
 use Sub::Name;
 
+plan skip_all => 'single quote as a package separator has been removed'
+  if "$]" gt '5.041001';
+plan skip_all => 'single quote as a package separator has been deprecated'
+  if "$]" gt '5.037009';
+
 my $sub = sub { (caller(0))[3] };
 subname "foo::quz'bar::baz", $sub;
 
@@ -14,3 +19,5 @@ is(
     "foo::quz::bar::baz",
     'correctly parsed single quote from name where the last separator is ::',
 );
+
+done_testing;