perl: More kind error messages in PP

This commit is contained in:
gfx
2010-09-18 14:38:35 +09:00
parent c707392a5a
commit a86c1624a7
2 changed files with 16 additions and 9 deletions

View File

@@ -2,8 +2,12 @@
use strict;
use Test::Requires { 'Test::LeakTrace' => 0.13 };
use Test::More;
use Data::MessagePack;
BEGIN {
if($INC{'Data/MessagePack/PP.pm'}) {
plan skip_all => 'disabled in PP';
}
}
my $simple_data = "xyz";
my $complex_data = {