--- JSON-XS/XS.pm 2007/07/02 02:57:11 1.52 +++ JSON-XS/XS.pm 2007/07/23 22:57:40 1.55 @@ -83,7 +83,7 @@ use strict; -our $VERSION = '1.4'; +our $VERSION = '1.42'; our @ISA = qw(Exporter); our @EXPORT = qw(to_json from_json); @@ -880,8 +880,8 @@ =cut -our $true = do { bless \(my $dummy = "1"), "JSON::XS::Boolean" }; -our $false = do { bless \(my $dummy = "0"), "JSON::XS::Boolean" }; +our $true = do { bless \(my $dummy = 1), "JSON::XS::Boolean" }; +our $false = do { bless \(my $dummy = 0), "JSON::XS::Boolean" }; sub true() { $true } sub false() { $false }