Update sync_pp

charsbar · charsbar · commit 041913b77e57 · 2022-07-31T15:10:01.000+09:00
diff --git a/author/bin/sync_pp.pl b/author/bin/sync_pp.pl
@@ -108,8 +108,12 @@
                          [$1\nplan skip_all => "not for older version of JSON::PP" if JSON->backend->isa('JSON::PP') && JSON->backend->VERSION < 4.09;]s;
             $content =~ s|my \$coder = JSON->new;|my \$coder = JSON->new->allow_nonref(1);|g;
         }
+        if ($basename eq '03_types.t') {
+            $content =~ s|JSON\->can\("CORE_BOOL"\) && JSON::CORE_BOOL\(\)|JSON->backend->can("CORE_BOOL") && JSON->backend->CORE_BOOL|g;
+        }
         if ($basename eq 'core_bools.t') {
-            $content =~ s|JSON->CORE_BOOL|JSON->backend->can('CORE_BOOL') && JSON->backend->CORE_BOOL|g;
+            $content =~ s|JSON->can\('CORE_BOOL'\)|JSON->backend->can('CORE_BOOL')|g;
+            $content =~ s|JSON::CORE_BOOL|JSON->backend->CORE_BOOL|g;
         }
 
         $json_test->spew($content);

Original file line number	Diff line number	Diff line change
`@@ -108,8 +108,12 @@`
`108`	`108`	`[$1\nplan skip_all => "not for older version of JSON::PP" if JSON->backend->isa('JSON::PP') && JSON->backend->VERSION < 4.09;]s;`
`109`	`109`	`$content =~ s\|my \$coder = JSON->new;\|my \$coder = JSON->new->allow_nonref(1);\|g;`
`110`	`110`	`}`
	`111`	`+ if ($basename eq '03_types.t') {`
	`112`	`+ $content =~ s\|JSON\->can\("CORE_BOOL"\) && JSON::CORE_BOOL\(\)\|JSON->backend->can("CORE_BOOL") && JSON->backend->CORE_BOOL\|g;`
	`113`	`+ }`
`111`	`114`	`if ($basename eq 'core_bools.t') {`
`112`		`- $content =~ s\|JSON->CORE_BOOL\|JSON->backend->can('CORE_BOOL') && JSON->backend->CORE_BOOL\|g;`
	`115`	`+ $content =~ s\|JSON->can\('CORE_BOOL'\)\|JSON->backend->can('CORE_BOOL')\|g;`
	`116`	`+ $content =~ s\|JSON::CORE_BOOL\|JSON->backend->CORE_BOOL\|g;`
`113`	`117`	`}`
`114`	`118`
`115`	`119`	`$json_test->spew($content);`