From: Reini Urban <rurban@cpanel.net>
Date: Mon, 10 Oct 2016 15:35:04 +0000 (+0200)
Subject: Fixes for 5.6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4a4774c712386cd9289d3aa5e2651a3feae4c33f;p=p5sagit%2FSub-Name.git

Fixes for 5.6
---

diff --git a/Name.xs b/Name.xs
index ad30533..59a62e8 100644
--- a/Name.xs
+++ b/Name.xs
@@ -10,6 +10,7 @@
 #define NEED_sv_2pv_flags
 #define NEED_newSVpvn_flags
 #define NEED_gv_fetchpvn_flags
+#define NEED_sv_catpvn_flags
 #include "ppport.h"
 
 static MGVTBL subname_vtbl;
@@ -50,6 +51,10 @@ static MGVTBL subname_vtbl;
 #define SV_CATBYTES 0
 #endif
 
+#ifndef sv_catpvn_flags
+#define sv_catpvn_flags(b,n,l,f) sv_catpvn(b,n,l)
+#endif
+
 MODULE = Sub::Name  PACKAGE = Sub::Name
 
 PROTOTYPES: DISABLE
diff --git a/t/RT96893_perlcc.t b/t/RT96893_perlcc.t
index 928a8a4..db695ed 100644
--- a/t/RT96893_perlcc.t
+++ b/t/RT96893_perlcc.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More 0.88;
+use Test::More;
 
 plan skip_all => 'B::C required for testing perlcc -O3'
     unless eval "require B::C;";
diff --git a/t/quotes-bug.t b/t/quotes-bug.t
index addb4b7..66c916f 100644
--- a/t/quotes-bug.t
+++ b/t/quotes-bug.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More 0.88;
+use Test::More tests => 1;
 use Sub::Name;
 
 my $sub = sub { (caller(0))[3] };
@@ -13,5 +13,3 @@ is(
     "foo::quz::bar::baz",
     'correctly parsed single quote from name where the last separator is ::',
 );
-
-done_testing;
diff --git a/t/smoke.t b/t/smoke.t
index 763abcc..d5ab217 100644
--- a/t/smoke.t
+++ b/t/smoke.t
@@ -3,7 +3,7 @@ use warnings;
 
 BEGIN { $^P |= 0x210 }
 
-use Test::More 0.88;
+use Test::More tests => 10;
 use Sub::Name;
 
 my $x = subname foo => sub { (caller 0)[3] };
@@ -40,5 +40,4 @@ for ("Blork:: Bar!", "Foo::Bar::Baz") {
     ::is($DB::sub{$_}, $anon);
 }
 
-::done_testing;
 # vim: ft=perl