- my $type = 2 * vec($self->{buf}, 0, 1)
- + vec($self->{buf}, 1, 1);
- @{$self}{qw/state type buf len/} = (3, $type, '', 0);
+ my $type = 2 * vec($self->{buf}, 1, 1)
+ + vec($self->{buf}, 0, 1);
+ $type = BM_DATA_PLAIN if vec($self->{buf}, 2, 1);
+ @{$self}{qw<state type buf len>} = (3, $type, '', 0);