JSON-PP 2.27400_02: Fixed true/false redefinition

no warnings, take the existing values from Cpanel::JSON::XS
or JSON::XS.

Author: Reini Urban

Porting/Maintainers.pl

@@ -854,7 +854,7 @@ package Maintainers;
     'JSON::PP' => {
         'DISTRIBUTION' => 'MAKAMAKA/JSON-PP-2.27400.tar.gz',
         'FILES'        => q[cpan/JSON-PP],
-        # fallback to Cpanel::JSON::XS
+        # fallback to Cpanel::JSON::XS, fixed Boolean
         'CUSTOMIZED'   => [ qw( lib/JSON/PP.pm )],
     },
 

cpan/JSON-PP/lib/JSON/PP.pm

@@ -11,7 +11,7 @@ use Carp ();
 use B ();
 #use Devel::Peek;
 
-$JSON::PP::VERSION = '2.27400';
+$JSON::PP::VERSION = '2.27400_02'; # _01 taken by 5.25.4
 
 @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
 
@@ -1388,20 +1388,31 @@ BEGIN {
 
 
 # shamelessly copied and modified from JSON::XS code.
-
-$JSON::PP::true  = do { bless \(my $dummy = 1), 'JSON::PP::Boolean' };
-$JSON::PP::false = do { bless \(my $dummy = 0), 'JSON::PP::Boolean' };
+BEGIN {
+  if ($INC{'Cpanel/JSON/XS.pm'}) {
+    $JSON::PP::true  = $Cpanel::JSON::true;
+    $JSON::PP::false = $Cpanel::JSON::false;
+  } elsif ($INC{'JSON/XS.pm'}
+      and $INC{'Types/Serialiser.pm'}
+      and $JSON::XS::VERSION ge "3.00")
+  {
+    $JSON::PP::true  = $Types::Serialiser::true; # readonly if loaded by JSON::XS
+    $JSON::PP::false = $Types::Serialiser::false;
+  } else {
+    $JSON::PP::true  = do { bless \(my $dummy = 1), "JSON::PP::Boolean" };
+    $JSON::PP::false = do { bless \(my $dummy = 0), "JSON::PP::Boolean" };
+  }
+}
 
 sub is_bool($) {
   shift if @_ == 2; # as method call
   (ref($_[0]) and UNIVERSAL::isa( $_[0], 'JSON::PP::Boolean'))
   or (exists $INC{'Types/Serializer.pm'} and Types::Serialiser::is_bool($_[0]))
 }
 
-
-sub true  { $JSON::PP::true  }
-sub false { $JSON::PP::false }
-sub null  { undef; }
+sub true  () { $JSON::PP::true  }
+sub false () { $JSON::PP::false }
+sub null  () { undef }
 
 ###############################
 

cpan/JSON-PP/lib/JSON/PP/Boolean.pm

@@ -14,7 +14,6 @@ L<JSON::PP> for more info about this class.
 =cut
 
 use JSON::PP ();
-use strict;
 
 1;
 

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -13369,6 +13369,7 @@ for my $version ( sort { version_sort($a, $b) } keys %released ) {
             'Time::Local'           => '1.24',
             'parent'                => '0.236',
             'Cpanel::JSON::XS'      => '3.0218',
+            'JSON::PP'              => '2.27400_02',
             'CPAN::Meta'            => '2.150010c',
             'CPAN::Meta::Converter' => '2.150010',
             'CPAN::Meta::Feature'   => '2.150010',

pod/perlcdelta.pod

@@ -458,6 +458,10 @@ reformatted
 improved t/parent-pmc.t,
 excluded new xt tests
 
+=item JSON::PP  2.27400_02
+
+Fixed true/false redefinition warnings.
+
 =back
 
 =head1 Documentation

t/porting/customized.dat

@@ -61,8 +61,8 @@ File::Path cpan/File-Path/lib/File/Path.pm 623799e76e11a756ca5e18749d8bc1bdc3800
 File::Path cpan/File-Path/t/Path_win32.t 94b9276557ce7f80b91f6fd9bfa7a0cd9bf9683e
 File::Spec dist/PathTools/t/rel2abs_vs_symlink.t abbf1a890a1b6fefebc0c8a9e2849694ade89fa9
 IO::Socket::IP cpan/IO-Socket-IP/lib/IO/Socket/IP.pm fb1175286262913bec59482b84a3587ec48339ea
-JSON::PP cpan/JSON-PP/lib/JSON/PP.pm ea210ef037088b8ff77db8a0c149e09032a4beab
-Module::CoreList dist/Module-CoreList/lib/Module/CoreList.pm e56b4f5c3ddffe21bd712ba5f50c7abb3499382f
+JSON::PP cpan/JSON-PP/lib/JSON/PP.pm da7db2b7b06467019466d3d82f29bfdb6c5b0b49
+Module::CoreList dist/Module-CoreList/lib/Module/CoreList.pm 626fb1c196a9e5491df86c348f3b91d0894bdd93
 Module::CoreList dist/Module-CoreList/lib/Module/CoreList/Utils.pm c968b0977900360ef0cf739ee9f9c6be6ce91afc
 Module::Metadata cpan/Module-Metadata/t/lib/GeneratePackage.pm 502ffbe2609947430e6aa1a3df8064b3fef3e086
 Net::Domain cpan/libnet/lib/Net/Cmd.pm 70a007c38833667ad47ea8059c37c1b7d1c77b6c