Fixes for 5.6

diff --git a/Name.xs b/Name.xs
index ad30533..59a62e8 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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