scip/Crypt--PWSafe3
1
0
Fork 0
mirror of https://codeberg.org/scip/Crypt--PWSafe3.git synced 2025-12-16 12:11:02 +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
applied patch by https://github.com/Mekk:
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 vars qw(@ISA @EXPORT);
$Crypt::PWSafe3::VERSION = '1.08';
$Crypt::PWSafe3::VERSION = '1.09';
use Crypt::PWSafe3::Field;
use Crypt::PWSafe3::HeaderField;
@@ -952,7 +952,7 @@ and/or modify it under the same terms as Perl itself.
=head1 VERSION
Crypt::PWSafe3 Version 1.08.
Crypt::PWSafe3 Version 1.09.
=cut

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});