scip/Crypt--PWSafe3
1
0
Fork 0
mirror of https://codeberg.org/scip/Crypt--PWSafe3.git synced 2025-12-17 04:31:00 +01:00
Code Issues Packages Projects Releases Wiki Activity

the unpack() formatstring for the uuid (field 0x01) "L<4" didn't

Browse Source 
return a hex string, but a number only, which is fine for most
        cases, but isn't a correct Data::UUID representation. Changed back
        to "H*".
This commit is contained in:
git@daemon.de
2013-06-17 11:51:13 +02:00
parent fca71efd62
commit d8365f915b
3 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Crypt/PWSafe3/Field.pm
View File

@@ -7,7 +7,7 @@ use Exporter ();
use vars qw(@ISA @EXPORT);
use utf8;
$Crypt::PWSafe3::Field::VERSION = '1.01';
$Crypt::PWSafe3::Field::VERSION = '1.03';
%Crypt::PWSafe3::Field::map2type = (
uuid => 0x01,
@@ -73,7 +73,7 @@ sub new {
$self->{value} = unpack("L<", $param{raw});
}
elsif (grep { $_ eq $param{type} } @convhex) {
$self->{value} = unpack('L<4', $param{raw});
$self->{value} = unpack('H*', $param{raw});
}
elsif (grep { $_ eq $param{type} } @convbyte) {
$self->{value} = unpack('W<*', $param{raw});