Skip Menu |
 

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

Report information
The Basics
Id: 17392
Status: new
Priority: 0/
Queue: Crypt-OpenPGP

People
Owner: Nobody in particular
Requestors: mail [...] paullee.ru
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.03
Fixed in: (no value)



Subject: crush with nocrypted file
Download (untitled) / with headers
text/plain 1.3k
gpg unpacked and verified my file and wrote: gpg: old style (PGP 2.x) signature but OpenPGP crush with next error: Can't locate object method "decrypt" via package "Crypt::OpenPGP::Compressed" at c:/Perl/site/lib/Crypt/OpenPGP.pm line 646. file was not crypted - only compressed (???) i find temporary solution ------------------------------------------ OpenPGP.pm.original и OPENPGP.PM.PATCHED ***** OpenPGP.pm.original 628: } 629: my $enc = $pieces[0]; ***** OPENPGP.PM.PATCHED 628: } 629: 630: $pgp->error("No Signature"); 631: 632: my($valid, $sig); 633: 634: if (ref($pieces[0]) ne 'Crypt::OpenPGP::Compressed') { 635: 636: my $enc = $pieces[0]; ***** ***** OpenPGP.pm.original 659: ## the errstr is guaranteed to be "No Signature\n". 660: $pgp->error("No Signature"); 661: 662: my($valid, $sig); 663: $msg = Crypt::OpenPGP::Message->new( Data => $data, ***** OPENPGP.PM.PATCHED 666: ## the errstr is guaranteed to be "No Signature\n". 667: 668: $msg = Crypt::OpenPGP::Message->new( Data => $data, ***** ***** OpenPGP.pm.original 665: @pieces = $msg->pieces; 666: 667: ## If the first packet in the decrypted data is compressed, ***** OPENPGP.PM.PATCHED 670: @pieces = $msg->pieces; 671: } 672: ## If the first packet in the decrypted data is compressed, *****


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.