From f3be7877ffabc86b3b0b8738c56607dbc51aaefd Mon Sep 17 00:00:00 2001
From: "git@daemon.de" <git@daemon.de>
Date: Mon, 17 Jun 2013 12:03:28 +0200
Subject: [PATCH] forgot to change the uuid field pack format

---
 lib/Crypt/PWSafe3/Field.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Crypt/PWSafe3/Field.pm b/lib/Crypt/PWSafe3/Field.pm
index 4677b4d..fc0190d 100644
--- a/lib/Crypt/PWSafe3/Field.pm
+++ b/lib/Crypt/PWSafe3/Field.pm
@@ -90,7 +90,7 @@ sub new {
 	$self->{raw} = pack("L<", $param{value});
       }
       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) {
 	$self->{raw} = pack('W<*', $param{value});