perl: disable warnings

This commit is contained in:
Fuji, Goro 2010-10-30 13:04:30 +09:00
parent eac0f83864
commit b4ae6bf82c

View File

@ -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;