ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/JSON-XS/XS.pm
(Generate patch)

Comparing JSON-XS/XS.pm (file contents):
Revision 1.49 by root, Sun Jul 1 14:08:03 2007 UTC vs.
Revision 1.50 by root, Mon Jul 2 00:29:38 2007 UTC

… …
802still relatively early in its development. If you keep reporting bugs they 802still relatively early in its development. If you keep reporting bugs they
803will be fixed swiftly, though. 803will be fixed swiftly, though.
804 804
805=cut 805=cut
806 806
807our $true = do { bless \(my $dummy = 1), "JSON::XS::Boolean" }; 807our $true = do { bless \(my $dummy = "1"), "JSON::XS::Boolean" };
808our $false = do { bless \(my $dummy = 0), "JSON::XS::Boolean" }; 808our $false = do { bless \(my $dummy = "0"), "JSON::XS::Boolean" };
809 809
810sub true() { $true } 810sub true() { $true }
811sub false() { $false } 811sub false() { $false }
812 812
813sub is_bool($) { 813sub is_bool($) {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines