Skip Menu |
 

This queue is for tickets about the Crypt-Pwsafe CPAN distribution.

Report information
The Basics
Id: 70301
Status: new
Priority: 0/
Queue: Crypt-Pwsafe

People
Owner: Nobody in particular
Requestors: sbeasley [...] acm.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 1.2
Fixed in: (no value)



Subject: work with pwdb that lacks groups
Download (untitled) / with headers
text/plain 113b
At some point I managed to have a pwdb file with missing groups; Crypt::Pwsafe didn't like that. Patch attached.
Subject: group.patch
Download group.patch
text/x-diff 496b
diff '--exclude=CVS' -wur Crypt/Pwsafe.pm Crypt/Pwsafe.pm --- Crypt/Pwsafe.pm 2011-08-16 11:59:04.234375000 -0700 +++ Crypt/Pwsafe.pm 2011-03-06 20:16:41.893250000 -0800 @@ -200,6 +200,7 @@ $user = pack("U0C*", unpack("C*", $buf)); print " User=$user\n" if $DEBUG; } elsif ($type == 0xff) { # End of Entry + $group = '' unless defined $group; if (defined($title) and defined($user)) { if (exists $pwsafe->{$group}) { $pwsafe->{$group}->{"$user\@$title"} = $entry;


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.