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
MIME-Version: 1.0
X-Mailer: MIME-tools 5.427 (Entity 5.427)
X-RT-Original-Encoding: utf-8
Content-Type: multipart/mixed; boundary="----------=_1313521693-22515-87"
Content-Length: 0
Content-Type: text/plain; charset="UTF-8"
Content-Disposition: inline
Content-Transfer-Encoding: binary
Content-Length: 113
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
MIME-Version: 1.0
Content-Type: application/octet-stream; name="group.patch"
X-Mailer: MIME-tools 5.427 (Entity 5.427)
Content-Disposition: inline; filename="group.patch"
Content-Transfer-Encoding: base64
Content-Length: 496
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.