Devel-PPPort: regen tests for $] stringification

Commit f551177de1 stringified $] in parts/inc, but neglected to run
'make regen' to propagate this to the actual test files

diff --git a/dist/Devel-PPPort/t/cop.t b/dist/Devel-PPPort/t/cop.t
index 1677dee..1a981cb 100644 (file)
--- a/dist/Devel-PPPort/t/cop.t
+++ b/dist/Devel-PPPort/t/cop.t
@@ -61,7 +61,7 @@ print "# $file\n";
 ok($file =~ /cop/i);
 
 BEGIN {
-  if ($] < 5.006000) {
+  if ("$]" < 5.006000) {
     # Skip
     for (1..28) {
       ok(1, 1);

diff --git a/dist/Devel-PPPort/t/magic.t b/dist/Devel-PPPort/t/magic.t
index f467613..ed74dff 100644 (file)
--- a/dist/Devel-PPPort/t/magic.t
+++ b/dist/Devel-PPPort/t/magic.t
@@ -110,8 +110,8 @@ ok($h{sv}, 'Perl');
 
 # v1 is treated as a bareword in older perls...
 my $ver = do { local $SIG{'__WARN__'} = sub {}; eval qq[v1.2.0] };
-ok($] < 5.009 || $@ eq '');
-ok($] < 5.009 || Devel::PPPort::SvVSTRING_mg($ver));
+ok("$]" < 5.009 || $@ eq '');
+ok("$]" < 5.009 || Devel::PPPort::SvVSTRING_mg($ver));
 ok(!Devel::PPPort::SvVSTRING_mg(4711));
 
 my $foo = 'bar';

diff --git a/dist/Devel-PPPort/t/misc.t b/dist/Devel-PPPort/t/misc.t
index 0c4f027..cb27932 100644 (file)
--- a/dist/Devel-PPPort/t/misc.t
+++ b/dist/Devel-PPPort/t/misc.t
@@ -57,7 +57,7 @@ $_ = "Fred";
 ok(&Devel::PPPort::DEFSV(), "Fred");
 ok(&Devel::PPPort::UNDERBAR(), "Fred");
 
-if ($] >= 5.009002 && $] < 5.023 && $] < 5.023004) {
+if ("$]" >= 5.009002 && "$]" < 5.023 && "$]" < 5.023004) {
   eval q{
     no warnings "deprecated";
     no if $^V > v5.17.9, warnings => "experimental::lexical_topic";
@@ -120,8 +120,8 @@ ok(join(':', Devel::PPPort::xsreturn(1)), 'test1:test2');
 ok(Devel::PPPort::PERL_ABS(42), 42);
 ok(Devel::PPPort::PERL_ABS(-13), 13);
 
-ok(Devel::PPPort::SVf(42), $] >= 5.004 ? '[42]' : '42');
-ok(Devel::PPPort::SVf('abc'), $] >= 5.004 ? '[abc]' : 'abc');
+ok(Devel::PPPort::SVf(42), "$]" >= 5.004 ? '[42]' : '42');
+ok(Devel::PPPort::SVf('abc'), "$]" >= 5.004 ? '[abc]' : 'abc');
 
 ok(&Devel::PPPort::Perl_ppaddr_t("FOO"), "foo");
 
@@ -129,7 +129,7 @@ ok(&Devel::PPPort::ptrtests(), 63);
 
 ok(&Devel::PPPort::OpSIBLING_tests(), 0);
 
-if ($] >= 5.009000) {
+if ("$]" >= 5.009000) {
   eval q{
     ok(&Devel::PPPort::check_HeUTF8("hello"), "norm");
     ok(&Devel::PPPort::check_HeUTF8("\N{U+263a}"), "utf8");
@@ -146,7 +146,7 @@ ok($r[1], "13");
 ok(!Devel::PPPort::SvRXOK(""));
 ok(!Devel::PPPort::SvRXOK(bless [], "Regexp"));
 
-if ($] < 5.005) {
+if ("$]" < 5.005) {
         skip 'no qr// objects in this perl', 0;
         skip 'no qr// objects in this perl', 0;
 } else {

diff --git a/dist/Devel-PPPort/t/newSVpv.t b/dist/Devel-PPPort/t/newSVpv.t
index d14a53f..e9fee35 100644 (file)
--- a/dist/Devel-PPPort/t/newSVpv.t
+++ b/dist/Devel-PPPort/t/newSVpv.t
@@ -68,7 +68,7 @@ ok(!defined($s[4]));
 ok(@s == 1);
 ok($s[0], "test");
 
-if ($] >= 5.008001) {
+if ("$]" >= 5.008001) {
   require utf8;
   ok(utf8::is_utf8($s[0]));
 }

diff --git a/dist/Devel-PPPort/t/pv_tools.t b/dist/Devel-PPPort/t/pv_tools.t
index c4e5480..f79a15a 100644 (file)
--- a/dist/Devel-PPPort/t/pv_tools.t
+++ b/dist/Devel-PPPort/t/pv_tools.t
@@ -51,7 +51,7 @@ package main;
 my $uni = &Devel::PPPort::pv_escape_can_unicode();
 
 # sanity check
-ok($uni ? $] >= 5.006 : $] < 5.008);
+ok($uni ? "$]" >= 5.006 : "$]" < 5.008);
 
 my @r;
 

diff --git a/dist/Devel-PPPort/t/sv_xpvf.t b/dist/Devel-PPPort/t/sv_xpvf.t
index 1507431..4091986 100644 (file)
--- a/dist/Devel-PPPort/t/sv_xpvf.t
+++ b/dist/Devel-PPPort/t/sv_xpvf.t
@@ -54,25 +54,25 @@ tie %h, 'Tie::StdHash';
 $h{foo} = 'foo-';
 $h{bar} = '';
 
-ok(&Devel::PPPort::vnewSVpvf(), $] >= 5.004 ? 'Perl-42' : '%s-%d');
-ok(&Devel::PPPort::sv_vcatpvf('1-2-3-'), $] >= 5.004 ? '1-2-3-Perl-42' : '1-2-3-%s-%d');
-ok(&Devel::PPPort::sv_vsetpvf('1-2-3-'), $] >= 5.004 ? 'Perl-42' : '%s-%d');
+ok(&Devel::PPPort::vnewSVpvf(), "$]" >= 5.004 ? 'Perl-42' : '%s-%d');
+ok(&Devel::PPPort::sv_vcatpvf('1-2-3-'), "$]" >= 5.004 ? '1-2-3-Perl-42' : '1-2-3-%s-%d');
+ok(&Devel::PPPort::sv_vsetpvf('1-2-3-'), "$]" >= 5.004 ? 'Perl-42' : '%s-%d');
 
 &Devel::PPPort::sv_catpvf_mg($h{foo});
