r5831 - in /packages/libmail-gnupg-perl/trunk/debian: changelog patches/ patches/01_fix-race-on-bad-rcpts.patch patches/02_doc-meme-sigs-verification.patch patches/series
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Jul 16 11:30:51 UTC 2007
Author: dmn
Date: Mon Jul 16 11:30:51 2007
New Revision: 5831
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5831
Log:
Split non-debian changes into debian/patches/*
Added:
packages/libmail-gnupg-perl/trunk/debian/patches/
packages/libmail-gnupg-perl/trunk/debian/patches/01_fix-race-on-bad-rcpts.patch
packages/libmail-gnupg-perl/trunk/debian/patches/02_doc-meme-sigs-verification.patch
packages/libmail-gnupg-perl/trunk/debian/patches/series
Modified:
packages/libmail-gnupg-perl/trunk/debian/changelog
Modified: packages/libmail-gnupg-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmail-gnupg-perl/trunk/debian/changelog?rev=5831&op=diff
==============================================================================
--- packages/libmail-gnupg-perl/trunk/debian/changelog (original)
+++ packages/libmail-gnupg-perl/trunk/debian/changelog Mon Jul 16 11:30:51 2007
@@ -1,8 +1,12 @@
libmail-gnupg-perl (0.10-1) unstable; urgency=low
+ [ gregor herrmann ]
* New upstream release.
- -- gregor herrmann <gregor+debian at comodo.priv.at> Sun, 15 Jul 2007 00:23:19 +0200
+ [ Damyan Ivanov ]
+ * Split the source patches to debian/patches/*
+
+ -- Damyan Ivanov <dmn at debian.org> Mon, 16 Jul 2007 14:24:56 +0300
libmail-gnupg-perl (0.08-3) unstable; urgency=low
Added: packages/libmail-gnupg-perl/trunk/debian/patches/01_fix-race-on-bad-rcpts.patch
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmail-gnupg-perl/trunk/debian/patches/01_fix-race-on-bad-rcpts.patch?rev=5831&op=file
==============================================================================
--- packages/libmail-gnupg-perl/trunk/debian/patches/01_fix-race-on-bad-rcpts.patch (added)
+++ packages/libmail-gnupg-perl/trunk/debian/patches/01_fix-race-on-bad-rcpts.patch Mon Jul 16 11:30:51 2007
@@ -1,0 +1,87 @@
+--- libmail-gnupg-perl-0.10.orig/GnuPG.pm
++++ libmail-gnupg-perl-0.10/GnuPG.pm
+@@ -63,6 +63,16 @@
+ return $self;
+ }
+
++sub _maybe_print {
++ # print to a child gpg process, but don't care if it has died already
++ # everyone using this will read the error string out afterwards anyway
++ # see http://bugs.debian.org/412041
++
++ my $fh = shift;
++ local $SIG{PIPE} = 'IGNORE';
++ print $fh @_;
++}
++
+ sub _set_options {
+ my ($self,$gnupg) = @_;
+ $gnupg->options->meta_interactive( 0 );
+@@ -162,11 +172,11 @@
+
+ # This passes in the passphrase
+ die "NO PASSPHRASE" unless defined $passphrase_fh;
+- print $passphrase_fh $self->{passphrase};
++ _maybe_print $passphrase_fh,$self->{passphrase};
+ close $passphrase_fh;
+
+ # this passes in the plaintext
+- print $input $ciphertext;
++ _maybe_print $input,$ciphertext;
+
+ # this closes the communication channel,
+ # indicating we are done
+@@ -561,7 +577,7 @@
+ );
+ my $pid = $gnupg->detach_sign( handles => $handles );
+ die "NO PASSPHRASE" unless defined $passphrase_fh;
+- print $passphrase_fh $self->{passphrase};
++ _maybe_print $passphrase_fh,$self->{passphrase};
+ close $passphrase_fh;
+
+
+@@ -578,7 +594,7 @@
+ $plaintext =~ s/\x0D+/\x0D/g;
+
+ # should we store this back into the body?
+- print $input $plaintext;
++ _maybe_print $input,$plaintext;
+
+ # DEBUG:
+ # print "SIGNING THIS STRING ----->\n";
+@@ -675,7 +691,7 @@
+ $plaintext =~ s/\x0A/\x0D\x0A/g;
+ $plaintext =~ s/\x0D+/\x0D/g;
+
+- print $input $plaintext;
++ _maybe_print $input,$plaintext;
+ close $input;
+
+ my @ciphertext = <$output>;
+@@ -781,7 +797,7 @@
+ }
+ };
+
+- print $input $plaintext;
++ _maybe_print $input,$plaintext;
+ close $input;
+
+ my @ciphertext = <$output>;
+@@ -886,7 +902,7 @@
+ };
+
+ die "NO PASSPHRASE" unless defined $passphrase_fh;
+- print $passphrase_fh $self->{passphrase};
++ _maybe_print $passphrase_fh,$self->{passphrase};
+ close $passphrase_fh;
+
+ # this passes in the plaintext
+@@ -901,7 +917,7 @@
+ # $plaintext =~ s/\n/\x0D\x0A/sg;
+ # should we store this back into the body?
+
+- print $input $plaintext;
++ _maybe_print $input,$plaintext;
+
+ # DEBUG:
+ #print "ENCRYPTING THIS STRING ----->\n";
Added: packages/libmail-gnupg-perl/trunk/debian/patches/02_doc-meme-sigs-verification.patch
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmail-gnupg-perl/trunk/debian/patches/02_doc-meme-sigs-verification.patch?rev=5831&op=file
==============================================================================
--- packages/libmail-gnupg-perl/trunk/debian/patches/02_doc-meme-sigs-verification.patch (added)
+++ packages/libmail-gnupg-perl/trunk/debian/patches/02_doc-meme-sigs-verification.patch Mon Jul 16 11:30:51 2007
@@ -1,0 +1,17 @@
+Index: libmail-gnupg-perl/GnuPG.pm
+===================================================================
+--- libmail-gnupg-perl.orig/GnuPG.pm 2007-07-16 14:21:34.000000000 +0300
++++ libmail-gnupg-perl/GnuPG.pm 2007-07-16 14:21:37.000000000 +0300
+@@ -358,6 +358,12 @@
+ The message can either be in RFC compliant-ish multipart/signed
+ format, or just a single part ascii armored message.
+
++ Note that MIME-encoded data should be supplied unmodified inside
++ the MIME::Entity input message, otherwise the signature will be
++ broken. Since MIME-tools version 5.419, this can be achieved with
++ the C<decode_bodies> method of MIME::Parser. See the MIME::Parser
++ documentation for more information.
++
+ Output:
+ On error:
+ Exit code of gpg. (0 on success)
Added: packages/libmail-gnupg-perl/trunk/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libmail-gnupg-perl/trunk/debian/patches/series?rev=5831&op=file
==============================================================================
--- packages/libmail-gnupg-perl/trunk/debian/patches/series (added)
+++ packages/libmail-gnupg-perl/trunk/debian/patches/series Mon Jul 16 11:30:51 2007
@@ -1,0 +1,2 @@
+01_fix-race-on-bad-rcpts.patch
+02_doc-meme-sigs-verification.patch
More information about the Pkg-perl-cvs-commits
mailing list