fix B::Deparse tests

Author: book

lib/B/Deparse-core.t

@@ -38,8 +38,9 @@ use warnings;
 use strict;
 use Test::More;
 
-use feature (sprintf(":%vd", $^V)); # to avoid relying on the feature
-                                    # logic to add CORE::
+# to avoid relying on the feature logic to add CORE::
+use feature (sprintf(":%s", $^V =~ /^v(5\.\d+|\d+)/g));
+
 use B::Deparse;
 my $deparse = B::Deparse->new();
 

lib/B/Deparse.t

@@ -1744,7 +1744,7 @@ CORE::evalbytes '';
 ####
 # feature features when feature has been disabled by use VERSION
 # CONTEXT no warnings 'deprecated';
-use feature (sprintf(":%vd", $^V));
+use feature (sprintf(":%s", $^V =~ /^v(5\.\d+|\d+)/g));
 use 1;
 CORE::say $_;
 CORE::state $x;
@@ -1775,7 +1775,7 @@ CORE::evalbytes '';
 # (the above test with CONTEXT, and the output is equivalent but different)
 # CONTEXT use feature ':5.10'; no warnings 'deprecated';
 # feature features when feature has been disabled by use VERSION
-use feature (sprintf(":%vd", $^V));
+use feature (sprintf(":%s", $^V =~ /^v(5\.\d+|\d+)/g));
 use 1;
 CORE::say $_;
 CORE::state $x;