Blame SOURCES/CPAN-2.32-s-dev-null-devnull.patch
|
 |
6e3fb6 |
From 89b13baf1d46e4fb10023af30ef305efec4fd603 Mon Sep 17 00:00:00 2001
|
|
|
6e3fb6 |
From: Andreas Koenig <andk@cpan.org>
|
|
|
6e3fb6 |
Date: Wed, 12 Jan 2022 21:53:35 +0100
|
|
|
6e3fb6 |
Subject: [PATCH 2/2] s,/dev/null,$devnull,
|
|
|
6e3fb6 |
|
|
|
6e3fb6 |
- another thanks to Tomas Hoger for spotting that
|
|
|
6e3fb6 |
---
|
|
|
6e3fb6 |
lib/CPAN/Distribution.pm | 2 +-
|
|
|
6e3fb6 |
1 file changed, 1 insertion(+), 1 deletion(-)
|
|
|
6e3fb6 |
|
|
|
6e3fb6 |
diff --git a/lib/CPAN/Distribution.pm b/lib/CPAN/Distribution.pm
|
|
|
6e3fb6 |
index d837b8ad..6ca1b434 100644
|
|
|
6e3fb6 |
--- a/lib/CPAN/Distribution.pm
|
|
|
6e3fb6 |
+++ b/lib/CPAN/Distribution.pm
|
|
|
6e3fb6 |
@@ -1554,7 +1554,7 @@ sub CHECKSUM_check_file {
|
|
|
6e3fb6 |
my $devnull = File::Spec->devnull;
|
|
|
6e3fb6 |
my $gpg = $CPAN::Config->{gpg} or
|
|
|
6e3fb6 |
$CPAN::Frontend->mydie("Your configuration suggests that you do not have 'gpg' installed. This is needed to verify checksums with the config variable 'check_sigs' on. Please configure it with 'o conf init gpg'");
|
|
|
6e3fb6 |
- my $system = qq{"$gpg" --verify --batch --no-tty --output "$tempfile" "$chk_file" 2> "/dev/null"};
|
|
|
6e3fb6 |
+ my $system = qq{"$gpg" --verify --batch --no-tty --output "$tempfile" "$chk_file" 2> "$devnull"};
|
|
|
6e3fb6 |
0 == system $system or $CPAN::Frontend->mydie("gpg run was failing, cannot continue: $system");
|
|
|
6e3fb6 |
open $fh, $tempfile or $CPAN::Frontend->mydie("Could not open $tempfile: $!");
|
|
|
6e3fb6 |
local $/;
|
|
|
6e3fb6 |
--
|
|
|
6e3fb6 |
2.34.1
|
|
|
6e3fb6 |
|