-ok($h{foo}, $] >= 5.004 ? 'foo-Perl-42' : 'foo-');
+ok($h{foo}, "$]" >= 5.004 ? 'foo-Perl-42' : 'foo-');
 
 &Devel::PPPort::Perl_sv_catpvf_mg($h{foo});
-ok($h{foo}, $] >= 5.004 ? 'foo-Perl-42-Perl-43' : 'foo-');
+ok($h{foo}, "$]" >= 5.004 ? 'foo-Perl-42-Perl-43' : 'foo-');
 
 &Devel::PPPort::sv_catpvf_mg_nocontext($h{foo});
-ok($h{foo}, $] >= 5.004 ? 'foo-Perl-42-Perl-43-Perl-44' : 'foo-');
+ok($h{foo}, "$]" >= 5.004 ? 'foo-Perl-42-Perl-43-Perl-44' : 'foo-');
 
 &Devel::PPPort::sv_setpvf_mg($h{bar});
-ok($h{bar}, $] >= 5.004 ? 'mhx-42' : '');
+ok($h{bar}, "$]" >= 5.004 ? 'mhx-42' : '');
 
 &Devel::PPPort::Perl_sv_setpvf_mg($h{bar});
-ok($h{bar}, $] >= 5.004 ? 'foo-43' : '');
+ok($h{bar}, "$]" >= 5.004 ? 'foo-43' : '');
 
 &Devel::PPPort::sv_setpvf_mg_nocontext($h{bar});
