04f8ad
From 89b13baf1d46e4fb10023af30ef305efec4fd603 Mon Sep 17 00:00:00 2001
04f8ad
From: Andreas Koenig <andk@cpan.org>
04f8ad
Date: Wed, 12 Jan 2022 21:53:35 +0100
04f8ad
Subject: [PATCH 2/2] s,/dev/null,$devnull,
04f8ad
04f8ad
- another thanks to Tomas Hoger for spotting that
04f8ad
---
04f8ad
 lib/CPAN/Distribution.pm | 2 +-
04f8ad
 1 file changed, 1 insertion(+), 1 deletion(-)
04f8ad
04f8ad
diff --git a/lib/CPAN/Distribution.pm b/lib/CPAN/Distribution.pm
04f8ad
index d837b8ad..6ca1b434 100644
04f8ad
--- a/lib/CPAN/Distribution.pm
04f8ad
+++ b/lib/CPAN/Distribution.pm
04f8ad
@@ -1554,7 +1554,7 @@ sub CHECKSUM_check_file {
04f8ad
         my $devnull = File::Spec->devnull;
04f8ad
         my $gpg = $CPAN::Config->{gpg} or
04f8ad
             $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'");
04f8ad
-        my $system = qq{"$gpg" --verify --batch --no-tty --output "$tempfile" "$chk_file" 2> "/dev/null"};
04f8ad
+        my $system = qq{"$gpg" --verify --batch --no-tty --output "$tempfile" "$chk_file" 2> "$devnull"};
04f8ad
         0 == system $system or $CPAN::Frontend->mydie("gpg run was failing, cannot continue: $system");
04f8ad
         open $fh, $tempfile or $CPAN::Frontend->mydie("Could not open $tempfile: $!");
04f8ad
         local $/;
04f8ad
-- 
04f8ad
2.34.1
04f8ad