From 46785bfe6b4a12be606344819e785ec173bffa2b Mon Sep 17 00:00:00 2001
From: Nicolas R <nicolas@atoomic.org>
Date: Mon, 19 Oct 2020 10:29:57 -0600
Subject: [PATCH] Output should be empty

diff -rNu Pod-Usage-2.01/t/pod/pod2usage2.t Pod-Usage-2.01_new/t/pod/pod2usage2.t
--- Pod-Usage-2.01/t/pod/pod2usage2.t	2020-10-14 07:14:10.000000000 +0800
+++ Pod-Usage-2.01_new/t/pod/pod2usage2.t	2021-07-28 16:03:42.000000000 +0800
@@ -361,6 +361,7 @@
   *Pod::Usage::initialize = sub { 1; };
 }
 
+our $TODO;
 SKIP: {
     my $perldoc = $^X . 'doc';
     skip "Missing perldoc binary", 2 unless -x $perldoc;
@@ -378,8 +379,11 @@
       } );
     is ($exit, 0,                 "Exit status pod2usage with special perldoc case");
     # output went to devnull
-    like ($text, qr/^\s*$/s, "Output test pod2usage with special perldoc case") or diag "Got:\n$text\n";
 
+    TODO: {
+        local $TODO = q[Can get output from stty view #14];
+        is( length($text), 0, "Output test pod2usage with special perldoc case") or diag "Got:\n$text\n";
+    }
 }
 
 # bad regexp syntax