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

fixed parsing of password expire field (github issue 5+6)

Browse Source
This commit is contained in:
git@daemon.de
2013-07-05 09:39:50 +02:00
parent 0820428be8
commit 90260e757d
7 changed files with 26 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
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.03';
$Crypt::PWSafe3::Field::VERSION = '1.04';
%Crypt::PWSafe3::Field::map2type = (
uuid => 0x01,
@@ -76,11 +76,11 @@ sub new {
$self->{value} = unpack('H*', $param{raw});
}
elsif (grep { $_ eq $param{type} } @convbyte) {
$self->{value} = unpack('W<*', $param{raw});
$self->{value} = unpack('S<', $param{raw});
}
else {
$self->{value} = $param{raw};
utf8::decode($self->{value});
utf8::decode($self->{value});
}
$self->{len} = length($param{raw});
}
@@ -93,11 +93,11 @@ sub new {
$self->{raw} = pack('H*', $param{value});
}
elsif (grep { $_ eq $param{type} } @convbyte) {
$self->{raw} = pack('W<*', $param{value});
$self->{raw} = pack('S<', $param{value});
}
else {
$self->{raw} = $param{value};
utf8::encode($param{raw});
utf8::encode($param{raw});
}
}
else {
@@ -170,7 +170,7 @@ T. Linden <tlinden@cpan.org>
=head1 COPYRIGHT
Copyright (c) 2011 by T.Linden <tlinden@cpan.org>.
Copyright (c) 2011-2013 by T.Linden <tlinden@cpan.org>.
All rights reserved.
=head1 LICENSE