View | Details | Raw Unified | Return to bug 7984
Collapse All | Expand All

(-)ReadBinary.pm.orig (-1 / +1 lines)
Lines 201-207 Link Here
201
	1 => sub { # integers
201
	1 => sub { # integers
202
		my( $self, $power2 ) = @_;
202
		my( $self, $power2 ) = @_;
203
203
204
		croak "Integer with <$power2> bytes is not supported" if $power2 > 3;
204
		croak "Integer with <$power2> bytes is not supported" if $power2 > 4;
205
205
206
		my $byte_length = 1 << $power2;
206
		my $byte_length = 1 << $power2;
207
207

Return to bug 7984