-ok($h{bar}, $] >= 5.004 ? 'bar-44' : '');
+ok($h{bar}, "$]" >= 5.004 ? 'bar-44' : '');
 

diff --git a/dist/Devel-PPPort/t/variables.t b/dist/Devel-PPPort/t/variables.t
index ef1ac8b..55da5a8 100644 (file)
--- a/dist/Devel-PPPort/t/variables.t
+++ b/dist/Devel-PPPort/t/variables.t
@@ -56,7 +56,7 @@ ok(!&Devel::PPPort::PL_sv_no());
 ok(&Devel::PPPort::PL_na("abcd"), 4);
 ok(&Devel::PPPort::PL_Sv(), "mhx");
 ok(defined &Devel::PPPort::PL_tokenbuf());
-ok($] >= 5.009005 || &Devel::PPPort::PL_parser());
+ok("$]" >= 5.009005 || &Devel::PPPort::PL_parser());
 ok(&Devel::PPPort::PL_hexdigit() =~ /^[0-9a-zA-Z]+$/);
 ok(defined &Devel::PPPort::PL_hints());
 ok(&Devel::PPPort::PL_ppaddr("mhx"), "MHX");
@@ -72,7 +72,7 @@ for (&Devel::PPPort::other_variables()) {
     local $SIG{'__WARN__'} = sub { push @w, @_ };
     ok(&Devel::PPPort::dummy_parser_warning());
   }
-  if ($] >= 5.009005) {
+  if ("$]" >= 5.009005) {
     ok(@w >= 0);
     for (@w) {
       print "# $_";
@@ -88,11 +88,11 @@ for (&Devel::PPPort::other_variables()) {
   ok($fail, 0);
 }
 
-ok(&Devel::PPPort::no_dummy_parser_vars(1) >= ($] < 5.009005 ? 1 : 0));
+ok(&Devel::PPPort::no_dummy_parser_vars(1) >= ("$]" < 5.009005 ? 1 : 0));
 
 eval { &Devel::PPPort::no_dummy_parser_vars(0) };
 
-if ($] < 5.009005) {
+if ("$]" < 5.009005) {
   ok($@, '');
 }
 else {

diff --git a/dist/Devel-PPPort/t/warn.t b/dist/Devel-PPPort/t/warn.t
index d538055..33900e9 100644 (file)
--- a/dist/Devel-PPPort/t/warn.t
+++ b/dist/Devel-PPPort/t/warn.t
@@ -56,15 +56,15 @@ $SIG{'__WARN__'} = sub { $warning = $_[0] };
 
 $warning = '';
 Devel::PPPort::warner();
-ok($] >= 5.004 ? $warning =~ /^warner bar:42/ : $warning eq '');
+ok("$]" >= 5.004 ? $warning =~ /^warner bar:42/ : $warning eq '');
 
 $warning = '';
 Devel::PPPort::Perl_warner();
-ok($] >= 5.004 ? $warning =~ /^Perl_warner bar:42/ : $warning eq '');
+ok("$]" >= 5.004 ? $warning =~ /^Perl_warner bar:42/ : $warning eq '');
 
 $warning = '';
 Devel::PPPort::Perl_warner_nocontext();
-ok($] >= 5.004 ? $warning =~ /^Perl_warner_nocontext bar:42/ : $warning eq '');
+ok("$]" >= 5.004 ? $warning =~ /^Perl_warner_nocontext bar:42/ : $warning eq '');
 
 $warning = '';
 Devel::PPPort::ckWARN();
@@ -74,5 +74,5 @@ $^W = 1;
 
 $warning = '';
 Devel::PPPort::ckWARN();
-ok($] >= 5.004 ? $warning =~ /^ckWARN bar:42/ : $warning eq '');
+ok("$]" >= 5.004 ? $warning =~ /^ckWARN bar:42/ : $warning eq '');