| Subject: | crush with nocrypted file |
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,
*****