Skip Menu | will be shut down on March 1st, 2021.

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

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

Owner: Nobody in particular
Requestors: sbeasley [...]

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/ Crypt/ --- Crypt/ 2011-08-16 11:59:04.234375000 -0700 +++ Crypt/ 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 infrastructure.

Please report any issues with to