From e84df2aaac55b4ed2025a8aa3176beec6c5708d2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ralf=20Cors=C3=A9pius?= <corse...@fedoraproject.org>
Date: Thu, 25 Jun 2015 12:58:59 +0200
Subject: gnupg2 >= 2.1.5 is incompatible to Mail::GnuPG. Getting Mail::GnuPG
functional again would require major (upstream) work.
diff --git a/.gitignore b/.gitignore
deleted file mode 100644
index 6462772..0000000
--- a/.gitignore
+++ /dev/null
@@ -1 +0,0 @@
-/Mail-GnuPG-0.21.tar.gz
diff --git a/Mail-GnuPG-0.21-Adapt-to-gpg-agent-2.1.patch
b/Mail-GnuPG-0.21-Adapt-to-gpg-agent-2.1.patch
deleted file mode 100644
index a896ab3..0000000
--- a/Mail-GnuPG-0.21-Adapt-to-gpg-agent-2.1.patch
+++ /dev/null
@@ -1,129 +0,0 @@
-From ca62a09a4a2973471593dc79b14741a18ad6027c Mon Sep 17 00:00:00 2001
-From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppi...@redhat.com>
-Date: Wed, 13 May 2015 17:31:53 +0200
-Subject: [PATCH] Adapt to gpg-agent-2.1
-MIME-Version: 1.0
-Content-Type: text/plain; charset=UTF-8
-Content-Transfer-Encoding: 8bit
-
-Since gnupg2 2.1, gpg-agent does not export GPG_AGENT_INFO which is
-needed for gpg from gnupg-1.
-
-CPAN RT#102719
-
-Signed-off-by: Petr Písař <ppi...@redhat.com>
----
- Build.PL | 1 +
- lib/Mail/GnuPG.pm | 2 ++
- t/agent.t | 35 +++++++++++++++++++++++++++++------
- 3 files changed, 32 insertions(+), 6 deletions(-)
-
-diff --git a/Build.PL b/Build.PL
-index b8ac716..07f4f13 100644
---- a/Build.PL
-+++ b/Build.PL
-@@ -10,6 +10,7 @@ my $build = Module::Build->new
- 'David Bremner <d...@cpan.org>'],
- (sign => 1),
- requires => {
-+ 'Cwd' => 0,
- 'File::Spec' => 0,
- 'File::Temp' => 0,
- 'GnuPG::Interface' => 0,
-diff --git a/lib/Mail/GnuPG.pm b/lib/Mail/GnuPG.pm
-index 23ddb20..703ec60 100644
---- a/lib/Mail/GnuPG.pm
-+++ b/lib/Mail/GnuPG.pm
-@@ -48,6 +48,8 @@ use Errno qw(EPIPE);
- always_trust => always trust a public key
- # FIXME: we need more things here, maybe primary key id.
-
-+ If you use gpg-agent from GnuPG-2.1 with gpg from GnuPG-1, you have
-+ to set GPG_AGENT_INFO environment variable manually.
-
- =cut
-
-diff --git a/t/agent.t b/t/agent.t
-index 4e85b13..ac52c1e 100644
---- a/t/agent.t
-+++ b/t/agent.t
-@@ -4,6 +4,7 @@ use Test::More;
- use File::Temp qw(tempdir);
- use Mail::GnuPG;
- use MIME::Entity;
-+use Cwd;
- use strict;
- no warnings 'redefine'; # fix this later
-
-@@ -24,8 +25,10 @@ unless (0 == system("$preset --version 2>&1 >/dev/null")) {
- }
-
- my $tmpdir = tempdir( "mgtXXXXX", CLEANUP => 1);
-+# Change HOME because gpg-preset-passphrase does not understand to --homedir.
-+$ENV{HOME} = $tmpdir;
-
--unless ( 0 == system("gpg --homedir $tmpdir --trusted-key 0x49539D60EFEA4EAD
--import t/test-key.pgp 2>&1 >/dev/null")) {
-+unless ( 0 == system("gpg --trusted-key 0x49539D60EFEA4EAD --import
t/test-key.pgp 2>&1 >/dev/null")) {
- plan skip_all => "unable to import testing keys";
- goto end;
- }
-@@ -35,15 +38,35 @@ unless (open AGENT, "gpg-agent --disable-scdaemon
--allow-preset --daemon|") {
- goto end;
- }
-
-+# GPG-1 agent
- my ($agent_pid,$agent_info);
- while (<AGENT>){
- if (m/GPG_AGENT_INFO=([^;]*);/){
- $agent_info=$1;
-- $ENV{'GPG_AGENT_INFO'}=$agent_info;
-- my @parts=split(':',$agent_info);
-- $agent_pid=$parts[1];
- }
- }
-+# GPG-2.1 agent
-+if (!defined $agent_info) {
-+ unless (open(CLIENT, q{printf '/serverpid\n/subst\n/echo ${get
homedir}/S.gpg-agent:${get serverpid}:1\n' | gpg-connect-agent|})) {
-+ plan skip_all => "unable to obtain GPG_AGENT_INFO";
-+ goto end;
-+ }
-+ {
-+ local $/='';
-+ $agent_info=<CLIENT>;
-+ }
-+ close(CLIENT);
-+ chomp $agent_info;
-+}
-+# The returned socket path can be relative to $HOME, but relative paths are
-+# not acceptable by gpg-1. (Seen with GPG-2.0 agent.) Make it absolute now.
-+if ($agent_info =~ /([^:]+)(:.*)/) {
-+ $agent_info = Cwd::abs_path($1) . $2;
-+}
-+diag("GPG_AGENT_INFO: $agent_info");
-+$ENV{'GPG_AGENT_INFO'}=$agent_info;
-+my @parts=split(':',$agent_info);
-+$agent_pid=$parts[1];
-
- # gpg-preset-passphrase uses the fingerprint of the subkey, rather than the
id.
- unless ( 0 == system ("$preset --preset -P passphrase " .
-@@ -58,7 +81,6 @@ plan tests => 20;
-
-
- my $mg = new Mail::GnuPG( key => '49539D60EFEA4EAD',
-- keydir => $tmpdir,
- use_agent => 1);
-
- isa_ok($mg,"Mail::GnuPG");
-@@ -75,7 +97,8 @@ my $me = MIME::Entity->build(From => 'm...@myhost.com',
-
- $copy = $me->dup;
-
--is( $mg->mime_sign( $copy ), 0 );
-+is( $mg->mime_sign( $copy ), 0, 'signing' ) or
-+ diag(@{$mg->{last_message}});
-
- my ($verify,$key,$who) = $mg->verify($copy);
- is( $verify, 0 );
---
-2.1.0
-
diff --git a/dead.package b/dead.package
new file mode 100644
index 0000000..f622e3a
--- /dev/null
+++ b/dead.package
@@ -0,0 +1,2 @@
+gnupg2 >= 2.1.5 is incompatible to Mail::GnuPG.
+Getting Mail::GnuPG functional again would require major (upstream) work.
diff --git a/perl-Mail-GnuPG.spec b/perl-Mail-GnuPG.spec
deleted file mode 100644
index 450d50a..0000000
--- a/perl-Mail-GnuPG.spec
+++ /dev/null
@@ -1,162 +0,0 @@
-Name: perl-Mail-GnuPG
-Summary: Process email with GPG
-Version: 0.21
-Release: 5%{?dist}
-License: GPLv2 or Artistic
-Group: Development/Libraries
-URL: http://search.cpan.org/dist/Mail-GnuPG/
-BuildArch: noarch
-
-Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo
$version))
-Source0:
http://www.cpan.org/authors/id/D/DD/DDB/Mail-GnuPG-%{version}.tar.gz
-# Adapt to gpg-agent-2.1, bug #1189666, CPAN RT#102719
-Patch0: Mail-GnuPG-0.21-Adapt-to-gpg-agent-2.1.patch
-
-BuildRequires: perl(GnuPG::Interface)
-BuildRequires: perl(Mail::Address)
-BuildRequires: perl(MIME::Entity)
-BuildRequires: perl(MIME::Parser)
-BuildRequires: perl(Module::Build)
-
-# Required by the tests
-BuildRequires: perl(Cwd)
-BuildRequires: perl(Test::More)
-BuildRequires: perl(Test::Pod) >= 0.95
-BuildRequires: /usr/bin/gpg
-BuildRequires: /usr/bin/gpg-agent /usr/libexec/gpg-preset-passphrase
-
-%description
-Use GnuPG::Interface to process or create PGP signed or encrypted email.
-
-%prep
-%setup -q -n Mail-GnuPG-%{version}
-%patch0 -p1
-iconv -f iso-8859-1 -t utf-8 README > README~
-mv README~ README
-
-%build
-%{__perl} Build.PL installdirs=vendor
-./Build
-
-%install
-./Build install destdir=$RPM_BUILD_ROOT create_packlist=0
-find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
-
-%{_fixperms} $RPM_BUILD_ROOT/*
-
-%check
-GPG_PRESET_PASSPHRASE=/usr/libexec/gpg-preset-passphrase ./Build test
-
-%files
-%doc README Changes
-%{perl_vendorlib}/Mail
-%{_mandir}/man3/*
-
-%changelog
-* Thu Jun 18 2015 Fedora Release Engineering <rel-...@lists.fedoraproject.org>
- 0.21-5
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
-
-* Mon Jun 08 2015 Jitka Plesnikova <jples...@redhat.com> - 0.21-4
-- Perl 5.22 rebuild
-
-* Wed May 13 2015 Petr Pisar <ppi...@redhat.com> - 0.21-3
-- Adapt to gpg-agent-2.1 (bug #1189666)
-
-* Tue Sep 02 2014 Jitka Plesnikova <jples...@redhat.com> - 0.21-2
-- Perl 5.20 rebuild
-
-* Thu Aug 28 2014 Ralf Corsépius <corse...@fedoraproject.org> - 0.21-1
-- Upstream update.
-
-* Wed Jul 30 2014 Ralf Corsépius <corse...@fedoraproject.org> - 0.20-1
-- Upstream update.
-
-* Sat Jun 07 2014 Fedora Release Engineering <rel-...@lists.fedoraproject.org>
- 0.19-4
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild
-
-* Sun Aug 04 2013 Petr Pisar <ppi...@redhat.com> - 0.19-3
-- Perl 5.18 rebuild
-
-* Sat Aug 03 2013 Fedora Release Engineering <rel-...@lists.fedoraproject.org>
- 0.19-2
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
-
-* Mon May 06 2013 Ralf Corsépius <corse...@fedoraproject.org> - 0.19-1
-- Upstream update.
-
-* Thu Feb 14 2013 Fedora Release Engineering <rel-...@lists.fedoraproject.org>
- 0.18-2
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild
-
-* Mon Jul 30 2012 Ralf Corsépius <corse...@fedoraproject.org> - 0.18-1
-- Upstream update.
-- Spec file cleanup.
-
-* Fri Jul 20 2012 Fedora Release Engineering <rel-...@lists.fedoraproject.org>
- 0.17-4
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild
-
-* Sat Jun 23 2012 Petr Pisar <ppi...@redhat.com> - 0.17-3
-- Perl 5.16 rebuild
-
-* Fri Jan 13 2012 Fedora Release Engineering <rel-...@lists.fedoraproject.org>
- 0.17-2
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild
-
-* Thu Dec 15 2011 Ralf Corsépius <corse...@fedoraproject.org> - 0.17-1
-- Upstream update.
-
-* Tue Jul 19 2011 Petr Sabata <con...@redhat.com> - 0.16-3
-- Perl mass rebuild
-
-* Tue Feb 08 2011 Fedora Release Engineering <rel-...@lists.fedoraproject.org>
- 0.16-2
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild
-
-* Mon Jan 17 2011 Ralf Corsépius <corse...@fedoraproject.org> - 0.16-1
-- Upstream update.
-- Reflect upstream Source0-URL having changed.
-- Reflect upstream having changed to Module::Build.
-
-* Mon Dec 20 2010 Marcela Maslanova <mmasl...@redhat.com> - 0.15-7
-- 661697 rebuild for fixing problems with vendorach/lib
-
-* Mon May 03 2010 Marcela Maslanova <mmasl...@redhat.com> - 0.15-6
-- Mass rebuild with perl-5.12.0
-
-* Mon Dec 7 2009 Stepan Kasal <ska...@redhat.com> - 0.15-5
-- rebuild against perl 5.10.1
-
-* Sun Jul 26 2009 Fedora Release Engineering <rel-...@lists.fedoraproject.org>
- 0.15-4
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
-
-* Thu Feb 26 2009 Fedora Release Engineering <rel-...@lists.fedoraproject.org>
- 0.15-3
-- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild
-
-* Wed Jul 09 2008 Ralf Corsépius <rc040...@freenet.de> - 0.15-2
-- Cleanup spec file.
-
-* Wed Mar 12 2008 Ralf Corsépius <rc040...@freenet.de> - 0.15-1
-- Upstream update.
-- Correct license tag: GPLv2 or Artistic-v1.0.
-- Convert README to utf8.
-
-* Thu Mar 06 2008 Tom "spot" Callaway <tcall...@redhat.com> - 0.10-2
-- Rebuild for new perl
-
-* Tue Sep 04 2007 Ralf Corsépius <rc040...@freenet.de> - 0.10-1
-- Upstream update.
-- Reflect source url having changed.
-- Update license tag.
-
-* Tue Sep 05 2006 Ralf Corsépius <rc040...@freenet.de> - 0.08-5
-- Mass rebuild.
-
-* Wed Mar 01 2006 Ralf Corsépius <rc040...@freenet.de> - 0.08-4
-- Rebuild for perl-5.8.8.
-
-* Thu Oct 06 2005 Ralf Corsepius <rc040...@freenet.de> - 0.08-3
-- FE import.
-- Spec cleanup.
-
-* Sun Sep 11 2005 Ralf Corsepius <rc040...@freenet.de> - 0.08-2
-- Update summary and description.
-- FE submission.
-
-* Sun Sep 11 2005 Ralf Corsepius <r...@links2linux.de> - 0.08-1
-- FE submission preps.
diff --git a/sources b/sources
deleted file mode 100644
index d2c60d4..0000000
--- a/sources
+++ /dev/null
@@ -1 +0,0 @@
-c4f90485a6ff1097c7273646460943a4 Mail-GnuPG-0.21.tar.gz
--
cgit v0.10.2
http://pkgs.fedoraproject.org/cgit/perl-Mail-GnuPG.git/commit/?h=master&id=e84df2aaac55b4ed2025a8aa3176beec6c5708d2
--
Fedora Extras Perl SIG
http://www.fedoraproject.org/wiki/Extras/SIGs/Perl
perl-devel mailing list
perl-devel@lists.fedoraproject.org
https://admin.fedoraproject.org/mailman/listinfo/perl-devel
