r58426 - in /trunk/libgnupg-perl/debian: changelog patches/ patches/0001-Remove-an-intervening-shell-fixing-process-ID-tracking.patch patches/series
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Tue May 25 09:29:47 UTC 2010
Author: carnil-guest
Date: Tue May 25 09:29:10 2010
New Revision: 58426
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58426
Log:
Add 0001-Remove-an-intervening-shell-fixing-process-ID-tracking.patch from
Niko Tyni to fix FTBFS as test hangs. (Closes: #583072).
Added:
trunk/libgnupg-perl/debian/patches/
trunk/libgnupg-perl/debian/patches/0001-Remove-an-intervening-shell-fixing-process-ID-tracking.patch
trunk/libgnupg-perl/debian/patches/series
Modified:
trunk/libgnupg-perl/debian/changelog
Modified: trunk/libgnupg-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnupg-perl/debian/changelog?rev=58426&op=diff
==============================================================================
--- trunk/libgnupg-perl/debian/changelog (original)
+++ trunk/libgnupg-perl/debian/changelog Tue May 25 09:29:10 2010
@@ -1,3 +1,10 @@
+libgnupg-perl (0.16-2) UNRELEASED; urgency=low
+
+ * Add 0001-Remove-an-intervening-shell-fixing-process-ID-tracking.patch from
+ Niko Tyni to fix FTBFS as test hangs. (Closes: #583072).
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com> Tue, 25 May 2010 11:19:31 +0200
+
libgnupg-perl (0.16-1) unstable; urgency=low
[ Jonathan Yu ]
Added: trunk/libgnupg-perl/debian/patches/0001-Remove-an-intervening-shell-fixing-process-ID-tracking.patch
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnupg-perl/debian/patches/0001-Remove-an-intervening-shell-fixing-process-ID-tracking.patch?rev=58426&op=file
==============================================================================
--- trunk/libgnupg-perl/debian/patches/0001-Remove-an-intervening-shell-fixing-process-ID-tracking.patch (added)
+++ trunk/libgnupg-perl/debian/patches/0001-Remove-an-intervening-shell-fixing-process-ID-tracking.patch Tue May 25 09:29:10 2010
@@ -1,0 +1,47 @@
+From fe5e211c07b8c009a952ef46ccfdceed6fcc9bd2 Mon Sep 17 00:00:00 2001
+From: Niko Tyni <ntyni at debian.org>
+Date: Tue, 25 May 2010 11:55:48 +0300
+Subject: [PATCH] Remove an intervening shell, fixing process ID tracking
+
+cpr_send() needs to know the PID of the child gpg process,
+but it was masked by the intervening shell. Call exec() with
+the list form instead, fixing the few places where whitespace
+was used instead of separate list elements.
+---
+ GnuPG.pm | 6 +++---
+ 1 files changed, 3 insertions(+), 3 deletions(-)
+
+diff --git a/GnuPG.pm b/GnuPG.pm
+index 3e49c31..7d89b8d 100644
+--- a/GnuPG.pm
++++ b/GnuPG.pm
+@@ -259,7 +259,7 @@ sub run_gnupg($) {
+ or die "can't open $self->{output} for output: $!\n";
+ } elsif ( $self->{output} ) {
+ my $gpg = shift(@{$cmdline});
+- unshift(@{$cmdline}, '--output ' . $self->{output});
++ unshift(@{$cmdline}, '--output' , $self->{output});
+ unshift(@{$cmdline}, $gpg);
+ } # Defaults to stdout
+
+@@ -278,7 +278,7 @@ sub run_gnupg($) {
+
+ print STDERR "GnuPG: executing `" . join(' ', @$cmdline) . "`" if $self->{trace};
+
+- exec ( join(' ', @$cmdline) )
++ exec @$cmdline
+ or CORE::die "can't exec gnupg: $!\n";
+ }
+ }
+@@ -532,7 +532,7 @@ sub encrypt($%) {
+ my $options = [];
+ croak ( "no recipient specified\n" )
+ unless $args{recipient} or $args{symmetric};
+- push @$options, "--recipient" => "'" . $args{recipient} . "'";
++ push @$options, "--recipient" => $args{recipient};
+
+ push @$options, "--sign" if $args{sign};
+ croak ( "can't sign an symmetric encrypted message\n" )
+--
+1.7.1
+
Added: trunk/libgnupg-perl/debian/patches/series
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnupg-perl/debian/patches/series?rev=58426&op=file
==============================================================================
--- trunk/libgnupg-perl/debian/patches/series (added)
+++ trunk/libgnupg-perl/debian/patches/series Tue May 25 09:29:10 2010
@@ -1,0 +1,1 @@
+0001-Remove-an-intervening-shell-fixing-process-ID-tracking.patch
More information about the Pkg-perl-cvs-commits
mailing list