From 8a4b3784738d4961f43f9fc561a94bda601d2d9a Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Tue, 7 Mar 2023 08:30:26 +0000
Subject: User proper null device on Windows

git-svn-id: svn://tug.org/texlive/trunk@66420 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/TeXLive/TLUtils.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Master/tlpkg/TeXLive/TLUtils.pm')

diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 2585c4513ee..cc4d49f1ecc 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -719,8 +719,9 @@ if status was nonzero. Throw away stdout and stderr.
 =cut
 
 sub system_ok {
+  my $nulldev = nulldev();
   my ($cmdline) = @_;
-  `$cmdline >/dev/null 2>&1`;
+  `$cmdline >$nulldev 2>&1`;
   return $? == 0;
 }
 
-- 
cgit v1.2.3