forgot to change the uuid field pack format

This commit is contained in:
git@daemon.de
2013-06-17 12:03:28 +02:00
parent d8365f915b
commit f3be7877ff

View File

@@ -90,7 +90,7 @@ sub new {
$self->{raw} = pack("L<", $param{value}); $self->{raw} = pack("L<", $param{value});
} }
elsif (grep { $_ eq $param{type} } @convhex) { elsif (grep { $_ eq $param{type} } @convhex) {
$self->{raw} = pack('L<4', $param{value}); $self->{raw} = pack('H*', $param{value});
} }
elsif (grep { $_ eq $param{type} } @convbyte) { elsif (grep { $_ eq $param{type} } @convbyte) {
$self->{raw} = pack('W<*', $param{value}); $self->{raw} = pack('W<*', $param{value});