r66517 - in /trunk/libjson-perl: ./ debian/ lib/ lib/JSON/ lib/JSON/PP/ lib/JSON/backportPP/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Dec 27 20:50:33 UTC 2010
Author: jawnsy-guest
Date: Mon Dec 27 20:50:27 2010
New Revision: 66517
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66517
Log:
I'm not sure about all this backportPP junk...
* New upstream release
Added:
trunk/libjson-perl/lib/JSON/backportPP/
- copied from r66512, branches/upstream/libjson-perl/current/lib/JSON/backportPP/
trunk/libjson-perl/lib/JSON/backportPP.pm
- copied unchanged from r66512, branches/upstream/libjson-perl/current/lib/JSON/backportPP.pm
Removed:
trunk/libjson-perl/lib/JSON/PP/
trunk/libjson-perl/lib/JSON/PP.pm
trunk/libjson-perl/lib/JSON/PP5005.pm
trunk/libjson-perl/lib/JSON/PP56.pm
trunk/libjson-perl/lib/JSON/PP58.pm
Modified:
trunk/libjson-perl/Changes
trunk/libjson-perl/MANIFEST
trunk/libjson-perl/META.yml
trunk/libjson-perl/Makefile.PL
trunk/libjson-perl/README
trunk/libjson-perl/debian/changelog
trunk/libjson-perl/lib/JSON.pm
trunk/libjson-perl/t/00_load.t
trunk/libjson-perl/t/01_utf8.t
trunk/libjson-perl/t/02_error.t
trunk/libjson-perl/t/03_types.t
trunk/libjson-perl/t/06_pc_pretty.t
trunk/libjson-perl/t/07_pc_esc.t
trunk/libjson-perl/t/08_pc_base.t
trunk/libjson-perl/t/09_pc_extra_number.t
trunk/libjson-perl/t/10_pc_keysort.t
trunk/libjson-perl/t/11_pc_expo.t
trunk/libjson-perl/t/12_blessed.t
trunk/libjson-perl/t/13_limit.t
trunk/libjson-perl/t/14_latin1.t
trunk/libjson-perl/t/15_prefix.t
trunk/libjson-perl/t/16_tied.t
trunk/libjson-perl/t/17_relaxed.t
trunk/libjson-perl/t/18_json_checker.t
trunk/libjson-perl/t/19_incr.t
trunk/libjson-perl/t/20_unknown.t
trunk/libjson-perl/t/21_evans_bugrep.t
trunk/libjson-perl/t/22_comment_at_eof.t
trunk/libjson-perl/t/99_binary.t
trunk/libjson-perl/t/e00_func.t
trunk/libjson-perl/t/e01_property.t
trunk/libjson-perl/t/e02_bool.t
trunk/libjson-perl/t/e03_bool2.t
trunk/libjson-perl/t/e04_sortby.t
trunk/libjson-perl/t/e05_esc_slash.t
trunk/libjson-perl/t/e06_allow_barekey.t
trunk/libjson-perl/t/e07_allow_singlequote.t
trunk/libjson-perl/t/e08_decode.t
trunk/libjson-perl/t/e09_encode.t
trunk/libjson-perl/t/e10_bignum.t
trunk/libjson-perl/t/e11_conv_blessed_univ.t
trunk/libjson-perl/t/e12_upgrade.t
trunk/libjson-perl/t/e13_overloaded_eq.t
trunk/libjson-perl/t/e14_decode_prefix.t
trunk/libjson-perl/t/e15_tie_ixhash.t
Modified: trunk/libjson-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/Changes?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/Changes (original)
+++ trunk/libjson-perl/Changes Mon Dec 27 20:50:27 2010
@@ -13,8 +13,23 @@
##########################################################################
- !! Since 2.16, PP's relaxed option caused an infinite loop in some condition.
- !! Recommend to update old versions.
+--------------------------------------------------------------------------
+JSON::PP was inculded in JSON distribution (CPAN module).
+It comes to be a perl core module in Perl 5.14.
+And JSON::PP well be split away it.
+
+JSON distribution will inculde yet another JSON::PP modules.
+They are JSNO::backportPP. So JSON.pm should work as it did at all!
+--------------------------------------------------------------------------
+
+2.50 Mon Dec 20 14:56:42 2010
+ [JSON]
+ - stable release
+
+2.49_01 Sat Nov 27 22:03:17 2010
+ [JSON]
+ - JSON::PP is split away JSON distributino for perl 5.14
+ - JSON::backportPP is included in instead.
2.27 Sun Oct 31 20:32:46 2010
[JSON::PP]
Modified: trunk/libjson-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/MANIFEST?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/MANIFEST (original)
+++ trunk/libjson-perl/MANIFEST Mon Dec 27 20:50:27 2010
@@ -2,11 +2,10 @@
eg/bench_decode.pl
eg/bench_encode.pl
lib/JSON.pm
-lib/JSON/PP.pm
-lib/JSON/PP/Boolean.pm
-lib/JSON/PP5005.pm
-lib/JSON/PP56.pm
-lib/JSON/PP58.pm
+lib/JSON/backportPP.pm
+lib/JSON/backportPP/Boolean.pm
+lib/JSON/backportPP/Compat5005.pm
+lib/JSON/backportPP/Compat5006.pm
Makefile.PL
MANIFEST
META.yml Module meta-data (added by MakeMaker)
Modified: trunk/libjson-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/META.yml?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/META.yml (original)
+++ trunk/libjson-perl/META.yml Mon Dec 27 20:50:27 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: JSON
-version: 2.27
+version: 2.50
abstract: JSON (JavaScript Object Notation) encoder/decoder
author:
- Makamaka Hannyaharamitu, E<lt>makamaka[at]cpan.orgE<gt>
Modified: trunk/libjson-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/Makefile.PL?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/Makefile.PL (original)
+++ trunk/libjson-perl/Makefile.PL Mon Dec 27 20:50:27 2010
@@ -60,8 +60,6 @@
EOF
-
-sleep 2;
my @prereq_pm;
Modified: trunk/libjson-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/README?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/README (original)
+++ trunk/libjson-perl/README Mon Dec 27 20:50:27 2010
@@ -1,4 +1,15 @@
-JSON version 2.27
+JSON version 2.50
+=================
+
+JSON::PP was inculded in JSON distribution (CPAN module).
+It comes to be a perl core module in Perl 5.14.
+And JSON::PP well be split away it.
+
+This developer-versoin is for the preparation.
+
+ * JSON distribution will inculde yet another JSON::PP modules.
+ They are JSNO::backportPP. So JSON.pm should work as it did at all!
+
=================
INSTALLATION
@@ -45,7 +56,7 @@
# recommend to use (en|de)code_json.
VERSION
- 2.26
+ 2.50
This version is compatible with JSON::XS 2.27 and later.
Modified: trunk/libjson-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/debian/changelog?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/debian/changelog (original)
+++ trunk/libjson-perl/debian/changelog Mon Dec 27 20:50:27 2010
@@ -1,3 +1,11 @@
+libjson-perl (2.50-1) UNRELEASED; urgency=low
+
+ I'm not sure about all this backportPP junk...
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Mon, 27 Dec 2010 15:02:41 -0500
+
libjson-perl (2.27-1) unstable; urgency=low
[ Ansgar Burchardt ]
Modified: trunk/libjson-perl/lib/JSON.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/lib/JSON.pm?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/lib/JSON.pm (original)
+++ trunk/libjson-perl/lib/JSON.pm Mon Dec 27 20:50:27 2010
@@ -7,12 +7,15 @@
@JSON::EXPORT = qw(from_json to_json jsonToObj objToJson encode_json decode_json);
BEGIN {
- $JSON::VERSION = '2.27';
+ $JSON::VERSION = '2.50';
$JSON::DEBUG = 0 unless (defined $JSON::DEBUG);
+ $JSON::DEBUG = $ENV{ PERL_JSON_DEBUG } if exists $ENV{ PERL_JSON_DEBUG };
}
my $Module_XS = 'JSON::XS';
my $Module_PP = 'JSON::PP';
+my $Module_bp = 'JSON::backportPP'; # included in JSON distribution
+my $PP_Version = '2.27101';
my $XS_Version = '2.27';
@@ -42,6 +45,7 @@
my $_INSTALL_ONLY = 2; # Don't call _set_methods()
my $_ALLOW_UNSUPPORTED = 0;
my $_UNIV_CONV_BLESSED = 0;
+my $_USSING_bpPP = 0;
# Check the environment variable to decide worker module.
@@ -59,6 +63,10 @@
}
elsif ($backend eq '2' or $backend eq 'JSON::XS') {
_load_xs();
+ }
+ elsif ($backend eq 'JSON::backportPP') {
+ $_USSING_bpPP = 1;
+ _load_pp();
}
else {
Carp::croak "The value of environmental variable 'PERL_JSON_BACKEND' is invalid.";
@@ -184,7 +192,7 @@
sub is_pp {
- return $_[0]->module eq $Module_PP;
+ return not $_[0]->xs;
}
@@ -264,26 +272,43 @@
sub _load_pp {
my $opt = shift;
-
- $JSON::DEBUG and Carp::carp "Load $Module_PP.";
+ my $backend = $_USSING_bpPP ? $Module_bp : $Module_PP;
+
+ $JSON::DEBUG and Carp::carp "Load $backend.";
# if called after install module, overload is disable.... why?
JSON::Boolean::_overrride_overload($Module_XS);
- JSON::Boolean::_overrride_overload($Module_PP);
-
- eval qq| require $Module_PP |;
+ JSON::Boolean::_overrride_overload($backend);
+
+ if ( $_USSING_bpPP ) {
+ eval qq| require $backend |;
+ }
+ else {
+ eval qq| use $backend $PP_Version () |;
+ }
+
if ($@) {
- Carp::croak $@;
+ if ( $backend eq $Module_PP ) {
+ $JSON::DEBUG and Carp::carp "Can't load $Module_PP ($@), so try to load $Module_bp";
+ $_USSING_bpPP++;
+ $backend = $Module_bp;
+ JSON::Boolean::_overrride_overload($backend);
+ local $^W; # if PP installed but invalid version, backportPP redifines methods.
+ eval qq| require $Module_bp |;
+ }
+ Carp::croak $@ if $@;
}
unless (defined $opt and $opt & $_INSTALL_ONLY) {
- _set_module( $JSON::Backend = $Module_PP );
+ _set_module( $JSON::Backend = $Module_PP ); # even if backportPP, set $Backend with 'JSON::PP'
JSON::Backend::PP->init;
}
};
sub _set_module {
+ return if defined $JSON::true;
+
my $module = shift;
local $^W;
@@ -352,7 +377,7 @@
sub init {
local $^W;
- no strict qw(refs);
+ no strict qw(refs); # this routine may be called after JSON::Backend::XS init was called.
*{"JSON::decode_json"} = \&{"JSON::PP::decode_json"};
*{"JSON::encode_json"} = \&{"JSON::PP::encode_json"};
*{"JSON::PP::is_xs"} = sub { 0 };
@@ -487,7 +512,8 @@
sub _set_for_pp {
- require JSON::PP;
+ JSON::_load_pp( $_INSTALL_ONLY );
+
my $type = shift;
my $pp = new JSON::PP;
my $prop = $_[0]->property;
@@ -611,10 +637,19 @@
=head1 VERSION
- 2.27
+ 2.50
This version is compatible with JSON::XS B<2.27> and later.
+
+=head1 NOTE
+
+JSON::PP was inculded in C<JSON> distribution.
+It comes to be a perl core module in Perl 5.14.
+And L<JSON::PP> will be split away it.
+
+C<JSON> distribution will inculde yet another JSON::PP modules.
+They are JSNO::backportPP and so on. JSON.pm should work as it did at all.
=head1 DESCRIPTION
@@ -1924,6 +1959,12 @@
Always use compiled JSON::XS, die if it isn't properly compiled & installed.
+=item PERL_JSON_BACKEND = 'JSON::backportPP'
+
+Always use JSON::backportPP.
+JSON::backportPP is JSON::PP back port module.
+C<JSON> includs JSON::backportPP instead of JSON::PP.
+
=back
These ideas come from L<DBI::PurePerl> mechanism.
Modified: trunk/libjson-perl/t/00_load.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/00_load.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/00_load.t (original)
+++ trunk/libjson-perl/t/00_load.t Mon Dec 27 20:50:27 2010
@@ -1,8 +1,15 @@
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
+use Test::More;
+use strict;
+BEGIN { plan tests => 5 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
-use JSON;
-$loaded = 1;
-print "ok 1\n";
+BEGIN {
+ use_ok('JSON');
+}
+
+ok( exists $INC{ 'JSON/backportPP.pm' }, 'load backportPP' );
+ok( ! exists $INC{ 'JSON/PP.pm' }, q/didn't load PP/ );
+
+is( JSON->backend, 'JSON::PP' );
+ok( JSON->backend->is_pp );
Modified: trunk/libjson-perl/t/01_utf8.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/01_utf8.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/01_utf8.t (original)
+++ trunk/libjson-perl/t/01_utf8.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
use Test::More;
BEGIN { plan tests => 9 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
BEGIN {
use lib qw(t);
Modified: trunk/libjson-perl/t/02_error.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/02_error.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/02_error.t (original)
+++ trunk/libjson-perl/t/02_error.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
use Test::More;
BEGIN { plan tests => 31 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
BEGIN {
use lib qw(t);
Modified: trunk/libjson-perl/t/03_types.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/03_types.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/03_types.t (original)
+++ trunk/libjson-perl/t/03_types.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
BEGIN { plan tests => 76 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/06_pc_pretty.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/06_pc_pretty.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/06_pc_pretty.t (original)
+++ trunk/libjson-perl/t/06_pc_pretty.t Mon Dec 27 20:50:27 2010
@@ -7,7 +7,7 @@
use Test::More;
BEGIN { plan tests => 9 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/07_pc_esc.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/07_pc_esc.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/07_pc_esc.t (original)
+++ trunk/libjson-perl/t/07_pc_esc.t Mon Dec 27 20:50:27 2010
@@ -10,7 +10,7 @@
BEGIN { plan tests => 17 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
BEGIN {
use lib qw(t);
Modified: trunk/libjson-perl/t/08_pc_base.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/08_pc_base.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/08_pc_base.t (original)
+++ trunk/libjson-perl/t/08_pc_base.t Mon Dec 27 20:50:27 2010
@@ -6,7 +6,7 @@
use strict;
BEGIN { plan tests => 20 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/09_pc_extra_number.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/09_pc_extra_number.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/09_pc_extra_number.t (original)
+++ trunk/libjson-perl/t/09_pc_extra_number.t Mon Dec 27 20:50:27 2010
@@ -5,7 +5,7 @@
use strict;
BEGIN { plan tests => 6 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/10_pc_keysort.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/10_pc_keysort.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/10_pc_keysort.t (original)
+++ trunk/libjson-perl/t/10_pc_keysort.t Mon Dec 27 20:50:27 2010
@@ -5,7 +5,7 @@
use strict;
BEGIN { plan tests => 1 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
#########################
Modified: trunk/libjson-perl/t/11_pc_expo.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/11_pc_expo.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/11_pc_expo.t (original)
+++ trunk/libjson-perl/t/11_pc_expo.t Mon Dec 27 20:50:27 2010
@@ -5,7 +5,7 @@
use strict;
BEGIN { plan tests => 8 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/12_blessed.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/12_blessed.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/12_blessed.t (original)
+++ trunk/libjson-perl/t/12_blessed.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
use Test::More;
BEGIN { plan tests => 16 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/13_limit.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/13_limit.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/13_limit.t (original)
+++ trunk/libjson-perl/t/13_limit.t Mon Dec 27 20:50:27 2010
@@ -3,7 +3,7 @@
BEGIN { plan tests => 11 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/14_latin1.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/14_latin1.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/14_latin1.t (original)
+++ trunk/libjson-perl/t/14_latin1.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
use strict;
BEGIN { plan tests => 4 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
BEGIN {
use lib qw(t);
Modified: trunk/libjson-perl/t/15_prefix.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/15_prefix.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/15_prefix.t (original)
+++ trunk/libjson-perl/t/15_prefix.t Mon Dec 27 20:50:27 2010
@@ -1,7 +1,7 @@
# copied over from JSON::XS and modified to use JSON
BEGIN { $| = 1; print "1..4\n"; }
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/16_tied.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/16_tied.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/16_tied.t (original)
+++ trunk/libjson-perl/t/16_tied.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
use Test::More;
BEGIN { plan tests => 2 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
use Tie::Hash;
Modified: trunk/libjson-perl/t/17_relaxed.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/17_relaxed.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/17_relaxed.t (original)
+++ trunk/libjson-perl/t/17_relaxed.t Mon Dec 27 20:50:27 2010
@@ -5,7 +5,7 @@
BEGIN { plan tests => 8 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
BEGIN {
use lib qw(t);
Modified: trunk/libjson-perl/t/18_json_checker.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/18_json_checker.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/18_json_checker.t (original)
+++ trunk/libjson-perl/t/18_json_checker.t Mon Dec 27 20:50:27 2010
@@ -10,7 +10,7 @@
local $^W = undef;
use Test::More;
BEGIN { plan tests => 39 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/19_incr.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/19_incr.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/19_incr.t (original)
+++ trunk/libjson-perl/t/19_incr.t Mon Dec 27 20:50:27 2010
@@ -6,7 +6,7 @@
use Test::More;
BEGIN { plan tests => 697 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/20_unknown.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/20_unknown.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/20_unknown.t (original)
+++ trunk/libjson-perl/t/20_unknown.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
use Test::More;
BEGIN { plan tests => 10 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use strict;
Modified: trunk/libjson-perl/t/21_evans_bugrep.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/21_evans_bugrep.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/21_evans_bugrep.t (original)
+++ trunk/libjson-perl/t/21_evans_bugrep.t Mon Dec 27 20:50:27 2010
@@ -3,8 +3,7 @@
BEGIN { plan tests => 6 };
-#BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
-BEGIN { $ENV{PERL_JSON_BACKEND} = ($ARGV[0] || 0); }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
BEGIN {
use lib qw(t);
Modified: trunk/libjson-perl/t/22_comment_at_eof.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/22_comment_at_eof.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/22_comment_at_eof.t (original)
+++ trunk/libjson-perl/t/22_comment_at_eof.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
use Test::More tests => 13;
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/99_binary.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/99_binary.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/99_binary.t (original)
+++ trunk/libjson-perl/t/99_binary.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
use strict;
BEGIN { plan tests => 2432 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
BEGIN {
use lib qw(t);
Modified: trunk/libjson-perl/t/e00_func.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e00_func.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e00_func.t (original)
+++ trunk/libjson-perl/t/e00_func.t Mon Dec 27 20:50:27 2010
@@ -2,7 +2,7 @@
use Test::More;
use strict;
BEGIN { plan tests => 2 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
#########################
Modified: trunk/libjson-perl/t/e01_property.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e01_property.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e01_property.t (original)
+++ trunk/libjson-perl/t/e01_property.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
BEGIN { plan tests => 90 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
BEGIN {
use lib qw(t);
Modified: trunk/libjson-perl/t/e02_bool.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e02_bool.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e02_bool.t (original)
+++ trunk/libjson-perl/t/e02_bool.t Mon Dec 27 20:50:27 2010
@@ -7,7 +7,7 @@
BEGIN { plan tests => 11 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/e03_bool2.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e03_bool2.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e03_bool2.t (original)
+++ trunk/libjson-perl/t/e03_bool2.t Mon Dec 27 20:50:27 2010
@@ -2,7 +2,7 @@
BEGIN { plan tests => 26 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
is(to_json([JSON::true]), q|[true]|);
Modified: trunk/libjson-perl/t/e04_sortby.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e04_sortby.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e04_sortby.t (original)
+++ trunk/libjson-perl/t/e04_sortby.t Mon Dec 27 20:50:27 2010
@@ -2,7 +2,7 @@
use Test::More;
use strict;
BEGIN { plan tests => 3 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
#########################
Modified: trunk/libjson-perl/t/e05_esc_slash.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e05_esc_slash.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e05_esc_slash.t (original)
+++ trunk/libjson-perl/t/e05_esc_slash.t Mon Dec 27 20:50:27 2010
@@ -2,7 +2,7 @@
use Test::More;
use strict;
BEGIN { plan tests => 2 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
#########################
Modified: trunk/libjson-perl/t/e06_allow_barekey.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e06_allow_barekey.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e06_allow_barekey.t (original)
+++ trunk/libjson-perl/t/e06_allow_barekey.t Mon Dec 27 20:50:27 2010
@@ -2,7 +2,7 @@
use Test::More;
use strict;
BEGIN { plan tests => 2 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
#########################
Modified: trunk/libjson-perl/t/e07_allow_singlequote.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e07_allow_singlequote.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e07_allow_singlequote.t (original)
+++ trunk/libjson-perl/t/e07_allow_singlequote.t Mon Dec 27 20:50:27 2010
@@ -2,7 +2,7 @@
use Test::More;
use strict;
BEGIN { plan tests => 4 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
#########################
Modified: trunk/libjson-perl/t/e08_decode.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e08_decode.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e08_decode.t (original)
+++ trunk/libjson-perl/t/e08_decode.t Mon Dec 27 20:50:27 2010
@@ -6,7 +6,7 @@
BEGIN { plan tests => 6 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/e09_encode.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e09_encode.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e09_encode.t (original)
+++ trunk/libjson-perl/t/e09_encode.t Mon Dec 27 20:50:27 2010
@@ -6,7 +6,7 @@
BEGIN { plan tests => 7 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/e10_bignum.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e10_bignum.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e10_bignum.t (original)
+++ trunk/libjson-perl/t/e10_bignum.t Mon Dec 27 20:50:27 2010
@@ -3,7 +3,7 @@
use Test::More;
BEGIN { plan tests => 6 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON -support_by_pp;
Modified: trunk/libjson-perl/t/e11_conv_blessed_univ.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e11_conv_blessed_univ.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e11_conv_blessed_univ.t (original)
+++ trunk/libjson-perl/t/e11_conv_blessed_univ.t Mon Dec 27 20:50:27 2010
@@ -3,7 +3,7 @@
use Test::More;
BEGIN { plan tests => 3 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON -convert_blessed_universally;
Modified: trunk/libjson-perl/t/e12_upgrade.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e12_upgrade.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e12_upgrade.t (original)
+++ trunk/libjson-perl/t/e12_upgrade.t Mon Dec 27 20:50:27 2010
@@ -3,7 +3,7 @@
BEGIN { plan tests => 3 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
Modified: trunk/libjson-perl/t/e13_overloaded_eq.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e13_overloaded_eq.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e13_overloaded_eq.t (original)
+++ trunk/libjson-perl/t/e13_overloaded_eq.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
use Test::More tests => 2;
BEGIN {
- $ENV{ PERL_JSON_BACKEND } = 0;
+ $ENV{ PERL_JSON_BACKEND } = "JSON::backportPP";
}
use JSON;
Modified: trunk/libjson-perl/t/e14_decode_prefix.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e14_decode_prefix.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e14_decode_prefix.t (original)
+++ trunk/libjson-perl/t/e14_decode_prefix.t Mon Dec 27 20:50:27 2010
@@ -4,7 +4,7 @@
use Test::More tests => 8;
BEGIN {
- $ENV{ PERL_JSON_BACKEND } = 0;
+ $ENV{ PERL_JSON_BACKEND } = "JSON::backportPP";
}
use JSON;
Modified: trunk/libjson-perl/t/e15_tie_ixhash.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libjson-perl/t/e15_tie_ixhash.t?rev=66517&op=diff
==============================================================================
--- trunk/libjson-perl/t/e15_tie_ixhash.t (original)
+++ trunk/libjson-perl/t/e15_tie_ixhash.t Mon Dec 27 20:50:27 2010
@@ -3,7 +3,7 @@
use Test::More;
BEGIN { plan tests => 2 };
-BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
+BEGIN { $ENV{PERL_JSON_BACKEND} = "JSON::backportPP"; }
use JSON;
More information about the Pkg-perl-cvs-commits
mailing list