scip/Crypt--PWSafe3
1
0
Fork 0
mirror of https://codeberg.org/scip/Crypt--PWSafe3.git synced 2025-12-16 20:21:01 +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

10
CHANGELOG
View File

@@ -1,3 +1,13 @@
1.09
the unpack() formatstring for the uuid (field 0x01) "L<4" didn't
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*".
1.08
fixed pack/unpack formats to use strictly little-endian values as required.
machine-dependend unpack() formats changed to machine-independend.
1.07 1.07
applied patch by https://github.com/Mekk: applied patch by https://github.com/Mekk:
https://github.com/TLINDEN/Crypt--PWSafe3/pull/3, https://github.com/TLINDEN/Crypt--PWSafe3/pull/3,

4
lib/Crypt/PWSafe3.pm
View File

@@ -22,7 +22,7 @@ use Data::Dumper;
use Exporter (); use Exporter ();
use vars qw(@ISA @EXPORT); use vars qw(@ISA @EXPORT);
$Crypt::PWSafe3::VERSION = '1.08'; $Crypt::PWSafe3::VERSION = '1.09';
use Crypt::PWSafe3::Field; use Crypt::PWSafe3::Field;
use Crypt::PWSafe3::HeaderField; use Crypt::PWSafe3::HeaderField;
@@ -952,7 +952,7 @@ and/or modify it under the same terms as Perl itself.
=head1 VERSION =head1 VERSION
Crypt::PWSafe3 Version 1.08. Crypt::PWSafe3 Version 1.09.
=cut =cut

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

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