From b4ae6bf82c8bcd6012c805a2206fcb81ad39dd0b Mon Sep 17 00:00:00 2001
From: "Fuji, Goro" <gfuji@cpan.org>
Date: Sat, 30 Oct 2010 13:04:30 +0900
Subject: [PATCH] perl: disable warnings

---
 perl/lib/Data/MessagePack/PP.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl/lib/Data/MessagePack/PP.pm b/perl/lib/Data/MessagePack/PP.pm
index fca73b8a..f179ad74 100644
--- a/perl/lib/Data/MessagePack/PP.pm
+++ b/perl/lib/Data/MessagePack/PP.pm
@@ -480,6 +480,7 @@ sub execute {
 
 sub _count {
     my ( $self, $value ) = @_;
+    no warnings; # FIXME
     my $byte = unpack( 'C', substr( $value, $p++, 1 ) ); # get header
 
     Carp::croak('invalid data') unless defined $byte;