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

diff --git a/Changes b/Changes
index 50053f3..02f8030 100644 (file)
--- 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 (file)
--- 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;